Auto-Mailversand bei Dateiaktualisierung
26.01.2006 10:48:03
roman
Sub speichern()
ThisWorkbook.SaveAs "Y:\MCC-PSP\HS.xls"
M1 = MsgBox("Spiegelung?", vbYesNo, "Ja oder Nein?")
If M1 = 6 Then
ThisWorkbook.SaveAs "P:\M\CI\Basic Informations (all)\HS1.xls"
End If
End Sub
Gleichzeitig soll an mehrere Personen eine Mail mit dem Hinweis auf die Aktualisierung in der Betreffzeile versendet werden.
(mit einer ähnlichen Zeile wie dieser?
ActiveWorkbook.SendMail Recipients:="Rautenberg, Roman", Subject:=Betreff)
Wie könnte dies am einfachsten gelöst werden?
Danke für die Hilfe im Voraus!
Gruß
Roman
Anzeige