Termineintrag in Outlook mit Beschriftungsfarbe
11.02.2008 23:38:00
Larissa
ich lasse mir über Excel einen Termin im Outlookkalender eintragen (Dank Tino!)
Was mir nur noch fehlt, ist die Farbe. Weiß jemand, wie man die Beschriftung auf "wichtig = rot" in dieses Makro einbauen kann?
Sub Term_Out()
Dim myOLApp As Object
Dim myItem As Object
Set myOLApp = CreateObject("Outlook.Application")
Set myNamespace = myOLApp.GetNameSpace("MAPI")
Set myItem = myOLApp.CreateItem(1)
With myItem
'.Subject = SubjectStr
.Recipients.Add ("mail@domain.de")
.Subject = "Datei: " & ActiveWorkbook.Name
.Body = "Was ich schon immer mal sagen wollte..."
.Location = "Schule"
.Start = Format(Range("A2").Value, "dd.mm.yyyy") & " " & Format(Range("B1").Value, "hh:mm")
.AllDayEvent = True
'.Duration = "10" 'Dauer in minuten
.ReminderMinutesBeforeStart = 10
.ReminderPlaySound = True
.ReminderSet = True
.Save
.Send
End With
MsgBox "Zahlungstermin wurde im Outlookkalender eingetragen."
Set myOLApp = Nothing
Set myItem = Nothing
End Sub
Danke für Eure Hilfe,
Lieben Gruß,
Larissa