gelöst Mit VBA Termin in abweichenden Kalender eines freigegegeben Postfachs eintragen

Mitglied: greatmgm

greatmgm (Level 2)

25.06.2019 um 10:06 Uhr, 153 Aufrufe, 3 Kommentare

Hallo zusammen,

wenn ich aus VBA den Standardkalender von Outlook befüllen will, mach ich das so:

Set outapp = CreateObject("Outlook.Application")
Set apptoutapp = outapp.CreateItem(1)
With apptoutapp
.Start = Format(meinDatum, "dd.mm.yyyy") & " " & meineZeit
.Subject = "Mein Termin"
.Location = "bei mir"
.Duration = 30
.reminderminutesbeforestart = CLng(2 * 24) * 60
.ReminderPlaySound = True
.ReminderSet = True
.Save
End With
Set apptoutapp = Nothing
Set outapp = Nothing

Jetzt habe ich im Outlook (über Office 365 Exchange Online) zusätzlich ein freigegebenes Postfach und ich möchte gerne
dort den Kalender ansprechen. Mit Session.Accounts komme ich da nicht ran, weil es ja wirklich kein physischer Account
ist der dem Outlook hinterlegt ist.
Könnt ihr mir helfen ?

Danke.
Mitglied: colinardo
LÖSUNG 25.06.2019, aktualisiert um 10:42 Uhr
GetSharedDefaultFolder ist was du suchst. E-Mail natürlich an das freigegebene Postfach anpassen.

01.
Set outapp = CreateObject("Outlook.Application")
02.
Set ns = outapp.GetNamespace("MAPI")
03.
Set rec = ns.CreateRecipient("user_des_freigegebenen_postfachs@domain.de")
04.
rec.Resolve
05.
If rec.Resolved Then
06.
    Set cal = ns.GetSharedDefaultFolder(rec, 9)
07.
    With cal.items.Add(1)
08.
        .Start = Format(meinDatum, "dd.mm.yyyy") & " " & meineZeit
09.
        .SUBJECT = "Mein Termin"
10.
        .Location = "bei mir"
11.
        .Duration = 30
12.
        .ReminderMinutesBeforeStart = CLng(2 * 24) * 60
13.
        .ReminderPlaySound = True
14.
        .ReminderSet = True
15.
        .Save
16.
    End With
17.
End If
Grüße Uwe
Mitglied: greatmgm
25.06.2019 um 10:43 Uhr
1000Dank.
Mitglied: colinardo
25.06.2019 um 10:47 Uhr
You're welcome.
Titel: Mit VBA Termin in abweichenden Kalender eines freigegegeben Postfachs eintragen
Content-ID: 465692
Art des Inhalts: Frage
Ausgedruckt am: 21.08.2019 um 05:22:09 Uhr
URL: https://administrator.de/contentid/465692