Ich versende eine Excel Mappe per Mail, als Anhang aus der Anwendung heraus!
Hier möchte ich gern das der Anhang nicht Mappe1.xls heißt, sondern den Namen des Speicherstrings erhält!
Gibt es hierzu eine Möglichkeit bereits für die Zwischenspeicherung den Speichernamen aus dem String zu entnehmen?
LG Lisa
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
AWS = Environ("USERPROFILE") & "\" & ThisWorkbook.Name
ThisWorkbook.SaveCopyAs AWS
Application.Visible = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = ""
'.Cc = "
.Subject = "Test1" & Sheets(1).Range("N2") & " " & Sheets(1).Range("O2") & " " & Sheets(2).Range("E2") & " .xls"
.Attachments.Add AWS
.Body = "Hallo zusammen, " & vbCrLf & ""
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
With Sheets(1)
Dim Pfad As String
Pfad = "C:\Eigene Dokumente\ "Test1" & Sheets(1).Range("N2") & " " & Sheets(1).Range("O2") & " " & Sheets(2).Range("E2") & " .xls
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Pfad
Application.DisplayAlerts = True
MsgBox " Die Datei wurde unter " & Pfad & " gespeichert", vbOKOnly, "Speicherort"
ThisWorkbook.Close Saved = True
Cancel = False
End Sub