Notifications
Clear all

Macro-Enviar e-mail para mais de um destinatário

3 Posts
3 Usuários
0 Reactions
1,290 Visualizações
(@edlemos)
Posts: 8
Active Member
Topic starter
 

Encontrei uma Macro para enviar e-mails com dados a partir de algumas células.....

Está tudo certo, porém não sei como colocar mais de um destinatário no e-mail.

Vou colocar em negrito a parte da macro referente ao endereço de e-mail.

Segue parte da macro macro

With OutMail
.To = Plan4.Cells(linha, 8)
.CC = ""
.BCC = ""
.Subject = "Entregue NF: " & Plan4.Cells(linha, 3) & "Pedido de Compra" & Plan4.Cells(linha, 1) & ""
.Body = texto
.Display 'Utilize Send para enviar o email sem abrir o Outlook

 
Postado : 24/03/2015 11:28 am
benzadeus
(@benzadeus)
Posts: 78
Trusted Member
 
.Recipients.Add "destinatario1@email.com"
.Recipients.Add "destinatario2@email.com"
.Recipients.Add "destinatario3@email.com"
.Recipients.Add "destinatario4@email.com"

Felipe Costa Gualberto
Microsoft Excel MVP
http://www.ambienteoffice.com.br

 
Postado : 24/03/2015 1:18 pm
(@djanes)
Posts: 13
Active Member
 

Ola Edlemo,

se a sua macro está buscando os emails neste local "Plan4.Cells(linha, 8)".
caso queira colocar mais de um destinatário na mesma linha, separe os emails com ponto e virgula ";" dessa forma a macro irá entender que tem mais de um emails.

 
Postado : 24/03/2015 4:41 pm