Outlook kalender auf Exch Serv auslesen

Hallo liebe Mitglieder,
ich habe eine Frage zum Thema VBA und hoffe, dass ich hier mein Problematik mit Eurer Hilfe verwirklicht bekomme. Leider bin ich in vba nicht sonderlich fit und in einer Verlinkung zu dem Thema einem anderen Thread von Oberschlumpf komm ich nicht weiter :( vollkommen überfordert quasi mit dem langen Code.
Ich habe einen Outlook Kalender mit diversen Tageseinträgen, den ich sehr gerne in meiner ExcelTabelle in einer Art Userform angezeigt haben möchte.
Dazu habe ich gehofft, dass man den Teamkalender vom Konto (team@musterverein.de) vielleicht irgendwie "auslesen" kann und die einzelnen Einträge der kommenden zwei Tage vielleicht in eine Art Variable schreiben kann. Dabei wäre es wichtig, dass ich den Kalender angeben kann, da ich mehrere Kalender auf einem Exchange-Server zur Auswahl habe. Wichtig wäre auch, dass es eine Variable am Ende in der Ausgabe ist und nicht jeder Termin eigenständig angezeigt wird.
Die Variable sollte dann in etwa so aussehen:
23.01.2022 - 19:00-20:00 - Meeting mit Frau Müller (Absatz)
23.01.2022 - 1600-17:00 - Meeting mit Frau Mustermann (Absatz)
24.01.2022 - 10:00-15:00 - Meeting mit Herrn Meier (Absatz)
Könnte mir da vielleicht jemand bei der Problematik behilflich sein?
GLG und Dank vorab Hannes

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Outlook kalender auf Exch Serv auslesen

24.11.2021 21:42:12

Yal

AW: VBA

24.11.2021 22:04:21

Fennek

AW: VBA

24.11.2021 23:29:34

Hannes

AW: VBA: geht schon, aber ...

25.11.2021 08:45:25

Fennek

AW: VBA

25.11.2021 08:52:06

Yal

AW: VBA

25.11.2021 21:05:38

Hannes

AW: VBA

26.11.2021 00:13:26

Yal

kommt da noch was?

25.11.2021 08:17:06

Pierre

AW: kommt da noch was?

25.11.2021 20:59:18

Hannes

gleicher Name usw... (owT)

26.11.2021 10:27:22

Pierre

AW: Outlook kalender auf Exch Serv auslesen

26.11.2021 20:02:19

Andreas

Sub Appointments_auslesen() Dim FLD As Folder, mApp As AppointmentItem Set FLD = ActiveExplorer.CurrentFolder Debug.Print FLD.DefaultItemType, FLD.Items.Count, FLD.Parent.Name 'FLD.DefaultItemType ' 0: MailItem ' 1: AppointmentItem ' 2: ContactItem For i = 1 To FLD.Items.Count If FLD.Items(i).Class = olAppointment Then ' 26 Set mApp = FLD.Items(i) With mApp Debug.Print .Start, .End; .Duration, .Subject, .Body, .Location End With End If Next i Set mApp = Nothing Set FLD = Nothing End Sub

let Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content], #"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"ID", Int64.Type}, {"Datum", type date}, {"Wer", type any}, {"Wo", type any}, {"Was", type any}, {"Kommnentar", type text}}), #"Gefilterte Zeilen" = Table.SelectRows(#"Geänderter Typ", each [Datum] >= Date.From(DateTime.LocalNow()) and [Datum]

Ich habe da mal in nem anderen Projekt etwas ähnliches gehabt..... vielleicht kannst Du damit was anfangen:
Kommt als Msgbox raus, eigentlich so wie du es willst.
Aber wie man dort den Exchange Server auswählt... Vielleicht weiss da noch jemand was dazu.... ich lass die Frage mal offen....
Option Explicit ' Consider this mandatory
' Tools | Options | Editor tab
' Require Variable Declaration
' If desperate declare as Variant


Public Function getOutlookAppointments() As String
Dim oOutlook              As Object
Dim oNS                   As Object
Dim oAppointments         As Object
Dim oFilterAppointments   As Object
Dim oAppointmentItem      As Object
Dim bOutlookOpened        As Boolean
Dim sfilter               As String
Dim displayText As String
Dim startDate As Date
Const olFolderCalendar = 9
Dim counter As Long
On Error Resume Next
Set oOutlook = GetObject(, "Outlook.Application")    'Bind to existing instance of Outlook
If Err.Number  0 Then    'Could not get instance of Outlook, so create a new one
Err.Clear
Set oOutlook = CreateObject("Outlook.Application")
bOutlookOpened = False    'Outlook was not already running, we had to start it
Else
bOutlookOpened = True    'Outlook was already running
End If
' Consider this mandatory as soon as possible after On Error Resume Next
On Error GoTo 0
DoEvents
Set oNS = oOutlook.GetNamespace("MAPI")
'Set oAppointments = oNS.GetDefaultFolder(olFolderCalendar)
' Error sorting the folder rather than items
'  was previously bypassed due to missing On Error GoTo 0
'oAppointments.Sort "[Start]"
Set oAppointments = oNS.GetDefaultFolder(olFolderCalendar).Items    '  """ & Format(startDate + 1, "ddddd h:nn AMPM") & """")
sfilter = ("[Start] > """ & Format(startDate, "ddddd h:nn AMPM") & """ and [Start]

Beliebteste Forumthreads (12 Monate)

Outlook kalender auf Exch Serv auslesen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

7 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Outlook kalender auf Exch Serv auslesen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

7 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread