Incluir anexo no e-...
 
Notifications
Clear all

Incluir anexo no e-mail


joaorlneto
Posts: 39
Registered
Topic starter
(@joaorlneto)
Eminent Member
Entrou: 5 anos atrás

Boa tarde.

Eu tenho essa macro que seleciona uma parte da planilha e coloca no corpo do e-mail. 

Gostaria de incluir também o anexo no e-mail. Pode me ajudar?

 

Sub enviar_corpo_email()

'Seleciona o intervalo de células a serem enviadas por email.

ActiveSheet.Range("A1:O29").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope

.Introduction = "TESTE"
.Item.To = "XXXXX@XXXXXXX.com.br"
.Item.Subject = "TESTE EMAIL"
.Item.display

End With

End Sub

 

Responder
2 Respostas
sandroh
Posts: 40
Registered
(@sandroh)
Eminent Member
Entrou: 7 anos atrás

Boa tarde jovem,

Inclui a linha .Attachments.Add "caminho_do_arquivo"

Responder
vitorhsh
Posts: 95
Registered
(@vitorhsh)
Trusted Member
Entrou: 4 anos atrás

Boa noite tente adiciona em seu cod 

 

 Dim myItem As Outlook.MailItem 
 Dim myAttachments As Outlook.Attachments 
 
 Set myItem = Application.CreateItem(olMailItem) 
 Set myAttachments = myItem.Attachments 
 myAttachments.Add "D:\Documents\Q496.xlsx", _ 
 olByValue, 1, "4th Quarter 1996 Results Chart" 
 myItem.Display 
Responder