Kalendereintrag mit Makro (ohne Duplikate)
26.12.2017 16:22:08
Samuel
Guten Tag zusammen!
Ich habe folgendes Problem:
Ich habe einen Code, mit welchem ich Kalendereinträge aus Excel in Outlook machen kann.
Das klappt ganz prima! Wenn ich nun aber etwas am Termin verändere (z.Bsp. Betreff oder die Zeit), dann wird der Termin nicht angepasst sondern es wird ein Doppeleintrag in Outlook generiert.
Ich habe es geschafft, die EntryID des Kalendereintrages auszulesen, verstehe aber nicht, was ich machen muss, damit es keinen Doppeleintrag gibt und der Eintrag nur "verändert resp. angepasst" wird.
Der Code sieht jetzt wie folgt aus:
________________
Sub TerminInOutlookAendern()
Dim OutApp As Object, apptOutApp As Object
'Termine aus Excel-Sheet lesen
Range("B4").Select
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1)
With apptOutApp
'Termine werden aus den Zellen gelesen
.Start = Format(Range("L4"), "dd.mm.yyyy") & _
" " & Format(Range("B10"), "hh:mm")
.Subject = Range("A4").Value
'Zusätzlicher Text
.Body = Range("F11").Value
'Ort
.Location = Range("N5").Value
'Dauer des Ereignisses (hier 2 Stunden)
.Duration = Range("B15").Value
'Erinnerung: 60 min vor Ereignis
.ReminderMinutesBeforeStart = 1440
'Erinnerungsfunktion mit Sound
.ReminderPlaySound = True
'Erinnerung wiederholen
.ReminderSet = True
'Termin speichern
.Save
'EntryID in Tabelle eintragen - Offset bitte nach Wunsch anpassen!
ActiveCell.Offset(0, 22) = .entryid
End With
Set apptOutApp = Nothing
Set OutApp = Nothing
MsgBox "Hallo " & Range("O1").Value & "! Danke, der Termin wurde in den Kalender übertragen!"
End Sub
________________Kann mir jemand helfen resp. aufzeigen, wie ich das Problem lösen kann?
Gibt es einen Zusatz, welchen ich in den Code integrieren kann, damit es funktioniert?
Ich danke Euch für die Hilfe und wünsche Euch frohe und erholsame Festtage!
Gruss
Sam