VBA - automatischer Mailversand (Sicherheitsprüfung umgehen)

Hi Leute,

habe folgendes Problem, bei meinem eigenen automatischen Mailversand ;)
Und zwar habe ich eine Mail-Automatisierung in einen VBA-Quellcode eingebunden.

Dim sAbsender As String
Dim Outlook As Object
Set Outlook = CreateObject("Outlook.Application")  

sAbsender = [ABSENDER ON BEHALF]
With Outlook.createitem(0)
    .SentOnBehalfOfName = sAbsender
    .Recipients.Add sEmpfänger
    .Subject = sBetreff
    .Body = sNachricht
    .ReadReceiptRequested = False
    .display
End With

Set Outlook = Nothing

der Code funktioniert einwandfrei, die Mail wird auch erstellt und angezeigt, wie ich es will, allerdings kommt bei mir jedes mal die Abfrage (vor dem Anzeigen)

Ein Programm versucht auf Ihre in Outlook gespeicherten E-Mail-Adressen zuzugreifen. Möchten Sie dies erlauben?

Dort kann ich nur auswählen, dass der Zugriff für maximal 10 min erlaubt sein soll.
Gibt´s da irgend ein Workaround oder eine Möglichkeit, das abzustellen?

Grüße
Exze

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 205276

Url: https://administrator.de/contentid/205276

Ausgedruckt am: 26.11.2024 um 03:11 Uhr

6 Kommentare

Neuester Kommentar

HI Exzellius,
welche Outlook-Version verwendest du ?
Ab Outlook 2007 hast du in den Optionen von Outlook > Sicherheitscenter > Programmgesteuerter Zugriff die Möglichkeit die Warnmeldungen abzuschalten.

Grüße Uwe

Hi Colinardo,

leider handelt es sich um Outlook 2003 und einen XP-PC

kennst du eine andere Möglichkeit ?

Grüße
Exze

Wenn du dein Outlook über Exchange nutzt könnte folgendes helfen:
http://support.microsoft.com/kb/263297/en-us

ansonsten gibt es glaub ich nur eine Lösung über zusätzliche Plugins:
http://mapilab.com/de/outlook/security/

Hi Colinardo,

danke für die Mühe

nein kein Exchange leider und externe Tools fallen auch flach.
Naja werd mich wohl damit abfinden müssen, dass die User hier öfters mal klicken müssen und angesichts der Arbeit, die ich ihnen abnehme durch das Tool solllten sie sich lieber nicht bschweren ;)

Grüße
Exze

/SOLVED

Hallo,

Zitat von @106543:

> Set Outlook = CreateObject("Outlook.Application")

Hier wird die Sicheheitsfrage getriggert.

Nutze CDO anstelle von MAPI. Siehe auch http://support.microsoft.com/kb/161833/de oder http://www.msxfaq.de/code/mapicdo.htm. CDO muss bei Office 2003 Manuell nachinstalliert werden sofern du eben nicht bei der Office Installation "alles von Arbeitsplatz ausführen" gewählt hast. wenn du noch eine Dienst daraus machst dann bleibt die Sicherheitsfrage garantiert weg. Excel VBA Beispiel um per (CDO) SMTP und somit ohne Sicherheitsfrage ein Mail zu senden http://www.rondebruin.nl/win/s1/cdo.htm. Unter nutzung einer anderen MAPI ist es auch möglich, Redemption ist dein Suchbegriff, ist aber Fremdsoftware http://www.dimastr.com/redemption/home.htm

Gruß,
Peter