email massa

30/7/2014

Enviando individualmente e-mails em massa - Tecnologias

Sign in | Join | Help

Tecnologias

Assuntos diversos ligados à tecnologia.
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);

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;

http://carlosfprocha.com/blogs/paleo/archive/2012/08/09/enviando-individualmente-e-mails-em-massa.aspx

1/6

30/7/2014

Enviando individualmente e-mails em massa - Tecnologias

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

Public Sub SepareRascunhos()
Dim
Dim
Dim
Dim
Dim
Dim
Dim
Dim

lDraftItem As Long myOutlook As Outlook.Application myNameSpace As Outlook.NameSpace myFolders As Outlook.Folders myDraftsFolder As Outlook.MAPIFolder objMailMessage As Outlook.MailItem emlBody, sendTo As String
TOs

Set
Set
Set
Set

myOutlook = Outlook.Application myNameSpace = myOutlook.GetNamespace("MAPI") myFolders = myNameSpace.Folders 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 =