Good afternoon,
I'm trying to use the function below, but when it opens the Outlook it gives the following error message "Program trying to send mail under its name. If this is unexpected, click deny and make sure your antivirus software is up to date . ""
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "" '''para quem vai, colocar os destinatários e separar com ;
.cc = "" '''quem será copiado no e-mail separar com ;
.BCC = "" ''' com cópia oculta se houver
.Subject = "" ''' Titulo do e-mail
.Attachments.Add " " '''colocar o caminho do arquivo se for anexar algo
'''Aqui é o corpo do e-mail, o que será inserido nele.
'.Send para enviar direto e .Display para visualizar antes de enviar
.Send '''ou . Display
End With
Application.Quit