Galera,
Bom dia, tudo bem?
Preciso fazer uma macro para enviar e-mail pra certa de 5.000 usuarios, e por isso tentei a opção de envia-lo pelo excel.
O problema é: estou usando o codigo abaixo, mas ele envia o texto que ja esta lá e para os receptores que eu colocar, deixando todos juntos. Eu precisava de ajudar para enviar para cada usuario uma linha da plan, ou seja, precisava localizar o e-mail (Ex, h1) e os seus dados (Ex,a1,b1,c1,d1,e1,f1,g1,j1) e assim por diante, enviando não um arquivo só, mas os respectivos ):
Se alguem conseguir me ajuuuuuuuudar, socorro! pls
hahahaha
obrigada!
Sub EnviarEmailViaNotes()
Dim notesSession As Object
Dim notesMailFile As Object
Dim notesDocument As Object
Dim notesField As Object
Dim receptores(3) As Variant
'Cria Uma lista de destinatários
receptores(0) = "jheniffer.r.monteiro-inst.aprender@hsbc.com.br"
receptores(1) = "jheniffer.r.monteiro-inst.aprender@hsbc.com.br"
receptores(2) = "jheniffer.r.monteiro-inst.aprender@hsbc.com.br"
receptores(3) = "jheniffer.r.monteiro-inst.aprender@hsbc.com.br"
'Abre uma sessão do notes, abre a base de dados e cria um documento.
Set notesSession = CreateObject("Notes.NotesSession")
Set notesMailFile = notesSession.GETDATABASE("", "names.nsf") '- *.nsf = arq. com lista de contatos
Set notesDocument = notesMailFile.CreateDocument
'Configura Subject, SendTo e Abre um nomo corpo de e-mail
Set notesField = notesDocument.AppendItemValue("Subject", "Teste de Envio via Excel...")
Set notesField = notesDocument.AppendItemValue("SendTo", receptores)
Set notesField = notesDocument.CreateRichTextItem("Body")
'Escreve o texto padrão no e-mail.
With notesField
.AppendText "Este é um modelo que copiei da ferramenta, "
.AddNewLine (2)
.AppendText "Para um possível uso no arquivo do GSAM. "
.AddNewLine (1)
.AppendText "Chegou? Tudo Certo?"
.AddNewLine (3)
.AppendText Cells(1, 10000).Value 'aqui faz referencia a uma variável ou a uma parte da planilha
End With
'Envia o e-mail
notesDocument.Send False
'Limpa as variáveis
Set notesSession = Nothing
Set notesMailFile = Nothing
Set notesDocument = Nothing
Set notesField = Nothing
End Sub
Postado : 06/04/2016 8:45 am