Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

E-mail versenden mit MAPI
Autor: Mike
Datum: 11.10.02 18:56
Hi Leute, möchte mit MAPI Control ein e-mail über Outlook versenden. Dazu hab ich mit dasTool bei Tipps und Tricks angesehen. Jetzt möchte ich aber zuerst Outlook öffnen, das E-mail senden und wenn es gesendet ist Outlook wieder schlissen. Wie kann man erkennen ob das mail gesendet ist. Hier der bisherige Quelltext (Problem -> es wird mit dem Schliessen von Outlook nicht gewartet bis das mail gesendet ist) Könnte mir jem den Text vervollständigen Danke im voraus Mike Dim x 'Outlook öffnen x = Shell("C:\programme\microsoft office\office\outlook.exe", vbNormalFocus) With MAPISession1 .UserName = "Egon" .Password = "hhh" .SignOn MAPIMessages1.SessionID = .SessionID End With With MAPIMessages1 .MsgIndex = -1 .RecipAddress = "Ich@gmx.de" .MsgSubject = "nurso" .MsgNoteText = "Hallo" .ResolveName .Send End With 'durch Tastaturcode (F5) einwählen (senden/empfangen) AppActivate x SendKeys "{F5}", True DoEvents MAPISession1.SignOff 'Outlook schließen AppActivate x SendKeys "%{F4}", True

E-mail versenden mit MAPI

105

Mike

11.10.02 18:56

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