Hi
Für folgenden Ausschnittb aus meinem Code bräuchte ich etwas Hilfe:
With apptOutlook
.Subject = ActiveCell.Value
.Start = Format(Cells(ActiveCell.Row, 1).Value, "dd.mm.yyyy") & " 08:00"
.Location = Cells(4, ActiveCell.Column).Value
.Duration = 60
.ReminderMinutesBeforeStart = 1440
.ReminderPlaySound = True
.ReminderSet = True
.Save
End With
Mein Problem ist das ich mit .Body noch mehr Infos aus der Zelle in dem Termin hinterlegen will. Diese zusätzlichen Infos stehen in einem Kommentar, der in der Aktiven Zelle hinterlegt ist. Wie kann ich den Text dieses Kommentars auslesen und da eintragen lassen?
Mit ActiveCell.Comment.Text hat es nicht geklappt
Gruß Kurt