Enviando individualmente e-mails em massa

Suponhamos que você deseje enviar exatamente o mesmo e-mail para várias pessoas, de forma automatizada, sem precisar utilizar nenhum software além do próprio Outlook.



IMPORTANTE: LEIA TUDO ANTES DE EXECUTAR, PARA EVITAR EFEITOS INDESEJADOS. Se possível, não use para SPAM.



Como fazer?



Muito simples:



  • Crie uma mensagem nova e insira nela os endereços de todos os destinatários que deseja, com seus e-mails separados por “;”, que já é o padrão do Outlook;
  • Digite um assunto para a mensagem;
  • Digite o corpo do e-mail;
  • Clique em Salvar (ícone de disquete no topo da tela);


image



  • Pronto sua mensagem será colocada na pasta de Rascunhos;
  • Agora pressione Alt + F11 em seu teclado para abrir o Editor do Visual Basic;
  • Clique em Inserir e depois em Módulo;




  • Copie o código abaixo e cole ele na área a direita;




Public Sub SepareRascunhos()
 
    Dim lDraftItem As Long
    Dim myOutlook As Outlook.Application
    Dim myNameSpace As Outlook.NameSpace
    Dim myFolders As Outlook.Folders
    Dim myDraftsFolder As Outlook.MAPIFolder
    Dim objMailMessage As Outlook.MailItem
    Dim emlBody, sendTo As String
    Dim TOs
    
    Set myOutlook = Outlook.Application
    Set myNameSpace = myOutlook.GetNamespace(“MAPI”)
    Set myFolders = myNameSpace.Folders
    Set myDraftsFolder = myNameSpace.PickFolder
    
    For lDraftItem = myDraftsFolder.Items.Count To 1 Step -1
        TOs = Split(myDraftsFolder.Items.Item(lDraftItem).To, “;”)
        For i = 0 To UBound(TOs)
            Set objMailMessage = myOutlook.CreateItem(0)
            With objMailMessage
                .To = TOs(i)
                .Body = myDraftsFolder.Items.Item(lDraftItem).Body
                .Subject = myDraftsFolder.Items.Item(lDraftItem).Subject
                .Display
                .Send
            End With
        Next
    Next lDraftItem
    Set myDraftsFolder = Nothing
    Set myNameSpace = Nothing
    Set myOutlook = Nothing
 
End Sub



  • No Editor do Visual Basic execute a macro clicando no botão de Play;




  • Você será indagado sobre em qual pasta está o rascunho. Escolha a pasta onde o colocou e clique em OK;


image



  • O ideal é que tenha apenas uma mensagem lá, como no exemplo, para evitar comportamentos indesejados. Se tiver mais de uma, aconselho a apagar as outras ANTES de executar a macro. Caso não siga esta orientação, não reclamar depois se obtiver resultados indesejados, Smiley piscando;
  • Você deve estar se perguntando: Mas por que a própria macro não pega direto a pasta de rascunhos? Porque você pode gostar tanto desta macro que venha a criar uma pasta específica para um modelo de e-mail e passe a usá-la sempre, liberando desta forma a pasta dos rascunhos;
  • Agora é só conferir nos e-mail enviados e verá que as mensagens foram todas enviadas satisfatoriamente.


Antes de usar o código em produção, faça um teste para contas de e-mail suas e verifique se o resultado obtido é o que deseja, pois depois de ter enviado o e-mail para seus contatos não adiantará mais ficar insatisfeito!


Observação: Este código é para o envio de mensagens de texto simples (sem anexos, nem imagens no corpo da mensagem), se deseja anexar imagens, verifique meu outro post sobre o mesmo assunto.


Leave a Reply

Your email address will not be published. Required fields are marked *


*

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>