Índice
Este é um exemplo simples de como enviar um e-mail do Excel.
Clique aqui para obter um exemplo mais complexo: Envie a planilha por e-mail como uma pasta de trabalho separada. Este exemplo também trata da proteção de senha e outros problemas comuns.
| 12345678910111213141516171819202122232425262728 | Sub Mail_Workbook ()Application.ScreenUpdating = FalseDim OutApp como objetoDim OutMail como objeto'Criar variáveis iniciaisDefinir OutApp = CreateObject ("Outlook.Application")Definir OutMail = OutApp.CreateItem (0)'O emailOn Error Resume NextCom OutMail.to = "[email protected]".CC = "".BCC = "".Subject = "Assunto".Body = "Texto do corpo"'.Attachments.Add (FilePath)' Opcional se você tiver um anexo.Exibição'.Send' Opcional para automatizar o envio de e-mail.Terminar comNo erro GoTo 0Definir OutMail = NadaDefinir OutApp = NadaApplication.ScreenUpdating = TrueEnd Sub |
