Macro Email.txt
This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA
Overview
Download & View Macro Email.txt as PDF for free.
More details
- Words: 81
- Pages: 1
Sub enviar_email() 'Criar as variaveis do Outlook Dim outapp As Outlook.Application Dim outmail As Outlook.MailItem 'Cria e chama os objetos do outlook Set outapp = CreateObject("outlook.application") Set outmail = outapp.CreateItem(olMailItem) 'Desabilita a mensagem de alerta Application.DisplayAlerts = False With outmail 'email do destinat�rio .To = Range("C3") 'titulo da mensagem .Subject = Range("c5") 'Mensagem .HTMLBody = Range("c7") 'Anexo .Attachments.Add (Range("c9")) .Send End With Application.DisplayAlerts = True 'resetar os sets Set outmail = Nothing Set outapp = Nothing MsgBox "Mensagem enviada"
End Sub
End Sub
Related Documents
Macro
June 2020 28
Macro
November 2019 76
Macro
October 2019 55
Macro
August 2019 65
Macro
October 2019 53
Macro
November 2019 57More Documents from ""
Macro Email.txt
April 2020 6
John Piper - Los Peligos Del Deleite (recovered).pdf
August 2019 0
Beer Stories
May 2020 17
