wer kann weiter helfen?
Ich versende mit nachfolgenden Code ausgeblendete Tabellen per Mail.
Nun möchte ich gern eine Text vorgeben, der automatisch mit im Body der Mail steht. Wo kann bzw. muss ich diesen zufügen?
Vielen Dank an der Stelle.
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Application.ShowWindowsInTaskbar = False
Dim DateiName As String
Sheets(Array("Anfrage", _
"Passwort", _
"Plan",
"Fi" ))Copy
With ActiveWorkbook
.SaveAs "Zukunftneu_a.xls"
DateiName = .FullName
.Sheets(2).Name = "Anfrage"
.Sheets(1).Name = "Passwort"
Sheets("Plan").Visible = xlVeryHidden
Sheets("Fi").Visible = xlVeryHidden
Application.Dialogs(189).Show "info@test.de", ActiveSheet.Name
.Close False
End With
Kill DateiName
Application.ScreenUpdating = True
End Sub
GrußTorge