E-mail mit file
27.11.2002 22:52:41
chris b.
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