Mail versenden mit Anhang in Netscape
Ulf_MS
Ich will eine Datei mit Netscape versenden. Dabei habe ich zwei Probleme.
1.Die Excel Datei soll nicht mitgesendet werden.
2.Eine externe Textdatei soll anstatt dessen angehangen werden.
Ich krieg es einfach nicht hin, die Recherche habe Ich auch schon durchgeguckt ob ein ähnlicher Code vorhanden ist.
Sub EMailVerschicken_mitAnhang()
Dim s1 As String
Dim s2 As String
s1 = ("Ulf@ichkannesnich.de")
s2 = ("Betreff " + [a1])
Application.Dialogs(xlDialogSendMail).Show s1, s2
Attachments.Add "C:\WINNT\Profiles\uh\Desktop\Wareneingang.txt" 'funktioniert leider nicht
ActiveWorkbook.Save
ActiveWindow.Close
Application.DisplayAlerts = False
Application.Quit
End Sub
Danke für eure Hilfe
Anzeige