$sCorpo = "Prezado(a) Supervisor(a), bom dia.
Segue em anexo informações do Programa de Gestão Estratégica da sua loja.
Este é o arquivo atualizado no dia de hoje.
Para qualquer dúvida contatar a sua consultora.
Obs.: Esta é uma mensagem automática. Favor não responder."
$sAssunto = "PGE - teste"
$emailAddress = 'luiz.alves@facta.com.br'
$olApp = ObjCreate("Outlook.Application")
$olMailItem = 0
$objMail = $olApp.CreateItem($olMailItem)
$objMail.Save
Local $oAnexo = "C:\MONITORIA\RELATÓRIOS MIS\SMS REVERSO\PDF\LOJA-VILA-VELHA.pdf"
With $objMail
.To =($emailAddress)
.Subject = ($sAssunto)
.HTMLBody = ($sCorpo)
.Attachments.Add ($oAnexo)
.Send
EndWith
$oOApp = 0