Attachment = "C:\TESTDATEI.txt"
 
      SendMailOutlook Me!txtAn, Me!txtCC, Me!txtBCC, Me!txtBetreff, _
        Me!txtNachricht, _
                        Attachment, Attachment1, Me!Bearbeiten
 
'Und die variante
 
SendMailOutlookExpress Me!txtAn, Me!txtCC, Me!txtBCC, Me!txtBetreff, _
  Me!txtNachricht, _
                               Attachment, Attachment1, Me!Bearbeiten