Fehler in [b] For Each objMailSel In objSelection [/b]

[code]Dim obj as Object
Dim Mail as Outlook.MailItem
For Each obj in Selection
If TypeOf obj is Outlook.MailItem then
Set Mail=obj
….
Endif
Next[/code]

Der Vergleich findet insofern statt, als dass bei einer falschen Zuweisung ein Fehler ausgelöst wird.

Du hattest die Variable explizit als MailItem deklariert, darum trat ein Fehler auf, wenn in Selection ein anderer Objekttyp vorhanden war. Bei der Deklaration As Object sind alle Objekttypen erlaubt. Die Prüfung, um welchen Typen es sich genau handelt, findet bei meinem Beispiel ist in der nächsten Zeile mit TypeOf statt.