Usando Visual Basic Script , você pode automatizar o processo de envio de e-mails para todas as pessoas em sua lista de endereços . Com um pouco de criatividade, você pode até mesmo puxar as informações para compor o e-mail a partir de um banco de dados. Uma tarefa comum , se você estiver usando o script para enviar relatórios de log automatizado, você pode querer incluir anexos. Instruções
1

Abra um editor de texto
2

Cole o seguinte para criar a mensagem: .

Conjunto m = CreateObject (" CDO.Message " )

m.Configuration.Fields.Item ( " http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2

m.Configuration.Fields.Item ( " http://schemas.microsoft.com/cdo/configuration/smtpserver ") =" mail.your.com "

m.Configuration.Fields.Item ( " http://schemas.microsoft.com/cdo /configuração /SMTPAuthenticate ") = cdoBasic

m.Configuration.Fields.Item ( " http://schemas.microsoft.com/cdo/configuration/sendusername ") ="
YourUserID "

m.Configuration.Fields.Item ( " http://schemas.microsoft.com/cdo/configuration/sendpassword ") = " yourpassword "

m.Configuration.Fields.Item ( "http://schemas.microsoft.com /cdo /configuração /SMTPServerPort ") = 25

m.Configuration.Fields.Item ( " http://schemas.microsoft.com/cdo/configuration/smtpusessl " ) = False

m.Configuration.Fields.Item ( " http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout ") = 60

m.Configuration.Fields.Update

m.to = " recipient@sever.com "

m.from = " me@me.com "

m.subject = " Test"

m . TextBody = " Por favor, veja estes múltipla enviar vários anexos , basta repetir o comando add anexo. Você deve atualizar os campos de configuração para refletir os dados para suas configurações de servidores de correio . Por exemplo, se você usa o Gmail , seu servidor SMTP seria smtp.gmail.com e seu nome de usuário e senha seria o nome de usuário ea senha da sua conta do Gmail.
3

Salve seu trabalho. Você pode executar o script , clicando duas vezes nele .