Datei unter neuen Name per Mail
04.04.2008 13:39:00
Toxma
kann jemand helfen?
Mit folgenden Code versende ich eine Excel-Datei per Mail, diese wird vohrer unter einen anderen Namen gespeichert und dann gesendet. Nun möchte ich aber den alten Namen der Datei beibehalten und nur die Datei, welcher dann per Mail gesendet wird soll einen neuen Namen haben also nicht die Original-Datei. Die Original-Datei darf sich aber nicht schließen nachdem sie im Postausgang liegt. Gibt sicher schon einige Anfragen im Forum in diesen Dingen aber vielleicht hat jemand auch in diesem Fall eine Lösung.
Private Sub Label8_Click()
On Error Resume Next
Dim empfänger As String
Dim Kopie As String
Dim Blindkopie As String
Dim aws As String
Dim olApp As Object
'Blindkopie = TextBox6.text
'Kopie = TextBox5.text
empfänger = TextBox1.text
' Diese Zeile fragt den Zustand des blaufarbenen Optionbuttons ab
If OptionButton1.Value = True Then
If OptionButton4.Value = True Then 'ActiveWorkbook.Save ' wird dieser Optionbutton gewählt, _
dann wird die Arbeitsmappe als xls-Datei gespeichert (Kompatibilität zu älteren Excelversionen)
ActiveWorkbook.Copy
With ActiveWorkbook
.SaveAs "BBB.xls"
End With
End If
aws = ActiveWorkbook.FullName ' speichert die aktive Arbeitsmappe
Set olApp = CreateObject("Outlook.Application") ' Erstellt eine Outlooksession
With olApp.CreateItem(0)
.To = empfänger ' Empfänger eintragen, bitte nur einen Empfänger
' .CC = Kopie ' Kopien, mehrere Empfänger durch Semikolon trennen
' .BCC = Blindkopie ' Kopien, mehrere Empfänger durch Semikolon trennen
.Subject = TextBox2.text ' Betreff
.HtmlBody = TextBox3.text 'fügt den text in den Mailbody ein (htmlmail)
If CheckBox1.Value = True Then .ReadReceiptRequested = True
.Attachments.Add aws 'Fügt die aktive Arbeitsmappe als Anhang ein
.Display
If CheckBox2.Value = True Then SendKeys "%s", True 'sendet die Mail sofort ohne sie anzuzeigen, _
wenn Checkbox aktiv
olApp = Nothing 'beendet die Outlooksession
End With
Unload Me 'schließt die Userform
'Else
''Wird angezeigt, wenn eine Auswahl vergessen wird
'MsgBox "Sie müssen erst eine Auswahl treffen!", vbOKOnly + vbExclamation, "Hinweis"
End If
End Sub
Vielen Dank
T.