Hilfe: code wird nur bei neustart ausgeführt

  • Outlook

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von blubbel.

    Hilfe: code wird nur bei neustart ausgeführt

    Hallo!



    Ich habe folgenden Code geschrieben, um automatisch neue Aufgaben hinzuzufügen. Funktioniert auch alles recht gut bislang. Das Problem ist nur, dass ich immer neustarten muss, damit eine neue Aufgabe erstellt wird. Wie mache ich das???

    Quellcode

    1. Private Sub createTasks()
    2. Dim tItem As Outlook.TaskItem
    3. Dim mItem As Outlook.MailItem
    4. Dim ardsrItem
    6. 'Überprüfung jeden Eintrages, die in der akutellen Trackingliste stehen
    7. For Each ardsrItem In Presenter.SubjectsToTrack
    8. 'test ob der Trackingeintrag bereits eine Aufgabe erstellt hatte
    9. If Len(ardsrItem.TaskItemId) = 0 Then
    10. Set mItem = Outlook.GetNamespace("MAPI").GetItemFromID(ardsrItem.MailItemId)
    12. 'anlegen einer neuen Aufgabe / Tasks
    13. Set tItem = Outlook.CreateItem(olTaskItem)
    15. tItem.Subject = ardsrItem.Name
    17. If Weekday(DateTime.Now) >= 1 And Weekday(DateTime.Now) <= 3 Then
    18. tItem.DueDate = DateTime.Now() + 3
    19. MsgBox "Ein neuer Auftrag ist soeben eingetroffen. Eine Erinnerung wurde erstellt für morgen um 09:00 Uhr.", vbOKOnly
    21. ElseIf Weekday(DateTime.Now) > 3 And Weekday(DateTime.Now) < 7 Then
    22. tItem.DueDate = DateTime.Now() + 5
    23. MsgBox "Ein neuer Auftrag ist soeben eingetroffen. Eine Erinnerung wurde erstellt für morgen um 09:00 Uhr.", vbOKOnly
    25. Else
    26. tItem.DueDate = DateTime.Now() + 4
    27. MsgBox "Ein neuer Auftrag ist soeben eingetroffen. Eine Erinnerung wurde erstellt für morgen um 09:00 Uhr.", vbOKOnly
    28. End If
    30. tItem.Status = olTaskNotStarted
    31. tItem.Importance = olImportanceNormal
    32. tItem.ReminderSet = True
    33. tItem.ReminderTime = ardsrItem.NextReminderDate
    34. tItem.Categories = "Reminder: Offene Aufträge"
    35. tItem.Body = mItem.Body
    36. tItem.save
    38. ardsrItem.setTaskItemId tItem.EntryID
    39. End If
    40. Next
    41. 'speichern aller Änderungen im LOG
    42. Presenter.save
    43. End Sub

    StartUp ist ein Event das ausgeführt wird sobald die Applikation gestartet wird => Du rufst die Methode in dem Event auf, deshalb wird auch nur da deine Methode aufgerufen.

    Am besten schauste ob du ein Event verfügbar hast, dass ausgeführt wird wenn eine neue Mail erscheint, ansonsten hast du noch die Möglichkeit eigene Events zu erstellen.

    msdn.microsoft.com/en-us/library/aa645739(v=vs.71).aspx

    Schau am besten mal bei Outlook nach ob es dort die Events gibt die du brauchst.