danke aber ich dachte eher na eine VBA-Lösung. Mit dieser version kommt ständig ein Fehler: "Die Excel-Datei beinhalte keine Bereichsangaben. Definieren Sie den zu importierenden Bereich"
Was mache ich falsch??
TF
geht leider auch nicht.
Ich habe was gefunden, doch das funkt nicht richtig. Kommt immer einen Fehler (Variable nicht definiert).
Vielleicht kann da jemand lösen ...
Sub AdressenNachOutlook()
Dim appOutLook As Outlook.Application
Dim conoutlook As Outlook.ContactItem
Set appOutLook = CreateObject("Outlook.Application")
Range("A2").Select
Do Until ActiveCell.Value = ""
Set conoutlook = appOutLook.CreateItem(olContactItem)
With conoutlook
.FirstName = ActiveCell.Value
.LastName = ActiveCell.Offset(0, 1).Value
.BusinessAddress = ActiveCell.Offset(0, 2).Value & ", " & ActiveCell.Offset(0, 3).Value
.BusinessAddressCountry = ActiveCell.Offset(0, 4).Value
.BusinessAddressPostalCode = ActiveCell.Offset(0, 5).Value
.BusinessAddressState = ActiveCell.Offset(0, 6).Value
.Email1Address = ActiveCell.Offset(0, 7).Value
.HomeTelephoneNumber = ActiveCell.Offset(0, 8).Value
.BusinessTelephoneNumber = ActiveCell.Offset(0, 9).Value
.BusinessFaxNumber = ActiveCell.Offset(0, 10).Value
.Birthday = ActiveCell.Offset(0, 11).Value
.Save
End With
ActiveCell.Offset(1, 0).Select
Loop
Set conoutlook = Nothing
Set appOutLook = Nothing
End Sub