Outlook Kalender auslesen(heutige Termine)

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von KatjaS87.

    Outlook Kalender auslesen(heutige Termine)

    Guten Abend zusammen,

    ich würde gerne mir meine heutigen Termine Anzeigen lassen. Dabei hatte ich mir bereits aus Codeschnipseln in VBA folgendes gebastelt:

    Visual Basic-Quellcode

    1. Sub FindApptsInTimeFrame()
    2. Dim myStart As Date
    3. Dim myEnd As Date
    4. Dim oCalendar As Outlook.folder
    5. Dim oItems As Outlook.items
    6. Dim oResItems As Outlook.items
    7. Dim oAppt As Outlook.AppointmentItem
    8. Dim strRestriction As String
    9. Dim i As Long
    10. Dim strh As String
    11. Dim strhh As String
    12. Dim xx() As String
    13. Dim co As Integer
    17. myStart = Format(Now - 1, "dd.mm.yyyy")
    18. myEnd = DateAdd("d", 5, myStart)
    19. Debug.Print "Start:", myStart
    20. Debug.Print "End:", myEnd
    22. Set oCalendar = Outlook.Application.session.GetDefaultFolder(olFolderCalendar)
    23. Set oItems = oCalendar.items
    25. oItems.IncludeRecurrences = True
    26. oItems.Sort "[Start]"
    28. strRestriction = "[Start] <= '" & Format$(myEnd, "mm/dd/yyyy hh:mm AMPM") _
    29. & "' AND [End] >= '" & Format(myStart, "mm/dd/yyyy hh:mm AMPM") & "'"
    30. Debug.Print strRestriction
    32. 'Restrict the Items collection
    33. Set oResItems = oItems.Restrict(strRestriction)
    34. i = 6
    35. strhh = Format(Now, "dd.mm.yyyy")
    36. For Each oAppt In oResItems
    37. strh = oAppt.Start
    38. Debug.Print strhh & " " & strh
    39. 'If InStr(strh, strhh) Then
    40. If InStr(oAppt.Start, Format(Now, "dd.mm.yyyy")) Then
    41. ReDim Preserve xx(co)
    42. 'Cells(i, 2).Value = oAppt.Start
    43. 'Cells(i, 1).Value = oAppt.Subject
    44. xx(co) = oAppt.Subject & " " & oAppt.Start
    45. co = co + 1
    46. End If
    47. i = i + 1
    48. Next
    49. Dim msgString As String
    51. msgString = Join(xx, vbCr)
    52. MsgBox "Heutige Termine:" & vbCr & msgString
    53. End Sub


    Ich habe zwar schon ein ähnliches Thema im Forum entdeckt, leider zeigt dieses bspw. keine Terminserien usw. an. Der obige Code als Excel-Makro schon.

    Meine Frage wäre ob mir jemand dabei helfen könnte, den obigen VBA Code als VB.Net Code zu übersetzen.
    Ich habe mich bereits mehrere Stunden daran versucht, dabei ist folgendes entstanden (ist aber leider nicht lauffähig) :

    VB.NET-Quellcode

    1. Me.Height = 489
    2. Me.Width = 816
    4. Dim myStart As Date
    5. Dim myEnd As Date
    6. Dim oCalendar As Microsoft.Office.Interop.Outlook.Folder
    7. Dim oItems As Microsoft.Office.Interop.Outlook.Items
    8. Dim oResItems As Microsoft.Office.Interop.Outlook.Items
    9. Dim oAppt As Microsoft.Office.Interop.Outlook.AppointmentItem
    10. Dim strRestriction As String
    11. Dim i As Long
    12. Dim strh As String
    13. Dim strhh As String
    14. Dim xx() As String
    15. Dim co As Integer
    17. myStart = Format(DateAndTime.Now, "dd.mm.yyyy")
    18. myEnd = DateAdd("d", 5, myStart)
    19. 'Debug.Print "Start:", myStart
    20. 'Debug.Print "End:", myEnd
    22. oCalendar = Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderCalendar)
    23. oItems = oCalendar.Items
    25. oItems.IncludeRecurrences = True
    26. oItems.Sort "[Start]"
    28. strRestriction = "[Start] <= '" + Format$(myEnd, "mm/dd/yyyy hh:mm AMPM") _
    29. + "' AND [End] >= '" + Format(myStart, "mm/dd/yyyy hh:mm AMPM") + "'"
    30. 'Debug.Print strRestriction
    32. 'Restrict the Items collection
    33. oResItems = oItems.Restrict(strRestriction)
    34. i = 6
    35. strhh = Format(Now, "dd.mm.yyyy")
    36. For Each oAppt In oResItems
    37. strh = oAppt.Start
    38. ' Debug.Print strhh + " " + strh
    39. 'If InStr(strh, strhh) Then
    40. If InStr(oAppt.Start, Format(Now, "dd.mm.yyyy")) Then
    41. ReDim Preserve xx(co)
    42. 'Cells(i, 2).Value = oAppt.Start
    43. 'Cells(i, 1).Value = oAppt.Subject
    44. xx(co) = oAppt.Subject + " " + oAppt.Start
    45. co = co + 1
    46. End If
    47. i = i + 1
    48. Next
    49. Dim msgString As String
    51. msgString = Join(xx, vbCr)
    52. MessageBox.Show("Heutige Termine:" + vbCr + msgString)


    EDIT: Outlook-Verweise sind gesetzt.

    Bin für jede Hilfe Dankbar :saint:

    Beste Grüße

    Katja :)

    Willkommen im Forum. :thumbup:
    Welche DLL hast Du Deinem Projekt hinzugefügt, um Outlook zu instanziieren?

    KatjaS87 schrieb:

    (ist aber leider nicht lauffähig) :
    Wie äußert sich das?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Vielen Dank :D

    Ich erhalte folgende Fehlermeldungen, (ich meine ich hatte davor noch einige mehr ?( ) :
    Warnung BC42104 Die xx-Variable wird verwendet, bevor ihr ein Wert zugewiesen wird. Zur Laufzeit kann eine Nullverweisausnahme auftreten Zeile 51 vom zweiten Code-Ausschnitt
    Fehler BC30205 end of-Anweisung erwarte Zeile 22 vom zweiten Code-Ausschnitt
    Fehler BC30800 Methodenargumente müssen in Klammern stehen. Zeile 26 vom zweiten Code-Ausschnitt
    Fehler BC30311 Der Wert vom Typ "OlDefaultFolders" kann nicht in "Folder" konvertiert werden. Zeile 22 vom zweiten Code-Ausschnitt Zeile 22 vom zweiten Code-Ausschnitt

    Q:Welche DLL hast Du Deinem Projekt hinzugefügt, um Outlook zu instanziieren?

    A: Bin mir da nicht vollkommen sicher X/

    Microsoft Office 16.0 Object Libary
    Microsoft Outlook 16.0 Object Libary
    Microsoft Outlook Sharepoint SOcial Provider
    Mirosoft Outlook Social Provider Extensibility
    Microsoft Outlook View COntorl
    Microsoft Visual Basic for Applications Extensibilty 5.3
    OLE Automation

    Evtl. blöde Frage, welche brauch ich denn? Ich habe alle verfügbaren von Outlook selektiert.

    @KatjaS87 Ich hab folgende Verweise drin:

    Folgender Code compiliert. Ob er funktioniert, weiß ich nicht:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub FindApptsInTimeFrame()
    2. ' Outlook als Objekt festlegen
    3. Dim objOutlook As Outlook.Application
    5. Dim myStart As Date
    6. Dim myEnd As Date
    7. Dim oCalendar As Outlook.MAPIFolder
    8. Dim oItems As Outlook.Items
    9. Dim oResItems As Outlook.Items
    10. Dim oAppt As Outlook.AppointmentItem
    11. Dim strRestriction As String
    12. Dim i As Long
    13. Dim strh As Date
    14. Dim strhh As String
    15. Dim xx() As String = Nothing
    16. Dim co As Integer
    18. Dim xxx = Marshal.GetActiveObject("Outlook.Application")
    19. objOutlook = DirectCast(xxx, Microsoft.Office.Interop.Outlook.Application)
    21. myStart = DateTime.Now.AddDays(-1)
    22. myEnd = myStart.AddDays(5)
    23. Debug.Print("Start {0}", myStart)
    24. Debug.Print("End {0}", myEnd)
    26. oCalendar = objOutlook.Session.GetDefaultFolder(olFolderCalendar)
    27. oItems = oCalendar.Items
    29. oItems.IncludeRecurrences = True
    30. oItems.Sort("[Start]")
    32. strRestriction = "[Start] <= '" & myEnd.ToString("mm/dd/yyyy hh:mm AMPM") _
    33. & "' AND [End] >= '" & myStart.ToString("mm/dd/yyyy hh:mm AMPM") & "'"
    34. Debug.Print(strRestriction)
    36. 'Restrict the Items collection
    37. oResItems = oItems.Restrict(strRestriction)
    38. i = 6
    39. strhh = Format(Now, "dd.mm.yyyy")
    40. For Each oAppt In oResItems
    41. strh = oAppt.Start()
    42. Debug.Print(strhh & " " & strh)
    43. 'If InStr(strh, strhh) Then
    44. If oAppt.Start.ToString().Contains(DateTime.Now.ToString("dd.mm.yyyy")) Then
    45. ReDim Preserve xx(co)
    46. 'Cells(i, 2).Value = oAppt.Start
    47. 'Cells(i, 1).Value = oAppt.Subject
    48. xx(co) = oAppt.Subject & " " & oAppt.Start
    49. co = co + 1
    50. End If
    51. i = i + 1
    52. Next
    54. MessageBox.Show("Heutige Termine:" & vbCr & String.Join(vbCr, xx))
    55. End Sub

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich habe die gleichen Verweise hinterlegt, bekomme es aber nicht kompliliert.

    Mit folgenden Fehlermeldungen:

    Fehler BC30002 Der Typ "Outlook.Application" ist nicht definiert.
    Fehler BC30002 Der Typ "Outlook.MAPIFolder" ist nicht definiert.
    Fehler BC30002 Der Typ "Outlook.Items" ist nicht definiert.
    Fehler BC30002 Der Typ "Outlook.Items" ist nicht definiert.
    Fehler BC30002 Der Typ "Outlook.AppointmentItem" ist nicht definiert
    Fehler BC30451 "Marshal" wurde nicht deklariert. Aufgrund der Schutzstufe ist unter Umständen kein Zugriff möglich.
    Fehler BC30451 "olFolderCalendar" wurde nicht deklariert. Aufgrund der Schutzstufe ist unter Umständen kein Zugriff möglic
    Fehler BC32023 Der Ausdruck ist vom Typ "Outlook.Items". Dies ist kein Sammlungstyp

    Scheinbar fehlt mir trotzdem noch etwas ;(
    Ich nutze:
    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
    könnte es daran liegen ? Oder sonstige Ideen? :P

    Die entsprechenden Namespaces müssen vermutlich noch importiert werden.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Vollzitat des direkten Vorposts an dieser Stelle entfernt ~VaporiZed

    Ich habe es versucht mit :

    VB.NET-Quellcode

    1. Imports Microsoft.Office.Interop.Outlook

    Das ist vermutlich falsch
    Wie kann ich diese korrekt importieren?

    EDIT:

    Habe nun folgende Anpassungen gemacht (dadurch erhalte ich nur noch eine Fehlermeldung):

    VB.NET-Quellcode

    1. Imports Microsoft.Office.Interop.Outlook
    2. Imports System
    3. Imports System.Text
    4. Imports System.Runtime.InteropServices
    9. Dim objOutlook As Microsoft.Office.Interop.Outlook.Application
    10. Dim myStart As Date
    11. Dim myEnd As Date
    12. Dim oCalendar As Microsoft.Office.Interop.Outlook.MAPIFolder
    13. Dim oItems As Microsoft.Office.Interop.Outlook.Items
    14. Dim oResItems As Microsoft.Office.Interop.Outlook.Items
    15. Dim oAppt As Microsoft.Office.Interop.Outlook.AppointmentItem
    16. Dim strRestriction As String
    17. Dim i As Long
    18. Dim strh As Date
    19. Dim strhh As String
    20. Dim xx() As String = Nothing
    21. Dim co As Integer
    22. Dim xxx = Marshal.GetActiveObject("Outlook.Application")
    23. objOutlook = DirectCast(xxx, Microsoft.Office.Interop.Outlook.Application)
    24. myStart = DateTime.Now.AddDays(-1)
    25. myEnd = myStart.AddDays(5)
    26. Debug.Print("Start {0}", myStart)
    27. Debug.Print("End {0}", myEnd)
    28. oCalendar = objOutlook.Session.GetDefaultFolder(olFolderCalendar)
    29. oItems = oCalendar.Items
    30. oItems.IncludeRecurrences = True
    31. oItems.Sort("[Start]")
    32. strRestriction = "[Start] <= '" & myEnd.ToString("mm/dd/yyyy hh:mm AMPM") _
    33. & "' AND [End] >= '" & myStart.ToString("mm/dd/yyyy hh:mm AMPM") & "'"
    34. Debug.Print(strRestriction)
    35. 'Restrict the Items collection
    36. oResItems = oItems.Restrict(strRestriction)
    37. i = 6
    38. strhh = Format(Now, "dd.mm.yyyy")
    39. For Each oAppt In oResItems
    40. strh = oAppt.Start()
    41. Debug.Print(strhh & " " & strh)
    42. 'If InStr(strh, strhh) Then
    43. If oAppt.Start.ToString().Contains(DateTime.Now.ToString("dd.mm.yyyy")) Then
    44. ReDim Preserve xx(co)
    45. 'Cells(i, 2).Value = oAppt.Start
    46. 'Cells(i, 1).Value = oAppt.Subject
    47. xx(co) = oAppt.Subject & " " & oAppt.Start
    48. co = co + 1
    49. End If
    50. i = i + 1
    51. Next
    52. MessageBox.Show("Heutige Termine:" & vbCr & String.Join(vbCr, xx))


    Jetzt taucht nur noch diese Fehlermeldung auf:
    Fehler BC30451 "olFolderCalendar" wurde nicht deklariert. Aufgrund der Schutzstufe ist unter Umständen kein Zugriff möglich.

    Zwecks Behebung habe ich keine Ahnung X/

    Über bisheriges und kommendes Input bin ich sehr Dankbar :thumbsup:


    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VaporiZed“ ()

    Ja, Meldung ist ja eindeutig. Die genannte Variable muss du irgendwo (z.b. innerhalb der Methode) unter Angabe des korrekten Datentypen deklarieren und ggf. mit dem passenden Wert befüllen.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    besser ist es Outlook mit Namespace öffnen

    VB.NET-Quellcode

    1. 'NameSpace,Logon
    2. Dim objOutlookoNS As Outlook.NameSpace = objOutlook.GetNamespace("mapi")
    3. objOutlookoNS.Logon("Outlook", Reflection.Missing.Value, False, True)


    das ganze sieht dann so aus, ich habe nur ein paar elemente in der Datatable eingefügt,
    denn Filter habe ich auskommentiert. Ich verwende das um nach "TerminLeichen" zu suchen

    VB.NET-Quellcode

    1. Option Strict On
    3. Imports Microsoft.Office.Interop
    4. Imports Microsoft.Office.Interop.Outlook
    6. Public Class Form1
    8. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    9. Dim objOutlook As Outlook.Application = New Outlook.Application()
    10. 'NameSpace,Logon
    11. Dim objOutlookoNS As Outlook.NameSpace = objOutlook.GetNamespace("mapi")
    12. objOutlookoNS.Logon("Outlook", Reflection.Missing.Value, False, True)
    13. Dim outLookAppointment As Outlook.MAPIFolder = objOutlookoNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar)
    14. Dim outLookItems As Outlook.Items = outLookAppointment.Items
    15. 'deine Datatable
    16. Dim dtAppointment As New DataTable
    17. dtAppointment.Columns.Add("Location")
    18. dtAppointment.Columns.Add("Start")
    19. dtAppointment.Columns.Add("Ende")
    20. 'suche Leichen
    21. Dim drAppointment As DataRow
    23. For iCounter As Integer = 1 To outLookAppointment.Items.Count
    24. Dim myAppointment = DirectCast(outLookItems.Item(iCounter), AppointmentItem)
    25. 'hier Filter für Heute setzen
    26. 'If myAppointment.Start.Date = Date.Today Then
    28. 'oder alles nach Leichen durchsuchen
    29. drAppointment = dtAppointment.NewRow
    30. drAppointment("Location") = myAppointment.Location
    31. drAppointment("Start") = myAppointment.Start
    32. drAppointment("Ende") = myAppointment.End
    33. dtAppointment.Rows.Add(drAppointment)
    35. 'End If
    36. Next
    38. 'Ausgabe in DGV
    39. DataGridView1.DataSource = dtAppointment
    40. objOutlookoNS.Logoff()
    41. objOutlookoNS = Nothing
    42. outLookItems = Nothing
    43. objOutlook = Nothing
    44. End Sub
    45. End Class



Facebook
Telefonspende