WMA Tech Informática - Manutenção em Informática: 2014

sexta-feira, 12 de setembro de 2014

Habilitar grupo de e-mail do Exchange para receber e-mails externos

Para habilitar um certo grupo para receber e-mails externos basta seguir os seguintes passos:

1 - Abrir as propriedades do grupo que deseja habilitar o recebimento;

2 – Clicar na aba “Mail Flow Settings”;

3 – Clicar duas vezes em “Message Delivery Restrictions”;

4 – Desmarcar a opção “Require that all senders are authenticate”;

5 – OK.

Habilitar a aba desenvolvedores no Office 2003, 2007, 2010 e 2013

Os passos de 1.2 a 1.6 valem para o office 2010 e 2013
1.2 Com o office aberto clique em Arquivo
1.3 Clique em opções
1.4 Clique em Personalizar Faixa de Opções
1.5 Marque desenvolvedores nas Guias Principais
1.6 Clique em OK

Os passos de 1.7 a 1.11 valem para o office 2003 e 2007
1.7 Com o office aberto clique em no botão Office
1.8 Clique em Opções do excel.
1.9 Clique em botão Mais usados.
1.10 Selecione a opção Mostrar guia desenvolvedor na faixa de opções.
1.11 Clique em Ok.

Desproteger planilhas do Excel com senha

1 - Abra a planilha que deseja desproteger
2 - clique na aba desenvolvedor

2.1 Caso não veja a aba desenvolvedores executar os passos abaixo

Os passos de 2.2 a 2.6 valem para o office 2010 e 2013
2.2 Com o ofice aberto clique em Arquivo
2.3 Clique em opções
2.4 Clique em Personalizar Faixa de Opções
2.5 Marque desenvolvedores nas Guias Principais
2.6 Clique em OK

Os passos de 2.7 a 2.11 valem para o office 2003 e 2007
2.7 Com o ofice aberto clique em no botão Office
2.8 Clique em Opções do excel.
2.9 Clique em botão Mais usados.
2.10 Selecione a opção Mostrar guia desenvolvedor na faixa de opções.
2.11 Clique em Ok.

3 - Clique em visual basic
4 - Com o visual basic aberto clique em inserir, depois em modulo
5 - Cole o código abaixo
6 - Clique em executar, depois em executar sub/userform F5

Sub Desbloqueia_Planilha()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "Sua planilha foi desbloqueada "
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

sexta-feira, 22 de agosto de 2014

Assinatura HTML Webmail Exchange

1 - Copie o código html abaixo (Está comentado o início e fim do código) cole no bloco de notas altere as partes destacadas e salve como assinatura.html
_____________________________________________________________________________

<html>
<head>
<title>Assinatura de e-mail Webmail</title>

<style type="text/css">
body{
font:Tahoma;
border:0px;
margin:0px;}

a:link, a:visited, a:active{text-decoration:none;}

a:hover{text-decoration:underline;
color:#;
font-size:120%}

#nome{
font-size:12px;
color:#354895;
height:14px;}

#cargo{
font-size:10px;
color:#175079;
height:14px;
font-family: Tahoma;}

#telefone{
font-size:10px;
color:#354895;
height:auto;}

#site{
font-size:8px;
height:14px;
font-family: Tahoma;
color:#;
color: #00F;}

#nome strong {
font-family: Tahoma;
color: #175079;}

#telefone strong {
font-family: Tahoma;
color: #175079;
font-weight: bold;}
</style>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>

<body>
<table width="200" border="0">
<tr>
<td><img src="COLOQUE AQUI A URL O CAMINHO DA IMAGEM NA WEB EXEMPLO: https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjmAPrMTE7LGrpTtuFSpzZbQW9yDzqAWycHPn-ZGRleMiNwJJTg1duxc17vobVnSVBerLEa7P5cVQHP1Qjfltu0we3S2q_jojkphDVtvi0Jt3y0_MDF_1HNRwO_Z-P-utXK9tu0UoeaEsPb/s320/dia-da-informatica.png" width="110" height="70"></td>
<td>

<table width="284" border="0">
<tr>
<td id="nome" width="0"><strong>Insira aqui o nome</strong></td>
</tr>
<tr>
<td id="cargo">Insira aqui o cargo</td>
</tr>
<tr>
<td height="15" id="telefone"><strong>Insira aqui o telefone no formato: (XX) XXXX-XXXX / (XX) XXXX-XXXX</strong></td>
</tr>
<tr>
<td id="site"><b><a href="COLOQUE AQUI A URL SITE/">COLOQUE AQUI O NOME SITE</a>
</p></td>
</tr>
</table>
</td>
</tr>
</table>

</body>
</html>

________________________________________________________________________________

2 - Abra o arquivo assinatura.html no navegador de internet, e confira a formatação.

3 - Com a assinatura aberta no navegador, clique com o botão direito do mouse na área em branco do navegador e selecione a opção "selecionar tudo, depois pressione "Ctrl+C" para copiar toda assinatura

3 - Abra o Webmail, vá em opções, depois em consulte todas as opções...

4 - Insira seu usuário e senha

