none
tirar mensagem de alerta do outlook - envio de email RRS feed

  • Pergunta

  • estou enviando email através do o outlook 2007 do office. e toda vez que é enviado o email aparece a seguinte mensagem: programa tentando enviar email em seu nome. Se isso for inesperado, clique em negar e verifique se o software...

    eu sei que pelo outlook eu consigo desabilitar isso, porém, tenho que fazer via código. alguém sabe como posso fazer isso? segue meu código do envio de email: 

    Sub EnviarEmail()
    
            On Error GoTo fechar
    
            Dim oOutL As Outlook.Application
            'Dim oMail As Outlook._MailItem
            Dim oMail As Outlook.MailItem
    
            oOutL = CreateObject("Outlook.Application")
            oMail = oOutL.CreateItem(Outlook.OlItemType.olMailItem)
    
            With oMail
    
                .UnRead = True
                .To = Me.TextBox1.Text
                .Subject = "My Subject"
                .Body = Me.TextBox2.Text
                .BodyFormat = Outlook.OlBodyFormat.olFormatHTML
    
                '.SendKeys("% {s}", True)
    
    
                .Send()
    
            End With
    
            oOutL = Nothing
            oMail = Nothing
    
    fechar:
    
            If Err.Number = 0 Then
                MsgBox("Uma copia do relatorio foi enviado com Sucesso!", MsgBoxStyle.Exclamation, "by Edmilson Hora")
            Else
                MsgBox("O Relatorio nao pode ser enviado.")
            End If
    
            Err.Number = 0
    
        End Sub

    terça-feira, 30 de outubro de 2012 22:09