Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Incluir anexo no e-...
 
Notifications
Clear all

Incluir anexo no e-mail

 
2024 - VBA & Macros
Post Recente por vitorhsh 3 anos atrás
3 Posts
3 Usuários
0 Reactions
1,082 Visualizações
RSS
joaorlneto
 joaorlneto
(@joaorlneto)
Posts: 49
Trusted Member
Topic starter
 

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 = "[email protected]"
.Item.Subject = "TESTE EMAIL"
.Item.display

End With

End Sub

 

João Neto

 
Postado : 11/06/2021 1:43 pm
sandroh
 sandroh
(@sandroh)
Posts: 40
Eminent Member
 

Boa tarde jovem,

Inclui a linha .Attachments.Add "caminho_do_arquivo"

Caso tenha resolvido, não esqueça de clicar na mãozinha ao lado da ferramenta "citar" e fechar o tópico ;)

 
Postado : 23/06/2021 5:45 pm
 vitorhsh
(@vitorhsh)
Posts: 0
Trusted Member
 

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
 
Postado : 25/06/2021 12:06 am
Forum Jump:
  Tópico Anterior
Próximo Tópico