Início
Wagner Oliveira Dom 20 Mar 2016, 16:29Bom dia, gostaria de ajuda com o código abaixo, pois preciso enviar vários anexos, para vários usuários, a parte do anexos está funcionando porém não consigo anexar mais do que 1 destinatario no campo CC estou utilizando o código abaixo:
Dim cod As String
Dim ser As String
Dim DAT As String
Dim OutApp As Object
Dim OutMail As Object
cod = TXCODPC
ser = TXNSERIE
DAT = DTORC
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "destinatário 1"
.CC = "destinatário 2" - como faço para inserir vários destinatários no campo com cópia (CC)
.BCC = ""
.Subject = "Relatórios de gestão"
.Body = "teste"
.Attachments.Add "C:\Relatórios1.pdf"
.Attachments.Add "C:\Relatórios2.pdf"
.Attachments.Add"C:\Relatórios3.pdf"
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
Dim cod As String
Dim ser As String
Dim DAT As String
Dim OutApp As Object
Dim OutMail As Object
cod = TXCODPC
ser = TXNSERIE
DAT = DTORC
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "destinatário 1"
.CC = "destinatário 2" - como faço para inserir vários destinatários no campo com cópia (CC)
.BCC = ""
.Subject = "Relatórios de gestão"
.Body = "teste"
.Attachments.Add "C:\Relatórios1.pdf"
.Attachments.Add "C:\Relatórios2.pdf"
.Attachments.Add"C:\Relatórios3.pdf"
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
