Supportnet / Forum / Datenbanken
Kontaktdaten von Access nach Outlookübertragen
Frage
Hallo,
Ich würde gerne Kontaktdaten von Access nach Outlook übertragen aber es kommt gleich in folgender Zeile
Dim DBS As New ADODB.Recordset
die Fehlermeldung: "Benutzerdefinierter Typ nicht definiert"
Der Verweis auf die Microsoft DAO 3.6 Object Libary ist eingebunden. An was könnte das noch liegen?
Hier der Code:
Sub Outlook_Click()
Dim appOutLook As Outlook.Application
Dim conoutlook As Outlook.ContactItem
Dim DBS As New ADODB.Recordset
Dim intz As Integer
Set appOutLook = CreateObject("Outlook.Application.11")
DBS.Open "Kontakte", CurrentProject.Connection
intz = 0
On Error GoTo fehler
Do While Not DBS.EOF
Set conoutlook = appOutLook.CreateItem(olContactItem)
conoutlook.Display
With conoutlook
.LastName = DBS!Nachname
.FirstName = DBS!Vorname
.BusinessAddressStreet = DBS!Straße
.BusinessAddressPostalCode = DBS!PLZ
.BusinessAddressCity = DBS!Ort
.BusinessAddressState = DBS!Bundesland
.BusinessTelephoneNumber = DBS!Telefon
.BusinessFaxNumber = DBS!Fax
.Birthday = DBS!Geburtsdatum
.Email1Address = DBS!Mail
.Save
intz = intz + 1
DBS.MoveNext
End With
Loop
MsgBox "Es wurden " & intz & " Kontakte übertragen!"
DBS.Close......................
Vielen Dank für eure Bemühungen!
Antwort 1 von Loki2
Hi,
Wenn´s eine einmalige Sache ist, könntest Du die Adress-Tabelle ja mal in eine Excel-Datei exportieren. Das sollte auf jeden Fall klappen.
Wenn´s eine einmalige Sache ist, könntest Du die Adress-Tabelle ja mal in eine Excel-Datei exportieren. Das sollte auf jeden Fall klappen.
Antwort 2 von FOCO
Hallo Loki2,
Leider hilft mir das nicht viel, denn ich will die Funktion fix einbauen, da diese oft verwendet werden wird.
Darum würde ich das Ganze gerne automatisieren!
Hat vielleicht sonst noch wer eine Idee?
Trotzdem Danke!
Leider hilft mir das nicht viel, denn ich will die Funktion fix einbauen, da diese oft verwendet werden wird.
Darum würde ich das Ganze gerne automatisieren!
Hat vielleicht sonst noch wer eine Idee?
Trotzdem Danke!