none
MIt Access VBA Outlook Kontakte ändern

    Frage

  • Hallo zusammen,

    wer kann mir helfen. Ich suche einen Code mit dem ich von Access aus die Mailadresse in Outlook lesen und ändern kann.

    Bisher habe ich folgendes:

    Dim olAnwendung As Outlook.Application
    Dim olNamespace As Outlook.NameSpace
    Dim olKontaktordner As Outlook.MAPIFolder
    Dim olKontakte As Outlook.Items
    Dim olKontakt As Outlook.ContactItem
    Set olAnwendung = Outlook.Application
    Set olNamespace = olAnwendung.GetNamespace("MAPI")
    Set olKontaktordner = olNamespace.GetDefaultFolder(olFolderContacts)
    Set olKontakte = olKontaktordner.Items
    Debug.Print olKontaktordner.Name

    Was mir nicht gelingt ist, die einzelnen Felder in OL anzusprechen.

    Freitag, 11. April 2014 09:47

Alle Antworten

  • Hallo,

    das Auslesen sollte dann etwa so funktionieren:

    Dim oItem As Object
    
    For Each oItem In olKontaktordner.Items
        If (oItem.Class = olContact) Then
            Set olKontakt = oItem
    
            Debug.Print olKontakt.Email1Address
        End If
    Next oItem


    Freitag, 11. April 2014 11:17