Da hast Du natürlich vollkommen Recht Bernhard, danke für den Hinweis.
Habe ich gerade korrigiert.
errHandler:
Select Case Err
Case 184 'NoEmbeddedObject....
Msgbox "There is no file attached.... ", 64, "Info"
Call Source.close
Resume exitScript
Case Else
Msgbox "An error occured." & Chr(10) & Chr(10) _
& "Error text: " & Error$ & Chr(10) _
& "Error number: " & Err & Chr(10) _
& "Line: " & Erl & Chr(10) _
,64,"Error"
Resume exitScript
End Select
Matthias