Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Klar geht das!
Autor: Ecki007
Datum: 06.08.02 14:59
Habs zwar Alexander schon gemailt, aber vielleicht intressierts ja noch jemanden. Dazu benötigt man die MAPI-Steuerelemnte. Private Sub Form_Load() Dim i As Long With Form1 '*** MAPI-Session öffnen *** .MAPISession1.Action = 1 '*** Verweis MAPI-Messages = MAPI-Session *** .MAPIMessages1.SessionID = .MAPISession1.SessionID '*** keine Bearbeitungselemente - nur durchsuchen zulässig *** .MAPIMessages1.AddressEditFieldCount = 1 '*** Caption-Eigenschaft des Adressbuch-Fensters ändern *** .MAPIMessages1.AddressCaption = "Mitarbeiter auswählen" '*** Captione-Eigenschaft des "AN->"-Buttons ändern *** .MAPIMessages1.AddressLabel = "auswählen" '*** Mail erzeugen (als Zwischenspeicher) .MAPIMessages1.Compose '*** Adressbuch aufrufen *** .MAPIMessages1.Show For i = 0 To .MAPIMessages1.RecipCount - 1 .MAPIMessages1.RecipIndex = i txtName.Text = txtName.Text & .MAPIMessages1.RecipDisplayName & vbCrLf '*** Wenn man die Email-Adresse haben will ' txtName.text = txtName.Text & .MAPIMessages1.RecipAddress Next i '*** Session schließen *** .MAPISession1.Action = 2 End With End Sub

Outlook	79	Alexander	06.08.02 12:04
Das geht nicht....	115	Thomas	06.08.02 12:58
Re: Das geht nicht....	50	keine frage	06.08.02 14:15
Re: Klar geht das!	71	Ecki007	06.08.02 14:59
DANKE!!!!	49	Alexander	06.08.02 16:09

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