Outlook Geburtstagsliste

  • Outlook

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von debus.

    Outlook Geburtstagsliste

    Neu

    Hallo,

    ich suche nach einer Möglichkeit in Outlook per Makro alle Geburtstagstage der nächsten x Tage in einer Liste anzuzeigen.

    Hat da jemand vielleicht einen Ansatz für mich?

    Ich habe mir das auch per vb.net schon angeschaut und mir dieses hier angeschaut Outlook Kalender auslesen(heutige Termine)

    Leider kommt da immer ein Problem bei

    VB.NET-Quellcode

    1. Imports Microsoft.Office.Interop.Outlook


    Wie kann ich da weiterkommen?


    Danke
    Holger


    Also mein Ansatz sieht nun wie folgt aus


    VB.NET-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
    10. myStart = Date
    11. myEnd = DateAdd("d", 5, myStart)
    12. Debug.Print "Start:", myStart
    13. Debug.Print "End:", myEnd
    15. Set oCalendar = Application.session.GetDefaultFolder(olFolderCalendar)
    16. Set oItems = oCalendar.items
    18. oItems.IncludeRecurrences = True
    19. oItems.Sort "[Start]"
    21. strRestriction = "[Start] <= '" & Format$(myEnd, "mm/dd/yyyy hh:mm AMPM") _
    22. & "' AND [End] >= '" & Format(myStart, "mm/dd/yyyy hh:mm AMPM") & "'"
    23. Debug.Print strRestriction
    25. 'Restrict the Items collection
    26. Set oResItems = oItems.Restrict(strRestriction)
    28. For Each oAppt In oResItems
    29. Debug.Print oAppt.Start, oAppt.Subject
    30. Next
    31. End Sub



    Nun will noch versuchen, das ganze in einem UserForm anzuzeigen.

    Ich glaube das ListView ist das beste. Aber wie befülle ich das?
    Was muss ich hier anstelle dieser Zeile schreiben?

    VB.NET-Quellcode

    1. Debug.Print oAppt.Start, oAppt.Subject



    Danke
    Holger

    Beiträge zusammengefügt. ~Thunderbolt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()

    Neu

    Danke gerne, habe auch schon etwas aber ich krieg da auch immer noch ein Problem mit den Makro Einstellungen weil unsere Gruppenrichtlinien da Probleme machen. Aber immer erst nach den Speichen weg ich es einfüge geht es nach den Speichern kommt das eine Meldung weil das Makro nicht zertifiziert ist. Kann ich morgen mal posten bin jetzt nicht mehr an Arbeitsrechner

    danke
    Holger

    Neu

    debus schrieb:

    Aber immer erst nach den Speichen weg ich es einfüge geht es nach den Speichern kommt das eine Meldung weil das Makro nicht zertifiziert ist.


    Ich schätze, da wirst Du Dir von Deiner IT ein "Code-Signing"- Zertifikat ausstellen lassen müssen, mit dem Du dann Deinen Code signierts. (Geht dann über die VBA - Optionen)
    NB. Es ist doch schön, wenn man lesbare Namen vergibt. Siehe auch [VB.NET] Beispiele für guten und schlechten Code (Stil).

    Neu

    Ja das denke ich auch. Auf den Arbeitsrechnern, wo ich das benötige sind andere Richtlinien. Hatte nur gestern Abend keinen Rechner davon mehr zur Hand

    trotzdem danke
    Holger

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „debus“ ()

    Neu

    mumpel schrieb:

    Ich kann morgen mal ein Beispiel zu einem meiner Projekte verlinken.


    Hallo mumpel,

    hast Du was finden können?

    Danke
    Holger


    Ich befülle mir die ListBox wie folgt, aber vielleicht geht es ja noch besser:

    VB.NET-Quellcode

    1. ​Private Sub cmdListe_Click()
    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 termin As String
    10. Dim Filter As String
    13. Dim Tage As String
    14. Tage = Me.TextBox1
    15. If Tage > 7 Then
    16. MsgBox "maximal eine Woche Tae wird auf 7 geändert"
    17. Me.TextBox1 = 7
    18. Tage = 7
    19. End If
    21. myStart = Date
    22. myEnd = DateAdd("d", Tage, myStart)
    23. Debug.Print "Start:", myStart
    24. Debug.Print "End:", myEnd
    26. Set oCalendar = Application.Session.GetDefaultFolder(olFolderCalendar)
    27. Set oItems = oCalendar.Items
    29. oItems.IncludeRecurrences = False
    30. oItems.Sort "[Start]"
    32. strRestriction = "[Start] <= '" & Format$(myEnd, "mm/dd/yyyy hh:mm AMPM") _
    33. & "' AND [End] >= '" & Format(myStart, "mm/dd/yyyy hh:mm AMPM") & "'"
    34. Debug.Print strRestriction
    37. Set oResItems = oItems.Restrict(strRestriction)
    38. ListBox1.Clear
    43. For Each oAppt In oResItems
    44. Filter = Left(oAppt.Subject, 4)
    45. If Filter = "Test" Then
    47. termin = oAppt.Start & " | " & oAppt.Subject
    48. 'Debug.Print oAppt.Start, oAppt.Subject
    49. ListBox1.AddItem termin
    50. End If
    52. Next
    53. End Sub


    Das ganze dann in einem UserForm und auch die Möglichkeit zum Drucken ist gegeben.


    Danke
    Holger

    Neu

    debus schrieb:

    Ich befülle mir die ListBox wie folgt, aber vielleicht geht es ja noch besser:

    Besser geht es nicht. Bei mir ist es komplizierter, da dauert es doch etwas länger bis ich ein Beispiel "rausgezogen" haben.

Facebook
Telefonspende