VBA error to send email

1

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
    
asked by anonymous 06.06.2016 / 22:00

0 answers