Hallo zusammen,
ich will ganz banal eine Adressdatei in Excel in Outlook bringen. Das möchte ich eigentlich mit der Import-Excel Funktion von Outlook (Office XP) machen. Dabei sagt mir Outlook aber immer, dass ich den zu importierenden Datenberich definieren müsse. In der Excel Hilfe nachgeschaut und gemacht. Dann aber zeigt er mir beim Importieren immer nur ein Feld als einen Datensatz an, also bspw. das email oder Namensfeld Feld als eigene Datensatz. Was läuft da falsch?
Kennt jemand Abhilfe?
Gruß
Christoph
probier mal dieses Modul
ACHTUNG: es muss ein Tabellenblatt mit dem Namen "Kontaktdaten "vorhanden sein
Sub KontakteVonOutlook()
Dim Verz As Object
Dim i As Integer
Dim olMAPI As New Outlook.Application
Dim objItem As Object
ActiveSheet.Name = „Kontaktdaten“
Range(„A1“).Select
Set Verz = olMAPI.GetNamespace(„MAPI“).GetDefaultFolder(olFolderContacts)
For i = 1 To Verz.Items.Count
Set objItem = Verz.Items(i)
With objItem
ActiveCell.Value = .FirstName
ActiveCell.Offset(0, 1).Value = .LastName
ActiveCell.Offset(0, 2).Value = .BusinessAddressStreet
ActiveCell.Offset(0, 3).Value = .BusinessAddressPostalCode
ActiveCell.Offset(0, 4).Value = .BusinessAddressCity
ActiveCell.Offset(0, 5).Value = .BusinessAddressCountry
ActiveCell.Offset(0, 6).Value = .BusinessAddressState
ActiveCell.Offset(0, 7).Value = .Email1Address
End With
ActiveCell.Offset(1, 0).Select
Ups
Hi und danke, aber gibt´s auch ne Erklärung für Trottel?
Ich weiss nicht mal was das alles darstellen soll und wohin ich sowas schreiben müßte.
M.M. nach muss es da doch eine einfache Lösung geben. Umgekehrt von Outlook in Excel ist es doch auch ein Kinderspiel.
Gruß
C.
den Code den du hier siehst ist ein sogenannter „Sourcecode“[Makro]
geh mal auf: Extras-Makros-Visuakbasiceditor.
im darauffolgenden Dialogfeld im Bereich Projektexplorer: rechte Maustaste-Einfügen -Modul.
nun kopier den Sourcecode[ab sub ) in dieses Modul.
erzeug ein Tabellenblatt Namens"Kontaktdaten".
dann:Extras-Makros-Makroauswählen und auf ausführen.
Danke für die Hilfe, ich habe es mit einem anderen Tip inzwischen ganz einfach geschafft. Ich habe einfach den gesamten Bereich benannt und nicht die einzelnen spalten. Da lag der fehler. und nun, schwupps konnte oultook alles lesen und es hat wunderbar funktioniert. ich musste nur die benutzerfelder umbenennen und alles war da.
Gruß
C.