Aula Prática WSH --- Aula 3 Criando um Email
Autor:Eve Cole
Data da Última Atualização:2009-05-30 19:53:45
Ao criar caixas de correio, a situação é complicada porque você pode usar diferentes servidores de e-mail. Alguns colocam as informações do e-mail em arquivos de texto, alguns colocam as informações no registro e alguns fornecem interfaces ADSI, portanto, isso depende da situação específica.
Para informações de e-mail do usuário em um arquivo de texto, você pode operar diretamente o arquivo de texto. A seguir está um exemplo de código para escrever um arquivo de texto:
f
olá
Definir fs = WScript.CreateObject("Scripting.FileSystemObject")
Definir fw = fs.CreateTextFile("c:users.dat")
fw.WriteLine "usuário1,usuá[email protected],,,"
Para informações do usuário colocadas no registro, você pode usar o WSH para operar diretamente o registro para concluir a criação da caixa de correio. Por exemplo, as informações do usuário do IMAIL são colocadas no registro.
Em HKEY_localmacineSoftWareIPswitchdomain. A única coisa problemática sobre a senha inicial da caixa de correio é que não conhecemos seu algoritmo de criptografia. Portanto, só podemos criar uma caixa de correio manualmente primeiro e depois usar uma senha fixa para ver o que é depois de criptografá-la. Nosso script também a usará ao criar outras caixas de correio. O problema é que devemos informar aos usuários que eles deverão alterar suas senhas no futuro, caso contrário não será seguro.
O Exchange Server fornece interface ADSI, o que torna conveniente a criação de caixas de correio. E sua caixa de correio pode ser sincronizada com usuários do domínio NT. Aqui está um exemplo de código:
objContainer = GetObject("LDAP://SERVERNAME/o=OrgName/ou=SiteName/cn=Destinatários")
objUser = objContainer.Create("Endereço Remoto", "cn=CustRecip")
objUser.cn = "CustRecip"
objUser.Put "Endereço de destino", "SMTP:[email protected]"
objUser.Put "Codificação da Internet", 1310720objUser.UID = "CustRecip"
objUser.textEncodedORaddress = "c=US;a= ;p=DOIT;o=CDO;s=CustRecip;"
objUser.Mail = "[email protected]"
objUser.Put "otherMailbox", "MS:OrgName/SiteName/CustRecip"
objUser.Put "Sensibilidade de replicação", 20
objUser.Put "Destinatário MAPI", Falso
objUser.SetInfo
WScript.Echo objUser.cn
Para i = 1ToobjUser.PropertyCount
Definir vProp = objUser.Next
WScript.Echo vProp.Nome
Próximo
Observação: como não tenho o Exchange Server para experimentos agora, o código acima não foi testado. Se você tiver alguma dúvida, acesse a fonte original para obter soluções.
Este script, com pequenas modificações, também pode ser utilizado em ASP.