Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBA - automatischer Mailversand (Sicherheitsprüfung umgehen)

Frage Entwicklung VB for Applications

Mitglied: 106543

106543 (Level 2)

19.04.2013 um 10:10 Uhr, 7287 Aufrufe, 6 Kommentare

Hi Leute,

habe folgendes Problem, bei meinem eigenen automatischen Mailversand ;)
Und zwar habe ich eine Mail-Automatisierung in einen VBA-Quellcode eingebunden.
01.
Dim sAbsender As String 
02.
Dim Outlook As Object 
03.
Set Outlook = CreateObject("Outlook.Application") 
04.
 
05.
sAbsender = [ABSENDER ON BEHALF] 
06.
With Outlook.createitem(0) 
07.
    .SentOnBehalfOfName = sAbsender 
08.
    .Recipients.Add sEmpfänger 
09.
    .Subject = sBetreff 
10.
    .Body = sNachricht 
11.
    .ReadReceiptRequested = False 
12.
    .display 
13.
End With 
14.
 
15.
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)
01.
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
Mitglied: colinardo
19.04.2013, aktualisiert 15.10.2014
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
Bitte warten ..
Mitglied: 106543
19.04.2013 um 12:19 Uhr
Hi Colinardo,

leider handelt es sich um Outlook 2003 und einen XP-PC
kennst du eine andere Möglichkeit ?

Grüße
Exze
Bitte warten ..
Mitglied: colinardo
19.04.2013 um 12:35 Uhr
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/
Bitte warten ..
Mitglied: 106543
19.04.2013 um 12:46 Uhr
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
Bitte warten ..
Mitglied: Pjordorf
19.04.2013 um 15:02 Uhr
Hallo,

Zitat von 106543:
01.
> 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
Bitte warten ..
Mitglied: 106543
22.04.2013 um 10:19 Uhr
Hi,

Zitat von Pjordorf:

CDO muss bei Office 2003 Manuell nachinstalliert werden

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
Bitte warten ..
Ähnliche Inhalte
XML
gelöst Kein automatisches Backup über Button VBA (2)

Frage von Knuefi zum Thema XML ...

VB for Applications
gelöst VBA - Automatisches Entpacken von Zipordnern (6)

Frage von it4baer zum Thema VB for Applications ...

Entwicklung
Wie mit Benutzerdaten umgehen? (4)

Frage von Yanmai zum Thema Entwicklung ...

Batch & Shell
gelöst VBA Editor öffnet sich automatisch jeweils nach Entsperren der Benutzersitzung (5)

Frage von evinben zum Thema Batch & Shell ...

Neue Wissensbeiträge
Viren und Trojaner

Neues Botnetz über IoT-Geräte

Information von certifiedit.net zum Thema Viren und Trojaner ...

Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Externe IP von innen erreichbar machen (15)

Frage von Windows10Gegner zum Thema Router & Routing ...

Windows Installation
Windows 10 neu installieren (12)

Frage von imebro zum Thema Windows Installation ...

Windows Server
Frage zu Server Rack (11)

Frage von rainergugus zum Thema Windows Server ...