Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Arbeitsblatt als E-Mail versenden

Betrifft: Arbeitsblatt als E-Mail versenden von: gröbi
Geschrieben am: 18.07.2008 12:30:35

Hallo,

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

  

Betrifft: AW: Arbeitsblatt als E-Mail versenden von: Tino
Geschrieben am: 18.07.2008 13:41:34

Hallo,
versuch es mal so.

Die Datei wird zuerst unter den Namen gespeichert und
nach dem versenden wieder gelöscht.


Private Sub Rechnung_als_Excel_Arbeitsmappe_versenden()
On Error Resume Next
Dim strAddress As String, strNeueDatei As String
Dim wbRechnung As Workbook


Set wbRechnung = ActiveWorkbook

strAddress = InputBox("E-Mail Adresse des Empfängers:", "Rechnung versenden...")
'SpeicherPfad und Name für die neue Datei
strNeueDatei = Environ$(TEMP) & "\" & strBeleg & ".xls" 'hier neue Datei

If strAddress = "" Then Exit Sub

wbRechnung.Worksheets("Rechnung").Copy
wbRechnung.SaveAs strNeueDatei

wbRechnung.SendMail strAddress, strBeleg
wbRechnung.Close False
Kill strNeueDatei

End Sub




Gruß Tino

www.VBA-Excel.de




  

Betrifft: AW: Arbeitsblatt als E-Mail versenden von: gröbi
Geschrieben am: 18.07.2008 14:01:33

Danke sehr!


 

Beiträge aus den Excel-Beispielen zum Thema "Arbeitsblatt als E-Mail versenden"