Hallo liebe Forumsgemeinde,
hab da ein kleines Problem und ich hoffe, mir kann wer helfen.
Erstelle mit nachfolgendem Code über eine UF einen Termin in Outlook. Soweit kein Problem. Jetzt gibt es aber mit Outlook XP ja auch die Möglichkeit diese Termine farblich zu kennzeichnen. Wie erreiche ich zum Beispiel, dass der zu erstellende Termin auch als "abwesend" und die Beschriftung "Lehrgang" (von mir in Outlook individuell eingestellt) angezeigt wird und die Farben entsprechend übernimmt?
Hoffe mir kann wer einen Tip geben...
Gruß
Oliver
Code:
Dim a As Long
a = MsgBox("Dienstreise in Outlook eintragen ?", 4 + 32 + 0, "Achtung !")
If a = 6 Then
Set myOLApp = CreateObject("Outlook.Application")
Set myItem = myOLApp.CreateItem(olAppointmentItem)
With myItem
.Subject = Anlass_DR.Value
.start = Vom_DR.Value & " " & Antritt_DR.Value
.End = bis_DR.Value & " " & EndeDG_DR.Value
.Location = DRort.Value
.ReminderMinutesBeforeStart = 1440
.ReminderPlaySound = True
.ReminderSet = True
.Save
End With
MsgBox "Termine an Outlook übertragen!"
Set apptOutlook = Nothing
Set objOutlook = Nothing
End If