Enviando individualmente e-mails em massa - Tecnologias

Tecnologias

Assuntos diversos ligados à tecnologia.

Syndication

Receive Email Updates



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.

Published quinta-feira, 9 de agosto de 2012 17:52 by Paleo

Filed under:

Comments

# re: Enviando individualmente e-mails em massa@ quinta-feira, 9 de agosto de 2012 18:46

Grande Carlos,

Pô cara agora tu está ensinando a galera mandar spam?

Obrigado, não sei como te agradecer.

Brincadeira, tens ministrado treinamentos MS?

Roberto Silva

# re: Enviando individualmente e-mails em massa@ sábado, 11 de agosto de 2012 2:20

Grande amigo Roberto,

digamos que estou apenas atrapalhando o mercado de alguns softwares de SPAM, que são pagos. De qualquer forma, para o envio de SPAMs pelo Outlook ainda faltariam alguns ajustes no código, como o necessário para contornar o limite de envios do provedor.

No momento estou um pouco parado com treinamentos MS, a correria nas outras coisas está grande e não tem sobrado tempo...

Paleo

# re: Enviando individualmente e-mails em massa@ segunda-feira, 24 de dezembro de 2012 15:17

não funcionou para mim, tenho o Outlook 2010 e não saiu da caixa de rascunho

anderson

# re: Enviando individualmente e-mails em massa@ terça-feira, 29 de janeiro de 2013 17:10

Muito bom o script porém, no meu caso não funcionou porque o email não foi enviado no formato html, foi sem formatação alguma. Tem como resolver isso?

Robson

# re: Enviando individualmente e-mails em massa@ terça-feira, 29 de janeiro de 2013 17:19

Muito bom o script porém, no meu caso não funcionou porque o email não foi enviado no formato html, foi sem formatação alguma. Tem como resolver isso?

Robson

# Enviando individualmente e-mails em massa, com imagem no corpo do e-mail@ quinta-feira, 31 de janeiro de 2013 11:13

Recebi vários questionamentos no meu post anterior ( Enviando individualmente e-mails em massa ), sobre

Tecnologias

# re: Enviando individualmente e-mails em massa@ segunda-feira, 4 de fevereiro de 2013 21:07

Robson,

confira este outro post: carlosfprocha.com/.../enviando-individualmente-e-mails-em-massa-com-imagem-no-corpo-do-e-mail.aspx

Paleo

# re: Enviando individualmente e-mails em massa@ terça-feira, 5 de fevereiro de 2013 16:31

Olá Carlos.

Existe um script semelhante para o envio de email com anexos?

Agradeço o retorno.

Paulo

# re: Enviando individualmente e-mails em massa@ quarta-feira, 6 de fevereiro de 2013 15:34

Olá Carlos.

Existe algum script nesse sentido para o envio com anexos?

Para mim seria muito importante conhecer.

Agradeço a atenção,

Paulo Mauricio

Paulo Mauricio

# Enviando e-mail em massa com anexo e imagens@ sexta-feira, 8 de fevereiro de 2013 2:40

Tenho recebido dúvidas se seria possível enviar anexos também com o meu script. Parece que muita gente

Tecnologias

# re: Enviando individualmente e-mails em massa@ sexta-feira, 8 de fevereiro de 2013 2:41

Sim, Paulo Maurício, confira este outro post:

carlosfprocha.com/.../enviando-e-mail-em-massa-com-anexo-e-imagens.aspx

Paleo

# re: Enviando individualmente e-mails em massa@ terça-feira, 26 de fevereiro de 2013 15:33

grato me achudou muito!!!

joão

# re: Enviando individualmente e-mails em massa@ sexta-feira, 1 de março de 2013 16:37

Testei aqui e funciona que é uma beleza. Uma dúvida: Teria como colocar uma pausa pequena, ajustável, entre um envio e outro? Ele envia tudo muito rápido. Será que os provedores não barram o envio de emails tão rapidamente não?

Matheus Lopes

# re: Enviando individualmente e-mails em massa@ sexta-feira, 1 de março de 2013 17:06

Oi Matheus,

sim, verifique neste post: carlosfprocha.com/.../adicionando-intervalo-no-envio-de-e-mails.aspx

Paleo

# re: Enviando individualmente e-mails em massa@ terça-feira, 12 de março de 2013 17:58

Desculpe fiquei com uma duvida , é so clicar em ok que o e-mail é enviado , fiz todo o passo a passo mas na tela ficou a mesma coisa , tem algum limite ?

Obrigado

Jaqueline

# re: Enviando individualmente e-mails em massa@ terça-feira, 19 de março de 2013 16:03

Oi Jaqueline,

você clica na pasta "Rascunho" e depois em Ok, que vai funcionar. Não há limite.

Paleo

# re: Enviando individualmente e-mails em massa@ terça-feira, 19 de março de 2013 21:18

Hello, I enjoy reading through your article post. I wanted to write a little comment to support you.

Barfield

