MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Envio de email sem bloqueio do Outlook - Security Warnings

    Compartilhe

    Blasterm
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 09/06/2015

    Envio de email sem bloqueio do Outlook - Security Warnings

    Mensagem  Blasterm em 9/3/2018, 14:22

    Tenho um Access dispara emails automátivos, pelo Outlook, mas cada email o usuário é obrigado a confirmar as mensagens de segurança do Outlook ( security warnings ).
    Até sei como desabilitar a mensagem entrando no Outlook, mas não posso fazer isso para as dezenas de usuários que irão usar. Precisa fazer via código VB. ALguém sabe onde buscar isso.
    segue meu código de envio:

    Function EMAIL_TESTE()

    EMAIL_1 = "MEU_EMAIL@GMAIL.COM"
    '---------------
    'Sub SendMessage()
    Dim objOutlook As Outlook.Application
    Dim objOutlookMsg As Outlook.MailItem
    Dim objOutlookRecip As Outlook.Recipient
    Dim objOutlookAttach As Outlook.Attachment
    Set objOutlook = CreateObject("Outlook.Application")
    Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
    '----------------------------------------------------------------------------------
    With objOutlookMsg
    Set objOutlookRecip = .Recipients.Add(EMAIL_1)
    objOutlookRecip.Type = olTo
    '----------------------------------------------------------------------------
    CORPO = "EMAIL AUTOMÁTICO!!!"
    CORPO = CORPO & Chr(13) & "TESTANDO ENVI ODE EMAIL"

    .Subject = "TESTE - IGNORAR - ENVIO AUTOMÁTICO"
    .Body = CORPO & vbCrLf & vbCrLf
    .Importance = olImportanceHigh 'High importance
    .Save
    .Send
    End With
    '----------------------------------------------------------------------------------
    Set objOutlook = Nothing
    EMAIL_1 = ""
    End Function

      Data/hora atual: 18/11/2018, 19:21