Excel VBA - Termin in Outlook - manuell Speichern

[duAffentier]

Hallo,

ich habe ein Makro, um einen Termin im Outlook anzulegen.

Sub Outlook_Termin_erstellen()
    Dim olApp As Object
    Dim olApt As Object
    Dim DatumAktiveZelle As Date
    DatumAktiveZelle = Cells(2, ActiveCell.Column).Value
    Set olApp = CreateObject("Outlook.Application")
    Set olApt = olApp.CreateItem(1)
    With olApt
        .Start = DatumAktiveZelle
        .Subject = "DA"
        .Location = "Digitaler Arbeitsplatz"
        .Body = "Digitaler Arbeitsplatz - erreichbar über Email, MS Teams, Telefon!"
        .ReminderSet = True
        .AllDayEvent = True
        .BusyStatus = 4
        .ReminderMinutesBeforeStart = 15
        .Save
    End With
    Set olApp = Nothing
    Set olApt = Nothing
End Sub

Derzeit wird der Termin direkt eingetragen. Anstatt zu speichern, würde ich das Terminfenster offen lassen um manuell zu speichern. Sozusagen das ".save" weg lassen. Was muss ich ändern, das der Termin offen bleibt, um manuell zu speichern?


Lösung: Anstatt ".Save" dann ".display" eingetragen...

 

[duAffentier]

Lösung:

Sub Outlook_Termin_erstellen()
    Dim olApp As Object
    Dim olApt As Object
    Dim DatumAktiveZelle As Date
    DatumAktiveZelle = Cells(2, ActiveCell.Column).Value
    Set olApp = CreateObject("Outlook.Application")
    Set olApt = olApp.CreateItem(1)
    With olApt
        .Start = DatumAktiveZelle
        .Subject = "DA"
        .Location = "Digitaler Arbeitsplatz"
        .Body = "Digitaler Arbeitsplatz - erreichbar über Email, MS Teams, Telefon!"
        .ReminderSet = True
        .AllDayEvent = True
        .BusyStatus = 4
        .ReminderMinutesBeforeStart = 15
        .display
    End With
    Set olApp = Nothing
    Set olApt = Nothing
End Sub