# re: Enviando individualmente e-mails em massa@ domingo, 24 de março de 2013 16:34

Anderson, ele permanece na caixa, mas envia. Confira se não houve o envio. O seu Outlook é o que? Standard, Professional, Plus, etc

Paleo

# re: Enviando individualmente e-mails em massa@ sexta-feira, 19 de abril de 2013 14:19

para enviar emails com imagens e anexo qual o codigo que terei que copiar e colar????????

joao carlos peres belmonte

# re: Enviando individualmente e-mails em massa@ sexta-feira, 19 de abril de 2013 16:00

joao carlos peres Belmonte, use o código deste post: carlosfprocha.com/.../enviando-e-mail-em-massa-com-anexo-e-imagens.aspx

Paleo

# re: Enviando individualmente e-mails em massa@ terça-feira, 30 de abril de 2013 13:32

como posso enviar os emails em outro provedor...????

silva

# re: Enviando individualmente e-mails em massa@ terça-feira, 30 de abril de 2013 13:58

silva,

o script faz apenas a composição e o envio das mensagens para a caixa de saídas, quem realmente faz o envio é o outlook. Desta forma, para enviar as mensagens através de outro provedor, basta configurar a conta dele como sendo a padrão do outlook que o envio sairá por lá.

Paleo

# re: Enviando individualmente e-mails em massa@ quinta-feira, 2 de maio de 2013 16:20

Este script pode ser alterado para utilização no Windows Live Mail? Quais alterações teriam de ser feitas?

Pelo que entendi, este script acaba com o limite de destinatários diários do endereço de e-mail utilizado, estou correto? Pergunto, porque alguns provedores estabelecem 100 destinatários por dia e outros chegam no máximo até 1000.

Agradeço pela atenção.

Hugo

# re: Enviando individualmente e-mails em massa@ sexta-feira, 17 de maio de 2013 10:23

quando faço o comando ALT+F11 ñ aparece. o que faço?

marcus vissali

# re: Enviando individualmente e-mails em massa@ sexta-feira, 17 de maio de 2013 10:59

Boa tarde Carlos,

Está dando um erro Run-time error.

O Outlook não reconhece um ou mais nomes.

Quando clico no debug aparece selecionado .Send

O Outlook que uso é o 2007.

Obrigado e um abraço,

Paulo

Paulo

# re: Enviando individualmente e-mails em massa@ quarta-feira, 22 de maio de 2013 23:55

Caro amigo, fiz o procedimento em um PC com windows7 e Outlook 2007 deu tudo certo. Só que em outro PC com windows XP e Outlook XP e também o Outlook 2010 não envia a imagem do corpo do email (aparece o caminho onde a imagem está. Ex. c:\temp\foto.jpg) Poderia me dar uma dica do que está acontecendo? Já conferi o Script várias vezes. Desde já agradeço vossa atenção. Obrigado.

Junio Borotto

# re: Enviando individualmente e-mails em massa@ domingo, 26 de maio de 2013 22:02

Caro Junio Borotto, este código é para envio sem anexos, se deseja enviar anexos verifique o meu outro post, que contempla esta funcionalidade.

Tudo o que funciona no Office 2007, tem que funcionar no XP e no 2010, poderia dar erro no 2003 (pois muda o modelo de objeto), mas não nos outros dois. Qual erro deu?

Paleo

# re: Enviando individualmente e-mails em massa@ domingo, 26 de maio de 2013 22:13

@Marcus Vissali, não são todas versões do Office que possuem o VBA. Qual a sua versão?

Paleo

# re: Enviando individualmente e-mails em massa@ domingo, 26 de maio de 2013 22:15

@Paulo, qual o código do erro de run-time?

Paleo

# re: Enviando individualmente e-mails em massa@ domingo, 26 de maio de 2013 23:23

@Hugo, infelizmente as respostas para você são: não e não.

Ele não funciona no Windows Live Mail e não afeta em nada o limite de e-mails diários definido pelo seu provedor.

Paleo

# re: Enviando individualmente e-mails em massa@ quinta-feira, 20 de junho de 2013 20:22

como faço pra enviar em massa com anexo,tipo 2m,5m,10,20m clientes diferentes se so identificado com spam e ar limite...

cleiton

# re: Enviando individualmente e-mails em massa@ sexta-feira, 21 de junho de 2013 14:57

Cleiton,

quem impõe este limite é o teu provedor, então não há como burlar ele com o script.

Paleo

# Enviando mensagens personalizadas para uma lista de contatos@ terça-feira, 1 de julho de 2014 1:39

Suponhamos que você tenha uma lista grande de pessoas para as quais deseje enviar mensagens de e-mail

Tecnologias

# Enviando mensagens personalizadas para uma lista de contatos@ terça-feira, 1 de julho de 2014 1:39

Suponhamos que você tenha uma lista grande de pessoas para as quais deseje enviar mensagens de e-mail

Carlos Fernando Paleo da Rocha
SBS MVP in Brazil

Leave a Comment

(required) 
(required) 
(optional)
(required)