106543
Apr 19, 2013
13570
6
0
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.
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)
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
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 = Nothingder 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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 205276
Url: https://administrator.de/contentid/205276
Printed on: April 18, 2024 at 10:04 o'clock
6 Comments
Latest comment
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
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
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/
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
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,
Gruß,
Peter
Zitat von @106543:
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> Set Outlook = CreateObject("Outlook.Application") Gruß,
Peter
Hi,
und da liegt der Hund begraben, weil ich keine Installationen ansetzen kann
bin nur ein armer, kleiner Azubi ;D und soll ein Tool basteln, was automatisiert eine Mail verschickt.
Grüße
Exze
und da liegt der Hund begraben, weil ich keine Installationen ansetzen kann
bin nur ein armer, kleiner Azubi ;D und soll ein Tool basteln, was automatisiert eine Mail verschickt.
Grüße
Exze
