Hallo!
Ich habe eine eMail-Anwendung programmiert. Nun möchte ich, dass bei einem Click auf einen Button, das voreingestellte Adressbuch erscheint (z.B. das von Outlook). Soweit so gut. Nun möchte ich aber die Namen, die der Benutzer (unter „AN“) auswählt in ein Textfeld (txtSendTo) übertragen. Mit welcher Eigenschaft, kann ich also die Namen der ausgewählten Empfänger bekommen?
Private Sub cmdAdressbuch_Click()
’ Zeigt das Adressbuch an
MAPIMessages1.Show False
'Welche Eigenschaft ist die richtige, oder geht das anders??
Text1.Text = MAPIMessages1.
End Sub
Hi Patrick,
das Outlook-Adressbuch bekommt man leider nicht über das Outlook-Objekt (hätte ich nämlich selber gebraucht). Das funktioniert über die CDO.DLL: http://msdn.microsoft.com/library/psdk/cdo/oleobjaf_…
(CDO.dll ist bei Outlook 98, 2000 und ExchangeServer dabei)
Das Coding sieht dann grob ungefähr so aus:
(Dazwischen fehlen natürlich jede Menge Error-Abfragen!!)
'-------------------------------------------
Dim objMAPISession As MAPI.Session
Dim objRecipients As Recipients
Dim objRecipient As Recipient
Set objMAPISession = New MAPI.Session
Call objMAPISession.Logon
Set objRecipients = objMAPISession.AddressBook(RecipLists:=1, Title:=„Benutzer auswählen“, ToLabel:=„diese(n) wählen“)
For Each objRecipient In objRecipients
Debug.Print objRecipient.Name; objRecipient.Address
Next objRecipient
'-------------------------------------------
Habe früher die CDO.DLL auch für andere Dinge verwendet … funktionierte eigentlich … Probleme sind dann im Detail entstanden und bin deswegen wieder zum Outlook-Objekt gegangen … außerdem ist das Outlook-Objekt viel einfach zu „bedienen“.