gespeicherten Namen in Email übernhemen
Christiane
ich möchte gerne ein einzelnes Tabellenblatt aus einer Arbeitsmappe heraus
per eMail versenden. Vorher sollte dieses Tabellenblatt jedoch auf einem
anderen Laufwerk in ein bestimmtes Verzeichnis aber unter dem gleichen Namen
wie die Arbeitsmappe gesichert werden.
Das habe ich auch soweit nun hingebracht. Jedoch fügt es mir das Tabellenblatt
dann nicht mit dem abgespeicherten Namen ins eMailformular ein sondern mit Mappe1.xls od. Mappe2.xls.
Wie kann ich es machen, das es mir die Datei bzw. das Tabellenblatt dann auch
mit dem Namen ins eMailformular einfügt?
Hier ist mein bisheriger Code:
Sub Blatt_senden()
Sheets("Abschlagsrechnung").Copy
ActiveWorkbook.SaveCopyAs Filename:="G:\Rechnungen\" & ThisWorkbook.Name
Application.Dialogs(xlDialogSendMail).Show
Application.DisplayAlerts = True
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub