Was die Zeile betrifft: Du brauchst doch nur die Zeilen zu zählen, wenn Du was geändert hast. Dann siehst Du doch, ob strEmail = "" noch in Zeile 32 steht. Wenn nicht: den Code anpassen.
Fehlermeldung Doppeldeklaration: Ich habe gesehen, daß im Code
Dim olApp As Outlook.Application, olMail As Outlook.MailItem
Dim olMail As Outlook.MailItem
versehentlich olMail zweimal deklariert wird: Mach daraus
Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
Alles andere ist von hier nicht nachvollziehbar. Hier funktioniert es.
|