Outlook Geburtstage ganztägig

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von picoflop.

    Outlook Geburtstage ganztägig

    hallo leute

    muss für die firma, die geburtstage der mitarbeiter ins outlook eintragen.
    mein code funktioniert eigentlich ganz gut, aussert dass die termine nicht ganztägig eingetragen werden.

    kann mir jemand helfen, die lösung zu finden?

    VB.NET-Quellcode

    1. Imports System.Reflection
    3. Public Class Form1
    5. Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" _
    6. Alias "GetPrivateProfileStringW" (ByVal lpApplicationName As String, _
    7. ByVal lpKeyName As String, ByVal lpDefault As String, _
    8. ByVal lpReturnedString As String, ByVal nSize As Int32, _
    9. ByVal lpFileName As String) As Int32
    12. Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
    13. newAppointment()
    14. End Sub
    17. Sub newAppointment()
    18. Dim ini As String = "geburtstage.ini"
    19. Dim oItem() As String
    20. Dim anzahlItem As Integer
    23. anzahlItem = INIRead(ini, "Geburtstage", "Anzahl Feiertage", "")
    25. For i = 1 To anzahlItem
    26. Dim myOLApp As Object
    27. Dim myItem As Object
    29. myOLApp = CreateObject("Outlook.Application")
    30. myItem = myOLApp.CreateItem(1)
    31. Dim myPattern = myItem.GetRecurrencePattern
    34. Dim initext = INIRead(ini, "Geburtstage", "Geburtstag" & i, "")
    35. oItem = Split(initext, ",")
    37. With myItem
    38. .Subject = oItem(0)
    39. .BusyStatus = oItem(5)
    40. .ReminderMinutesBeforeStart = 0
    41. .ReminderSet = False
    42. End With
    44. With myPattern
    45. .RecurrenceType = 5
    46. .PatternStartDate = oItem(1)
    47. .PatternEndDate = oItem(2)
    48. End With
    50. myItem.Save()
    52. myOLApp = Nothing
    53. myItem = Nothing
    54. myPattern = Nothing
    55. Next
    56. MsgBox("Geburtstage erfolgreich hinzugefügt")
    58. End Sub
    60. Public Overloads Function INIRead(ByVal INIPath As String, _
    61. ByVal SectionName As String, ByVal KeyName As String, _
    62. ByVal DefaultValue As String) As String
    63. ' primary version of call gets single value given all parameters
    64. Dim n As Int32
    65. Dim sData As String
    66. sData = Space$(1024) ' allocate some room
    67. n = GetPrivateProfileString(SectionName, KeyName, DefaultValue, _
    68. sData, sData.Length, INIPath)
    69. If n > 0 Then ' return whatever it gave us
    70. INIRead = sData.Substring(0, n)
    71. Else
    72. INIRead = ""
    73. End If
    74. End Function
    75. End Class


    geburtstage.ini

    Quellcode

    1. [Geburtstage]
    2. Anzahl Feiertage=1
    3. Geburtstag1=Geburtstag 1,03/4/2012,03/4/2012,8:00:00 AM,5:00:00 PM,0


    vielen dank im voraus.

    grüsse
    gianni27

    Trage ins Outlook von Hand einen Geburtstag ein, so wie er erscheinen soll, und sieh Dir an, was Outlook dann abspeichert. Dies empfinde einfach nach. :thumbsup:
    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!

    Was schreibt denn Outlook selbst da rein?
    Gibt es noch andere Outlook-Datenbanken?
    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!

    hmmm, wollte das thema nicht als erledigt markieren.. :(

    outlook schreib alles richtig in der richtige datenbank,
    aber die zeit ist falsch. es wird immer die aktuelle zeit (des
    ausführens) eingetragen.

    wenn ich also das programm starte und es ist 20:00 uhr,
    trägt outlook den termin von 20:00 -21:00 ein.

    Ich denke, Du solltest erst mal ein paar Einträge von Outlook selbst machen lassen, dann versuchst Du, solche Einträge selbst zu machen (im Notepad oder so) und siehst nach, wie Outlook darauf reagiert.
    Wenn dies alles klar ist, kannst Du sdas programmtechnisch umsetzen.
    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 für die tipps, aber es waren keine grosse hilfen!

    @SystemUnknow
    ein termin erstellen kann ich ja, aber nit ganztägig...

    habt ihr noch nie einen ganz tägigen termin im outlook erstellt?
    die erscheinen anders als ein normaler termin mit zeit.

    kann mir keiner helfen?

    Gianni27 schrieb:

    kann mir keiner helfen?

    Ist VB das Problem oder ist Outlook das Problem?
    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!

    Mein Problem:

    VB.NET-Quellcode

    1. myOLApp = CreateObject("Outlook.Application")

    Keine Typen, keinen nix. Object ...

    Kannst du das ganze nicht mit den Office Interops machen? Dann hast du wenigstens schon mal korrekte Typen etc

    zb:

    VB.NET-Quellcode

    1. Dim z As Outlook.AppointmentItem
    2. z.AllDayEvent = True

    Aha? Ein Event vom Typ "ganztägig"? Offensichtlich etwas ohne "Uhrzeit"?

Facebook
Telefonspende