E-mail mit file

Forumthread: E-mail mit file
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: E-mail mit file

E-mail mit file

27.11.2002 23:52:41

chris b.

Hallo Excel Profis , ich habe folgenden code der verschickt mir die active mappe Per E-mail ohne nach dem Empfänger zu fragen .. ist es auch möglich eine datei zu verschicken die z.B auf "C:\chris\" liegt ?? Und die datei heißt "text.txt" ? Wenn ja wäre super wenn ihr mir helfen könntet !! Danke gruß Chris

Sub mail_erstellen()

Workbooks.Add
Application.DisplayAlerts = False
Sheets(Array("Tabelle2", "Tabelle3")).Select: ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True

Range("B2").Value = "Die Abzugskraft überschreitet den maximal"
Range("B3").Value = "zulässigen Wert. Bitte überprüfen."
If IsNull(Application.MailSession) Then
Application.MailLogon "W7-Daemon", "w7vba", False
End If
ActiveWorkbook.SendMail Recipients:="testadresse@test.de", Subject:="test betreff"
If Not IsNull(Application.MailSession) Then Application.MailLogoff

End Sub