ich habe folgendes Makro gefunden, das mir die Termine (Geburtstage) aus Excel in Outlook als Termin überträgt.
In der Spalte A stehen die Namen und in Spalte B die Geburtstage.
Da es hier um Geburtstage handelt, sollen die Termine sich jährlich wiederholen.
Was muss ich ändern, um daraus einen Serientermin (jährlich) zu erstellen?
Sub Termin_nach_Outlook()
'Verweis auf Microsoft Outlook x.x Object Library muss gesetzt sein
'Gehe auf EXTRAS / VERWEIS und suche die entsprechende Library
Dim OutApp As Object, apptOutApp As Object
'Hier beginnen die Termine
Range("B2").Select
Do Until ActiveCell.Value = ""
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
'Datum und Uhrzeit
.Start = Format(ActiveCell.Value, "dd.mm.yyyy") & " 08:00"
'Dauer. Angabe ist jeweils in ganzen Minuten zu setzen
'Termininfo
.Subject = "Geburtstag von: " & ActiveCell.Offset(0, -1).Value
'oder der Betreff steht in der Spalte rechts von den Terminen
'Zusätzlicher Text
.Body = ""
'ort
.Location = "geboren am:" & " " & ActiveCell.Offset(0, 0).Value
.Duration = "5"
'Erinnerung
.ReminderMinutesBeforeStart = 10
'mit Sound
.ReminderPlaySound = True
'Erinnerung wiederholen
.ReminderSet = True
.Categories = "Geburtstage"
'Termin speichern
.Save
End With
'Nächste Zelle auswählen
ActiveCell.Offset(1, 0).Select
'Variablen leeren,... sonst "kotzt" Outlook irgendwann mal
Set apptOutApp = Nothing
Set OutApp = Nothing
Loop
MsgBox "Termine an Outlook übertragen!"
End Sub
Besten Dank im Voraus !
Liebe Grüße,
Selma