' Im Modul DieseOutlookSitzung (ThisOutlookSession)
 
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
        ' Entweder schreibst Du hier deinen Code,
        ' oder Du rufst hier eine Prozedur mit dem Übergabeparameter 
        ' "EntryIDCollection" auf. Ich empfehle zu beispiel folgeden Aufruf 
        ' einer neuen
        ' Prozedur
        CALL MN.neue_post(EntryIDCollection)
End Sub

' Neues Modul GL (GLOBAL)
 
Global NS As Outlook.NameSpace
Global Stmp As String ' allgemeine Variable für Texte
 
Sub set_namespace
	Set NS = Outlook.GetNamespace("MAPI")
End sub

' Neues Modum MN (Main)
 
Sub neue_post(sID As String)
Dim mIt As Outlook.MailItem
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Ende Deklaration
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
If NS Is Nothing Then GL.set_namespace
Stmp = TypeName(NS.GetItemFromID(sID))
If Stmp = "MailItem" Then
    Set mIt = NS.GetItemFromID(sID)
Else
    MsgBox "Die neue Mail ist vom unerwarteten Typ " & vbLf & Stmp & vbLf & "" & _
      "und kann mit den existierenden Makro nicht verarbeitet werden.", _
      vbCritical, "Abbruch"
    Exit Sub
End If
...

If mIt.SenderName <> "absender@absender.de" Then Exit Sub