OL Kalender, suche

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von lris08.

    OL Kalender, suche

    Hallo,

    versuche gerade unter Hilfe von MSDN usw. einen Code zu schreiben, der mir Termine in Outlook sucht und dann halt ändern.

    Übersehe da irgendwas, da ich eine Fehlermeldung bekomme- habe wohl zu wenig geschlafen heute und sitze an dem gesamten Code (hier nur ein Teil) schon die halbe Nacht...

    Vielleicht könnt Ihr mir sagen, was ich da übersehe...

    VB.NET-Quellcode

    1. ...
    2. Dim olApp As Outlook.Application
    3. Dim termin As Outlook.AppointmentItem
    4. Dim objContacts As Outlook.MAPIFolder
    5. Dim objNameSpace As Outlook.NameSpace
    6. olApp = CreateObject("Outlook.Application")
    7. objNameSpace = olApp.GetNamespace("MAPI")
    8. objContacts = objNameSpace.GetDefaultFolder(OlDefaultFolders.olFolderCalendar)
    10. For Each dt_calendar As DataRow In Database1DataSet.Tab_TerminBericht
    11. ' SuchStrings .... zum Testen
    12. Dim sucheTermin As String = "[BillingInformation]='T" & dt_calendar("TB_ID") & "'"
    13. Dim sucheStart As DateTime = dt_calendar("TB_TerminVon")
    14. Dim sucheEnde As DateTime = dt_calendar("TB_TerminBis")
    15. 'Bearbeitung / Neuerstellung eines Termins
    16. Try
    17. 'suche Nach vorhandenen und ggf. Ändern...
    18. termin = objContacts.Items.Find(sucheTermin)
    20. termin.ReminderSet = True
    21. termin.Duration = dt_calendar("TB_Dauer")
    22. termin.Start = dt_calendar("TB_Dauer")
    23. 'termin.Subject = RProw.RP_Firma & Name & " - " & RProw.RP_Termininfo
    24. 'termin.Location = RProw.RP_Adresse
    25. termin.BillingInformation = "T" & dt_calendar("TB_ID")
    26. 'termin.Body = ABC & Branche & Telefon & Mobil & _
    27. ' "Kundenmanager: Übernahme aus Reiseplanung." & _
    28. ' vbCrLf & "Kundenmanager/Outlook-ID: " & RProw.RP_OutlookID
    29. 'termin.Save()
    31. Catch ex As System.Exception
    32. MsgBox("! " & ex.Message)
    33. End Try
    34. Zaehler += 1
    35. BGW_Termine.ReportProgress(Zaehler)
    36. If BGW_Firmen.CancellationPending = True Then
    37. Exit Sub
    38. End If
    39. Next
    40. ...


    Fehlermeldung:
    Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

    was habe ich da übersehen?

    Lg lris

    Hast Du die richtige .NET-Outlook-Version eingebunden? Die sollte da stehen, wo Du die Snippets gefunden hast.
    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!

    Hallo, ja habe die richtige OL Vers eingebunden - mein Code über Kontakte finktioniert bereits bestens...


    ?Dim olApp as New Outlook.Application > new hats bei Dim olApp As New Outlook.Application nicht gebracht...


    Irgendwas habe ich da übersehen...
    wenn ich nur wüßte oder sehen würde was...

    VB.NET-Quellcode

    1. Dim olApp As New Outlook.Application
    2. Dim termin As Outlook.AppointmentItem
    3. Dim objContacts As Outlook.MAPIFolder
    4. Dim objNameSpace As Outlook.NameSpace
    5. olApp = CreateObject("Outlook.Application")
    6. objNameSpace = olApp.GetNamespace("MAPI")
    7. objContacts = objNameSpace.GetDefaultFolder(OlDefaultFolders.olFolderCalendar)

    mit roten punkt ermittelt:

    bei diesem Code kommt die fehlermeldung...

    VB.NET-Quellcode

    1. Dim sucheTermin As String = "[BillingInformation]='T" & dt_calendar("TB_ID") & "'"


    sorry- falsche zeile aus dem Code kopiert...

    hier kommt der fehler

    VB.NET-Quellcode

    1. termin = objContacts.Items.Find(sucheTermin)

    sollte schon sein, gleicher Code nur halt mir Kontakten wird gefüllt, wüßt aber nicht wie ich das jetzt nachgucken könnt..

    aber selbst wenn nicht, sollt doch eigentlich die suchfunktion funtkionieren- halt nur kein ergebnis ausgeben ...

    oder?

    lris08 schrieb:

    wüßt aber nicht wie ich das jetzt nachgucken

    Haltepunkt setzen auf die Zeile und dann die Variable im Überwachungsfenster anschauen...
    ICh bin mir nicht sicher, du willst der Variable ja einen Wert zuweisen, evtl darf das halt nich der Rückgabewert sein, wenn findeTermin nicht vorhanden ist.
    ggf vor der zuweisung erst prüfen ob ein ergebnis zurückgeliefert wird von .find...

    habs hinbekommen...

    hier eine kleine Outlooksyncronisation... nocht nicht ganz fertig - brauch noch nen grob und feinschliff... aber funktioniert schon mal...
    code ist bestimmt recht ätzend, aber erst mal funzelt er...

    vielleicht kann das mal einer brauchen:

    VB.NET-Quellcode

    1. Private Sub Test()
    2. Dim Zaehler As Integer = 0
    4. ' Create Outlook Application
    5. Dim oApp As Outlook.Application = New Outlook.Application()
    6. ' Get Mapi NameSpace and Logon
    7. Dim oNS As Outlook.NameSpace = oApp.GetNamespace("MAPI")
    9. ' Get all the appointments from Calendar folder
    10. Dim oCal As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar)
    11. Dim oItems As Outlook.Items = oCal.Items
    13. Dim sSearch As String = Nothing
    15. Dim oAppointment As Outlook.AppointmentItem
    17. For Each dt_calendar As DataRow In Database1DataSet.Tab_TerminBericht
    18. ' Use Find method
    19. sSearch = "[BillingInformation]='T" & dt_calendar("TB_ID") & "'"
    20. 'The following statement uses the Find method of the Items collection object to
    21. 'return the first appointment whose Start field matches the criteria:
    22. oAppointment = oItems.Find(sSearch)
    23. If Not oAppointment Is Nothing Then
    24. oAppointment.Duration = dt_calendar("TB_Dauer")
    25. oAppointment.Start = dt_calendar("TB_TerminVon")
    26. 'oAppointment.End = dt_calendar("TB_TerminBis")
    27. oAppointment.Subject = _
    28. dt_calendar("TB_FirmaName") & ", " & _
    29. dt_calendar("TB_PersonName") & " - " & _
    30. dt_calendar("TB_Titel")
    31. oAppointment.Location = _
    32. dt_calendar("TB_TerminStrasse") & ", " & _
    33. dt_calendar("TB_TerminPlz") & " - " & _
    34. dt_calendar("TB_TerminOrt")
    35. oAppointment.BillingInformation = "T" & dt_calendar("TB_ID")
    36. oAppointment.Body = _
    37. "KD ABC: " & dt_calendar("TB_FirmaABC") & _
    38. "Branche: " & dt_calendar("TB_FirmaBranche") & vbCrLf & _
    39. "Kundenmanager: Übernahme aus Reiseplanung." & _
    40. vbCrLf & "Kundenmanager/Outlook-ID: " & dt_calendar("TB_ID")
    41. oAppointment.Save()
    42. Else
    43. MsgBox("2")
    44. Dim ooutlook As New Outlook.Application
    45. Dim termin As Outlook.AppointmentItem
    46. termin = ooutlook.CreateItem(Outlook.OlItemType.olAppointmentItem)
    47. termin.ReminderSet = False
    48. termin.Duration = dt_calendar("TB_Dauer")
    49. termin.Start = dt_calendar("TB_TerminVon")
    50. termin.End = dt_calendar("TB_TerminBis")
    51. termin.Subject = _
    52. dt_calendar("TB_FirmaName") & ", " & _
    53. dt_calendar("TB_PersonName") & " - " & _
    54. dt_calendar("TB_Titel")
    55. termin.Location = _
    56. dt_calendar("TB_TerminStrasse") & ", " & _
    57. dt_calendar("TB_TerminPlz") & " - " & _
    58. dt_calendar("TB_TerminOrt")
    59. termin.BillingInformation = "T" & dt_calendar("TB_ID")
    60. termin.Body = _
    61. "KD ABC: " & dt_calendar("TB_FirmaABC") & _
    62. "Branche: " & dt_calendar("TB_FirmaBranche") & vbCrLf & _
    63. "Kundenmanager: Übernahme aus Reiseplanung." & _
    64. vbCrLf & "Kundenmanager/Outlook-ID: " & dt_calendar("TB_ID")
    65. termin.Save()
    66. End If
    67. Next
    68. ' Logoff
    69. oNS.Logoff()
    70. ' Clean Up
    71. oApp = Nothing
    72. oNS = Nothing
    73. oItems = Nothing
    74. oAppointment = Nothing
    75. End Sub



    @ErfinderDesRades : bitte nicht schimpfen ! :)

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

Facebook
Telefonspende