Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Envio de e-mail com...
 
Notifications
Clear all

Envio de e-mail com anexo

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
1,279 Visualizações
RSS
 llrodrigo
(@llrodrigo)
Posts: 151
Estimable Member
Topic starter
 

Olá, tenho uma rotina de trabalho onde preciso enviar muitos e-mails algumas vezes no mês, estes e-mails sempre tem um anexo.

Entretanto para cada destinatário tenho um nome de anexo diferente, mas os nomes de anexos não mudam ( se hoje o anexo para o [email protected] é o " anexo1" nos próximos envios também será). Alguém já fez ou pode dizer se é possível fazer algo no Excel com essa finalidade?Até mesmo ajudar com informações?Obrigado.

 
Postado : 14/10/2017 3:46 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Use a pesquisa do fórum!
https://cse.google.com.br/cse?cx=partne ... gsc.page=1

Sub AddAttachment() 
'Fonte: https://msdn.microsoft.com/pt-br/VBA/Outlook-VBA/articles/attachments-add-method-outlook
 Dim myItem As Outlook.MailItem 
 Dim myAttachments As Outlook.Attachments 

 Set myItem = Application.CreateItem(olMailItem) 
 Set myAttachments = myItem.Attachments 
 myAttachments.Add "C:Test.doc", _ 
 olByValue, 1, "Test" 
 myItem.Display 
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/10/2017 9:39 am
Forum Jump:
  Tópico Anterior
Próximo Tópico