Excel-Daten in Outlook einlesen



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Excel-Daten in Outlook einlesen
von: TF
Geschrieben am: 15.05.2002 - 11:16:35

Hallo,

kann man eine komplette Adressenliste mit allen Daten in Outlook bzw Outlook Express einlesen?


MS Excel von TF
 ABCDEFGHIJK
1NameVornameStraßePLZOrtTelefonTelefaxHandyEmailhttpBemerkung


Bin für alle Hinweise dankbar.

Gruß

TF

nach oben   nach unten

Re: Excel-Daten in Outlook einlesen
von: mathias r.
Geschrieben am: 15.05.2002 - 11:35:12

In Outlook gibt es den Menüpunkt DATEI | IMPORTIEREN.
Dort ersten Eintrag wählen "Import aus Schedule+ oderen anderen Programmen/Dateien"
Dann Excel auswählen.
Wie der genaue Aufbau der Datei sein muß, siehst du wenn du erst aus Outlook einen Export durchführst.

nach oben   nach unten

Re: Excel-Daten in Outlook einlesen
von: TF
Geschrieben am: 15.05.2002 - 13:08:49

Hallo Matthis,

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

nach oben   nach unten

Re: Excel-Daten in Outlook einlesen
von: BerndR
Geschrieben am: 15.05.2002 - 14:37:16

Hallo TF,
vielleicht den zu importierenden Bereich vorher in Excel markieren ?
Gruss BerndR

nach oben   nach unten

Re: Excel-Daten in Outlook einlesen
von: mathias r.
Geschrieben am: 15.05.2002 - 14:37:58

Habe ich selber noch nicht gemacht.
Klink mich deshalb aus.
Viel Erfolg noch.

nach oben   nach unten

Re: Excel-Daten in Outlook einlesen
von: TF
Geschrieben am: 15.05.2002 - 15:06:42

Hi Bernd,

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


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Excel-Daten in Outlook einlesen"