5 - Vá em configurações, cole no campo "Assinatura de Email" a assinatura copiada no passo 3, marque a opção "incluir automaticamente minha assinatura em mensagens enviadas" e clique em salvar.

quarta-feira, 4 de junho de 2014

Inserir e-mail externos em grupos do Exchange

Para inserir um e-mail externo em grupos no Exchange primeiro crie um contato de e-mail

Inicie o Console de Gerenciamento do Exchange.
Na árvore do console, expanda Configuração de Destinatário e clique em Contato de Email.
No painel de ações, clique em Novo Contato de Email. O assistente de Novo Contato de Email é exibido.
Na página Introdução, em Criar um contato de email para, clique em Novo contato e em Avançar.
Na página Informações de Contato, preencha os seguintes campos:
- Unidade organizacional Por padrão, o Assistente de Novo Contato de Email exibe o caminho para o contêiner Usuários no serviço de diretório do Active Directory. Para modificar esse campo, clique em Procurar e selecione a unidade organizacional (UO) desejada.
- Nome Digite o nome do contato. Esse campo é opcional.
- Iniciais Digite as iniciais do contato. Esse campo é opcional.
- Sobrenome Digite o sobrenome do contato. Esse campo é opcional.
- Alias Por padrão, o alias é formado pelo nome, as iniciais e o sobrenome do contato, separados por caracteres de sublinhado (_). Você pode modificar esse campo.
- Endereço de email externo Para especificar o endereço de email externo, execute uma das seguintes tarefas:
  Para especificar um endereço de email SMTP, clique em Editar e, em Endereço de email, digite o endereço de email SMTP.
  Para especificar um endereço de email personalizado, clique na seta ao lado de Editar, clique em Endereço Personalizado e, em Endereço de email, digite o endereço e o tipo de email. Por exemplo, especifique um endereço X.400, GroupWise ou Lotus Notes.
Na página Novo Contato de Email, analise o resumo da configuração, que contém informações sobre as opções que você selecionou para o novo contato de email. Para fazer alterações, clique em Voltar. Para criar o novo contato de email, clique em Novo.
Na página Conclusão, o resumo informa se o contato foi criado com êxito. O resumo também exibe o comando do Shell de Gerenciamento do Exchange que foi usado para criar o novo contato de email.
Clique em Concluir para concluir a tarefa.

Depois basta inserir no grupo.

terça-feira, 27 de maio de 2014

Erro "Não é possível encontrar o mecanismo de script "VBScript" para o script "\\Servidor\....vbs".

iniciar,executar, digite:

regsvr32 jscript.dll tecle enter, dê ok

regsvr32 vbscript.dll tecle enter,dê ok

Veja se é registrado normalmente ou se dá alguma mensagem de erro.

Se não resolver instale o Windows script 5.6:

http://www.microsoft.com/download/en/details.aspx?id=8247

Script em vb para mapeamento de rede por grupo no AD

set objNetwork = createobject("wscript.network")
set exNetwork = createobject("wscript.network")
Set objShell = CreateObject("Shell.Application")
strDom = objNetwork.UserDomain
strUser = objNetwork.UserName
Set objUser = GetObject("WinNT://" & strDom & "/" & strUser & ",user")

'_______________________________________________________________________________________________________________________
'Inicio mapeamento unidade P de rede (pasta publica)
Set FSODrive= CreateObject("Scripting.FileSystemObject")

If FSODrive.DriveExists("P:") Then
exNetwork.RemoveNetworkDrive "P:", true, true
objNetwork.MapNetworkDrive "P:", "\\10.0.0.43\Publico", true
objShell.NameSpace("P:").Self.Name = "Publico"
End If

If not FSODrive.DriveExists("P:") Then
objNetwork.MapNetworkDrive "P:", "\\10.0.0.43\Publico", true
objShell.NameSpace("P:").Self.Name = "Publico"
End If
'Fim mapeamento unidade P de rede (pasta publica)
'_______________________________________________________________________________________________________________________

For Each objGroup In objUser.Groups

Select Case objGroup.Name

Case "Fls_GP"
If FSODrive.DriveExists("R:") Then
exNetwork.RemoveNetworkDrive "R:", true, true
objNetwork.MapNetworkDrive "R:", "\\10.0.0.43\Departamentos01\GP", true
objShell.NameSpace("R:").Self.Name = "Gestao de Pessoas"
End If

If Not FSODrive.DriveExists("R:") Then
objNetwork.MapNetworkDrive "R:", "\\10.0.0.43\Departamentos01\GP", true
objShell.NameSpace("R:").Self.Name = "Gestao de Pessoas"
End If

Case "Fls_Administrativo"
If FSODrive.DriveExists("R:") Then
exNetwork.RemoveNetworkDrive "R:", true, true
objNetwork.MapNetworkDrive "R:", "\\10.0.0.43\Departamentos01\Administrativo", true
objShell.NameSpace("R:").Self.Name = "Adminstrativo"
End If

If Not FSODrive.DriveExists("R:") Then
objNetwork.MapNetworkDrive "R:", "\\10.0.0.43\Departamentos01\Administrativo", true
objShell.NameSpace("R:").Self.Name = "Adminstrativo"
End If

End Select

Next

WMA Tech Informática - Manutenção em Informática

Translate