Zugriff mit Acc2010 auf ALLE Felder in Outlook-Kontakte

22/01/2014 - 12:55 von z10413058 | Report spam
Hallo,

ich habe in Outlook 2010 einen Kontakteordner mit einigen selbst erstellten Feldern wie z.B. (Checkboxen): Berater, Anspsrechpartner oder Vermittler. Ferner nutze ich die Kategorien in Outlook sehr stark.

Jetzt möchte ich mit Access auf ALLE Felder in meinem Kontakteordner zugreifen. Ich kann über den Wizzard zwar die hàufigsten felde rsheen, aber nicht die selbst erstellten.

Hat jemand eine Idee, wo ich eine Doku finde, wie ich alle Outlook-Felder aus Access heraus ansprechen kann?

cu
Thomass
 

Lesen sie die antworten

#1 Wolfgang Badura
23/01/2014 - 02:15 | Warnen spam
Hallo Thomas!

Hat jemand eine Idee, wo ich eine Doku finde, wie ich alle Outlook-Felder
aus Access heraus ansprechen kann?



Schau unter
http://msdn.microsoft.com/en-us/lib...66465.aspx
http://msdn.microsoft.com/en-us/lib...68893.aspx
http://msdn.microsoft.com/en-us/lib...61520.aspx

Es ist nervenaufreibend via Access mit OL zu arbeiten und erfordert sehr
gute VBA-Kenntnisse.

Wolfgang

PS: Ein Beispiel für die Ermittlung einer UserProperty im Termine-Ordner

Public Sub TermineLoeschen()
Dim objAppointment As Outlook.AppointmentItem
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim objUserProperty As Outlook.UserProperty
Dim lngTerminID As Long
Set db = CurrentDb
Set rst = db.OpenRecordset("tblTermine", dbOpenDynaset)
For Each objAppointment In GetAppointmentFolder.Items
With objAppointment
lngTerminID = 0
On Error Resume Next
lngTerminID = .UserProperties.Item("TerminID").Value
On Error GoTo 0
If lngTerminID > 0 Then
rst.FindFirst "TerminID = " & lngTerminID
If rst.NoMatch Then
.Delete
End If
End If
End With
Next objAppointment
rst.Close
Set rst = Nothing
Set db = Nothing
End Sub

Ähnliche fragen