Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Outlooksicherheitsmeldung beim Versenden einer automatischen Email
Autor: luebke
Datum: 23.04.07 10:50
Moin zusammen! Mein Programm benötigt die Funktionalität eine automatisch generierte Email zu versenden. Ich habe mehrere Varianten getestet. Public Sub send_mail_via_Outlook() Dim olApp As Object Dim oItem As Object Set olApp = CreateObject("Outlook.Application") Set oItem = olApp.CreateItem(0) With oItem .Subject = "Betreff-Zeile" .To = "slimke@nwb.de" .Body = "Dies ist ein Test." .send End With End Sub Public Sub send_mail_via_MAPI() On Error GoTo error_handle 'MAPI-Session starten frmMain.MAPISession1.SignOn frmMain.MAPIMessages1.SessionID = frmMain.MAPISession1.SessionID With frmMain.MAPIMessages1 .Compose 'neue Nachricht .MsgSubject = "BETREFF-ZEILE" .MsgNoteText = "TEXT" .RecipIndex = 0 'Index des Empfängers, weiter mit 1...2...etc .RecipType = mapToList 'Der Empfänger ist Primär-Empfänger .RecipDisplayName = "slimke@nwb.de" 'Empfänger Adresse .send False 'Outlook nicht extra aufrufen End With frmMain.MAPISession1.SignOff Exit Sub error_handle: MsgBox Err.Description & Chr(9) & Err.Number, vbCritical End Sub und zusätzlich das Versenden via Winsock...alle 3 Varianten führen zum selben Ergebnis! Es kommt diese Outlooksicherheitsmeldung, das ein anderes Programm versucht automatische Emails zu verschicken....und 10 Sekunden Wartezeit! Die Mails müssen aber vollkommen automatisch versendet werden... Hat jemand eine Idee wie ich das Problem umgehen kann? Genutzt wird Outlook 2003 + VB 6 (SP6) Professional

Outlooksicherheitsmeldung beim Versenden einer automatischen...	764	luebke	23.04.07 10:50
Re: Outlooksicherheitsmeldung beim Versenden einer automatis...	825	me36835	24.04.07 18:59

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen