Incluir anexo no e-...
 
Notifications
Clear all

Incluir anexo no e-mail


joaorlneto
Posts: 39
Registered
Topic starter
(@joaorlneto)
Eminent Member
Entrou: 4 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