ich bitte um eure Hilfe.
Ich habe eine xls. Datei die über ein Makro per Mail durch das Klicken eines Steuerelements verschickt werden soll.
Der Dateiname im Anhang soll durch den Klick auf den Button über eine Abfrage (Msgbox o.ä.) individuell geändert werden. Bsp:
Dateiname roh: Bauklötze
Dateiname im Anhang: Bauklötze_Stuttgart
Der Zusatz "Stuttgart" soll über diese Box an den Dateinamen mit "_" dran gehangen werden. Bei Eintippen "Berlin" dann entsprechend Bauklötze_Berlin. Diese Datei soll dann automatisch in eine Mail angehangen werden. Diese Mail soll dann die Empfänger und den Text automatisch füllen.
Geht sowas?
Viele Grüße
P.S.
Mein E-Mail Makro sieht bisher so aus:
Sub Excel_Workbook_via_Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
AWS = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "max.mustermann@gmail.com"
.Subject = "Datenbank vom " & Date
.attachments.Add AWS
.Body = "Hallo zusammen," & vbCrLf & "" & vbCrLf & "anbei erhalten Sie die aktuelle Datenbank _
_
für Ihre weitere Verwendung." & vbCrLf & "" & vbCrLf & "Mit freundlichen Grüßen"
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub