Usando script de Visual Basic, você pode automatizar o processo de envio de e-mails para todas as pessoas em sua lista de discussão. 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.
Abra um editor de texto.
Cole o seguinte para criar a mensagem:
set m = CreateObject ("CDO.Message")
m.Configuration.Fields.Item ("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2
m.Configuration.Fields.Item ("https://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.your.com"
m.Configuration.Fields.Item ("https://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = CdoBasic
m.Configuration.Fields.Item ("https://schemas.microsoft.com/cdo/configuration/sendusername") = "YourUserID"
m.Configuration.Fields.Item ("https://schemas.microsoft.com/cdo/configuration/sendpassword") = "sua senha"
m.Configuration.Fields.Item ("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
m.Configuration.Fields.Item ("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
m.Configuration.Fields.Item ("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
m.Configuration.Fields.Update
m.to = "[email protected]"
m.from = "[email protected]"
m.subject = "Teste"
m.textbody = "Por favor, veja estes vários anexos."
m.addattachment ("C: file1.txt")
m.addattachment ("C: file2.txt")
m.send
Para enviar vários anexos, basta repetir o comando anexo add. 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, em seguida, o servidor SMTP seria smtp.gmail.com e seu nome de usuário e senha seria o nome de usuário e senha para sua conta do Gmail.
Salve seu trabalho. Você pode executar o script clicando duas vezes nele.
dicas & avisos
- Muitos fornecedores de serviços de correio tela e-mail de conteúdo suspeito. Isso inclui anexos grandes e e-mails provenientes de computadores desconhecidos em vez de outro servidor de correio conhecido.