Termine nach Outlook
Andre
ich habe mir im Archiv folgendes Makro rausgesucht.
Sub Excel_Control_Termin_nach_Outlook()
Dim OutApp As Object, apptOutApp As Object
Set OutApp = CreateObject("Outlook.Application")
'Hier beginnen die Termine
Columns("T:T").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, -1).Activate
Do Until ActiveCell.Value = ""
Set apptOutApp = OutApp.CreateItem(1)
With apptOutApp
.Subject = Cells(ActiveCell.Row, 8) & " " & Cells(ActiveCell.Row, 9)
.Body = "BZA Termin beachten"
.Location = ""
.Start = Format(ActiveCell - 0) & " 07:30"
.Duration = "5"
.ReminderMinutesBeforeStart = 10
.ReminderPlaySound = True
.ReminderSet = True
.Save
End With
ActiveCell.Offset(1, 0).Select
Loop
Set apptOutApp = Nothing
Set OutApp = Nothing
MsgBox "Termine an Outlook übertragen!"
End Sub
Ich würde gerne mehrere Termin für einen Tag übertragen, aber anstatt immer um 07:30 können sie auch an unterschiedlichen Uhrzeiten stattfinden.
Kann man die funktion .Start = Format(ActiveCell - 0) & " 07:30"
so abändern, dass sich das Makro evtl auf die Spalte R bezieht in der ich die Uhrzeit eingebe, oder sogar auf die Spalte "S", wenn das Datumsformat TT.MM.JJJJ HH:MM:SS lautet.
Danke für eure Hilfe
Gruß
André
Anzeige