Zwei Fragen zum Tabellen-Email-Versand
Lang
bei u.a. Prozedur wir in der Betreffzeile immer der Name des Anhanges angezeigt.
Meine Fragen:
1. Wie kann ich für die Betreffzeile automatisch einen anderen Text vorgeben?
2. Kann der Anhang gesperrt werden, damit ein Öffnen im Email-Editor unterbunden wird?
Sub EmailMldgAllg()
Dim emadr As String
On Error GoTo PROC_ERR
With Application
.ScreenUpdating = False
.StatusBar = "Bitte warten, öffne Email-Editor..."
End with
emadr = "Vorgegebene EmailAdr"
Sheets("EmailMldg").Copy
ActiveWorkbook.SaveAs "AnhangEmailMldg"
Application.Dialogs(xlDialogSendMail).Show emadr
PROC_EXIT:
ActiveWorkbook.Close savechanges:=False
Application.StatusBar = False
Exit Sub
PROC_ERR:
MsgBox _
"Das Standard-Email-Programm konnte nicht geöffnet werden.", _
vbOKOnly + vbExclamation, "Keine automatische Emailerstellung"
Resume PROC_EXIT
End Sub
MfG
Klaus