$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