Datei unter neuen Name per Mail

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.