Thema Datum  Von Nutzer Rating
Antwort
20.01.2017 13:36:47 Martin Eberle
NotSolved
20.01.2017 13:40:50 Martin Eberle
NotSolved
Rot Outlook Event beim öffnen einer nicht gelesenen E-Mail im Posteingang
 20.01.2017 14:54:26 SJ
NotSolved
20.01.2017 20:24:00 Gast50622
NotSolved

Ansicht des Beitrags:
Von:
SJ		 Datum:
20.01.2017 14:54:26		 Views:
653		 Rating:
     
Antwort:
  Ja
Thema:
Outlook Event beim öffnen einer nicht gelesenen E-Mail im Posteingang

Hallo,

so evtl.?

Option Explicit

Private Const MAIL_ADDRESS As String = "somebody@somecompany.com"

Private Sub Application_ItemLoad(ByVal Item As Object)
    Call check_item
End Sub

Private Sub check_item()
    With ActiveExplorer.Selection
        If TypeOf .Item(1) Is MailItem And .Count = 1 Then
            Dim mail As MailItem
            Set mail = ActiveExplorer.Selection.Item(1)
            
            If mail.UnRead And LCase(mail.SenderEmailAddress) = LCase(MAIL_ADDRESS) Then
                MsgBox "Mail: '" & mail.Subject & "' wurde geöffnet und nun als geselen markiert.", vbInformation
            End If
            
            Set mail = Nothing
        End If
    End With
End Sub

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
20.01.2017 13:36:47 Martin Eberle
NotSolved
20.01.2017 13:40:50 Martin Eberle
NotSolved
Rot Outlook Event beim öffnen einer nicht gelesenen E-Mail im Posteingang
 20.01.2017 14:54:26 SJ
NotSolved
20.01.2017 20:24:00 Gast50622
NotSolved