none
Exchange Outlook 365 VBA Erinnerung beim Senden setzen funktioniert nicht (mehr wie in Outlook 2007) RRS feed

  • Frage

  • Hallo,

    wir haben jetzt Exchange mit Outlook 365. Bisher mit Outlook 2007 hat der untenstehende Code beim Versenden von Mails einwandfrei funktioniert. Die Fehlermeldungen, die ich jetzt erhalte, sind so "neu", dass Google nichts findet. Und: Die "Glocke" für die Erinnerung wird tats. gesetzt, verschwindet aber nach 2 Sek wieder!

    'Modul ThisOutlookSession
    
    Private WithEvents Items As Outlook.Items
    
    Private Sub Application_Startup()
      Dim Ns As Outlook.NameSpace
    
      Set Ns = Application.GetNamespace("MAPI")
      Set Items = Ns.GetDefaultFolder(olFolderInbox).Items  
    End Sub
    
    
    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
      Dim dt As Date
      Dim tm As String
      Dim mark
    
              dt = DateAdd("d", 7, Date) 'Erinnerung in 7 Tagen
              mark = olMarkNextWeek
              tm = CStr(dt) & " 08:00" 'um 8:00 Uhr
    
            Item.FlagDueBy = tm 'Date and Time due
            Item.ToDoTaskOrdinal = tm   'task
            'Item.MarkAsTask mark    '(funktioniert nicht bei "Entwürfen" beim Senden, ging aber mit Outlook 2007)
            Item.TaskStartDate = dt 'Start date
            Item.TaskDueDate = dt 'Due date
            Item.ReminderSet = True
            Item.UnRead = False 'mark Mail as read
            Item.ReminderTime = tm  'reminder
            Item.Save   'save new settings ==> Das Glockenzeichen erscheint, verschwindet aber wieder!
      
      dt = 0
      tm = ""
      mark = ""
      Set Item = Nothing
    
    End Sub

    Fehlermeldung bei MarkAsTask:

    "Laufzeitfehler -2147467263 (800004001)

    Entwurfselemente können nicht markiert werden. MarkAsTask ist nur für Elemente gültig, die gesendet oder empfangen wurden."

    Wie kann ich bei Exchange 365 (also von Microsoft gehostet) mit Outlook 2019 (365) per VBA Erinnerungen setzen?

    [EDIT:] Das von mir gesendete Mail gelangt per Regel (=>verschieben) in den Eingangsordner, dann wird das Event ausgelöst.

    @Ivan: danke!

    lg

    arno


    Freitag, 13. September 2019 09:43

Alle Antworten