Access 2010 - .Categorie (Name und Farbe) auslesen aus Outlook und ins Listfeld einlesen...

Question

Hier ein Stück Code vba:

Access 2010 - .Categorie (Name und Farbe) auslesen aus Outlook und ins Listfeld einlesen... wer kann weiter helfen...

Thomas Meier

-----------------------------------------------------------------

Private Sub cmdOutlookTermin_Click()

    Dim ol As Outlook.Application
    Dim olApp As AppointmentItem
   'Creates an appointment item to access ShowCategoriesDialog
    Dim appolApp As Outlook.Application
    Dim olApptItem As Outlook.AppointmentItem
   '----------------------------------------------------------
    Dim strAnrede As String
    Dim strVorname As String
    Dim strNachname As String
    Dim strName As String
    Dim strBesonderheit As String
    'Noch weitere Dim Eintragungen hier setzten... TM 13.02.2012
    'Dim Ganztags As String
    'Dim AllDayEvent As String
    'Dim Datum As Date
   
   'Create an instance of the application
    Set appolApp = New Outlook.Application
    'Create appointment item
    Set olApptItem = appolApp.CreateItem(olAppointmentItem)
    '----------------------------------------------------------
   
    ' Verbindung zu Outlook herstellen  TM 12.02.2012
    Set ol = CreateObject("Outlook.Application")
    ' Ankündigen, dass eine Aufgabe erstellt werden soll TM 12.02.2012
    Set olApp = ol.CreateItem(olAppointmentItem)
     '######Create appointment item
    Set olApptItem = appolApp.CreateItem(olAppointmentItem)
   
    strAnrede = Forms("Kunden_Termine")("Anrede")
    strVorname = Forms("Kunden_Termine")("Vorname")
    strNachname = Forms("Kunden_Termine")("Nachname")
    strName = LTrim(strAnrede & " ") & LTrim(strVorname & " ") & strNachname
    strBesonderheit = Forms("Kunden_Termine")("Besonderheiten")
    'Noch fehlende Infos für den Service hier eintragen... TM 13.02.2012

  With olApp
      ' Betreff einfügen
      .Subject = strName
      ' ########
      ' Termin einfügen TM 12.02.2012  START
      .Start = Me.Termin
      ' Terminende einfügen  TM 13.02.2012 Tabelle wurde erweitert
      .End = Me.Terminende
      ' Ortseingabe TM 15.02.2012
      .Location = "Büro"     ' = "Büro"
      ' Ganztag aktivieren TM 15.02.2012
      .AllDayEvent = Me.GanztagsJaNein
     
      .BillingInformation = Me.TerminID
      ' Erinerung Abrufen aktiviert
      .ReminderMinutesBeforeStart = 60 * 24 * Me.Erinnerung
      .ReminderSet = Me.ErinnerungJaNein
      ' Text für die Aufgabe eintragen
      .Body = Me.Beschreibung & vbCrLf & "-----" & vbCrLf & strBesonderheit
      ' Hier wird die Wichtigkeit gesetzt  TM 12.02.2012
      ' olImportanceNormal - Normal
      ' olImportanceLow    - Niedrig
      ' olImportanceHigh   - Hoch
      .Importance = olImportanceNormal
     
      ' ########## Kategorien afragen aus Outllok ########## TM 12.02.2012
      '.Categories = "Test"              ' z.B. .Categories = "Lichtfeld"
      'ContactItem.Categories =
      '.ShowCategoriesDialog = Me.Liste20.ItemData ' ##### WIEEEEEEE
    

      'olApptItem.ShowCategoriesDialog
      'olApptItem.ShowCategoriesDialog = "Test"
     '#################Categorie.Appointment  ' Unterprogramm Modul
     'Me.Liste20.RowSourceType = "Value List"
     'Me.Liste20.RowSource = Categorie
      '-------------------------------------------------
      'Display the Show categories dialog
    olApptItem.ShowCategoriesDialog
      '-------------------------------------------------
      .Display    ' Abgewählt wenn unterprogramm läuft
      'Aufgabe Speichern
      .Save
     
  End With
    ' Verbindung zu Outlook trennen
    Set olApp = Nothing
    Set ol = Nothing
   
End Sub