Versenden von E-Mails aus Excel mit Outlook ohne Sicherheitswarnung

Bin ich mit dem code von Ron de Bruin, die website zum senden von E-Mails über Excel mit Outlook. Bekomme ich diese Sicherheit Warnung "Ein Programm versucht, auf das senden von e-mail-Nachricht in Ihrem Namen" bat mich, zu erlauben oder zu verweigern.

Wie kann ich vermeiden diese Warnung und senden Sie E-Mails direkt"

Hinweis: ich verwende Excel 2007.

Hier ist der code:

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim cell As Range

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

Sheets("" & Sheet & "").Select
With Sheets("" & Sheet & "")
    strbody = ""
End With

On Error Resume Next
With OutMail
    .To = " [email protected]"
    .CC = ""
    .BCC = ""
    .Subject = ""
    .Body = strbody
    .From = ""
    .Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

' restore default application behavior
Application.AlertBeforeOverwriting = True
Application.DisplayAlerts = True
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
  • Finden Sie die Antwort auf eine ähnliche Frage here
InformationsquelleAutor user2800204 | 2014-01-09
  1. 1

    Zusätzlich zu den beschriebenen Methoden in den link aus dem Kommentar, vorausgesetzt, Sie sind der Absender "...bat mich, zu erlauben oder zu verweigern", wenn Sie Excel läuft, können Sie Outlook bereits läuft auch.

    Der einfachste Weg wäre: 

    Set OutApp = GetObject(, "Outlook.Application")
    InformationsquelleAutor niton
  2. 0

    Fand ich den folgenden code irgendwo im internet vor ein paar Jahren. Automatisch Antworten 'ja' für Sie. 

    Option Compare Database
    ' Declare Windows' API functions
    Private Declare Function RegisterWindowMessage _
            Lib "user32" Alias "RegisterWindowMessageA" _
            (ByVal lpString As String) As Long

     Private Declare Function FindWindow Lib "user32" _
                Alias "FindWindowA" (ByVal lpClassName As Any, _
                ByVal lpWindowName As Any) As Long


    Private Declare Function SendMessage Lib "user32" _
            Alias "SendMessageA" (ByVal hwnd As Long, _
            ByVal wMsg As Long, ByVal wParam As Long, _
            lParam As Any) As Long


    Function TurnAutoYesOn()
    Dim wnd As Long
    Dim uClickYes As Long
    Dim Res As Long
    uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")
    wnd = FindWindow("EXCLICKYES_WND", 0&)
    Res = SendMessage(wnd, uClickYes, 1, 0)

    End Function

    Function TurnOffAutoYes()
    Dim wnd As Long
    Dim uClickYes As Long
    Dim Res As Long
    uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")
    wnd = FindWindow("EXCLICKYES_WND", 0&)
    Res = SendMessage(wnd, uClickYes, 0, 0)
    End Function


    Function fEmailTest()

    TurnAutoYesOn  '*** Add this before your email has been sent



    Set appOutLook = CreateObject("Outlook.Application")
    Set MailOutLook = appOutLook.CreateItem(olMailItem)
    With MailOutLook
        .To = " <[email protected]>;  <[email protected]"
        .Subject = "Your Subject Here"
        .HTMLBody = "Your message body here"
        .Send
    End With

    TurnOffAutoYes '*** Add this after your email has been sent

    End Function
    • Ist das ClickYes Anwendung erforderlich? contextmagic.com/express-clickyes
    • Nein, es ist nicht. Ich habe den Schlag in meinen Erklärungen. Option Compare Database Public Declare-Funktion RegisterWindowMessage _ Lib "user32" Alias "RegisterWindowMessageA" _ (ByVal lpString As String) As Long Public Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" (ByVal lpClassName As Any, _ ByVal lpWindowName As Any) As Long Public Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long
    • das gibt noch einen compile-Fehler bei Option Compare Database Sie haben eine Lösung für dieses?
    • Nur meinem ursprünglichen post bearbeitet, um hinzufügen von Deklarationen.
    • Könntest du die Erklärungen auf deine Antwort here als gut?
    • Ich habe gerade die Erklärungen zu dem anderen thread.

    InformationsquelleAutor Julia Grant
Schreibe einen Kommentar