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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen