TextBody = strRumpf 'Fügen Sie die ausgewählte Datei als Anhang hinzu .AddAttachment strDateiZuVersenden End With 'um die E-Mail zu senden gMail.Send SendWorkbook= True Exit Function eh: ArbeitsmappeVersenden = False End Function Wenn der Konfigurationsport 25 nicht funktioniert, erhalten ...