Mapi-Adressbuch anzeigen und Adressenauswahl erkennen

05/05/2010 - 08:17 von Ahmed Martens | Report spam
Hallo Leute,

gibt es eine Möglichkeit für jeglichen Mail-Client sich das Adressbuch
per Button anzeigen zu lassen und die ausgewàhlten Adressen auszulesen?

Für Outlook habe ich den Programmcode. Wenn ich aber z. B. auf Outlook
Express als Standard umstelle, dann erhalte ich immer eine
Hinweismeldung, dass ich auf OL umschalten soll.

Ich möchte aber vollkommen unabhàngig sein.

Kann mir da einer dabei vielleicht helfen?
Vielen Dank schon einmal im voraus.

Hier mein bisheriger Code:

<Code>

Public Function GetMailadresse() As String
On Error Resume Next

Dim objSession As Object
Dim objRecipients As Object
Dim objRecipient As Object
Dim objAdressEntry As Object
Dim lngCount As Long

Set objSession = CreateObject("MAPI.Session")
Call objSession.Logon(, , False, False)
Set objRecipients = objSession.AddressBook(, "Empfànger auswàhlen", , , 1, "übernehmen")
If Err.Number = 0 Then
For lngCount = 1 To objRecipients.Count
Set objRecipient = objRecipients.Item(lngCount)
Set objAdressEntry = objRecipient.AddressEntry
GetMailadresse = GetMailadresse & objAdressEntry.Address & " + " 'nur Mailanschrift
Next
End If
GetMailadresse = Left$(GetMailadresse, Len(GetMailadresse) - Len(" + "))
Set objSession = Nothing
Set objRecipients = Nothing
Set objRecipient = Nothing
Set objAdressEntry = Nothing

End Function

</Code>

Gruß Ahmed
Antworten bitte nur in der Newsgroup.
 

Lesen sie die antworten

#1 Ahmed Martens
05/05/2010 - 10:04 | Warnen spam
So ich habe es jetzt herausgefunden.

Man muss vorher ein Session eröffnen und dann erst kann man alles
auslesen.

Hier mein Code:

<Code>
With MAPISessionOL

.SignOn

' SessionID
MAPIMessagesOL.SessionID = .SessionID
End With

' Mail senden
With MAPIMessagesOL
' Neue Nachricht
.Compose
.AddressCaption = "Empfànger auswàhlen"
.Show



For lngCount = 0 To .RecipCount - 1
.RecipIndex = lngCount
'nur Mailanschrift
GetMailadresse = GetMailadresse & .RecipAddress & " + "
Next


End With

</Code>

Gruß Ahmed
Antworten bitte nur in der Newsgroup.

Ähnliche fragen