ich habe mal eine Frage zu den Kontakten in Outlook. Ich möchte gerne aus einer Tabelle die von mir gepflegten Kontakte mittels VBA in Outlook importieren. Ich habe mal versucht das Problem auf ein minimum zu reduzieren. D.h. die Schleifen fehlen noch,
Quelle:
Dim oOutlook, oFolder, oContact, oContacts, oWindow As Object
Set oOutlook = CreateObject("Outlook.Application")
Set oFolder = oOutlook.Session.GetDefaultFolder(10)
Debug.Print oFolder 'Ergebnis: Kontakte = OK
Set oContact = oFolder.Items.Add(1)
With oContact
.Body = "Vorname1"
.Display 'Ergebnis:Öffnet einen neuen TERMIN und im Textkörper steht:Vorname1?
End With
'Objekte frei geben----------------------------------------------------------------------------
Set oOutlook = Nothing
Set oFolder = Nothing
Set oContact = Nothing
Leider öffnet er mir nicht einen Kontakt, sondern einen Termin?
mfg
Matthias