Arbeitsblatt als E-Mail versenden
18.07.2008 12:30:00
gröbi
ich möchte ein Arbeitsblatt mit dem Standardmailprogramm versenden, funktioniert auch aber:
Beim versenden des aktuellen Arbeitsblattes wird eine neue Arbeitsmappe erstellt. Diese möchte ich vor dem versenden aber umbenennen. Habe schon viele Varianten versucht, funzt aber nicht (Save as, kill...).
Kann ich die neue aktuelle Arbeitsmappe umbenennen bevor ich sie versende (habe die neue Arbeitsmappe noch nicht gespeichert)?
Hier meine Code:
Private Sub Rechnung_als_Excel_Arbeitsmappe_versenden()
On Error Resume Next
Dim strAddress As String
Dim wbRechnung As Workbook
Dim wbMail As Workbook
Set wbRechnung = ActiveWorkbook
strAddress = InputBox("E-Mail Adresse des Empfängers:", "Rechnung versenden...")
If sAddress = "" Then Exit Sub
wbRechnung.Worksheets("Rechnung").Copy
Set wbMail = ActiveWorkbook
wbMail.SendMail strAddress, strBeleg
wbMail.Close False
End Sub
"strBeleg" ist eine Public-Variable. Diesen Name soll das zu versendende Workbook bekommen.
Wie kann ich diese neue aktuelle (wbMail) Mappe vor dem versenden umbenennen?
Danke für Hinweise, gröbi