das unten stehende Makro von GerVas funktioniert schon super. Es speichert eine Datei beim Abrufen an einem definierten Ort auf einem Server und verschickt den Link zu dieser Datei anschließend per Mail.
Jetzt würde ich gerne den Dateinamen beim Speichern noch aus dem aktuellen Datum und der Uhrzeit, sowie einigen Zelleninhalten generieren lassen und dabei die Leerzeichen entfernen.
Der Dateiname soll am Ende in etwa so aussehen: 0709071750InhaltZelleF5InhaltZelleQ34.xls
Ich habe den modifizierten Code mal eingestellt und an entsprechender Stelle kommentiert:
Sub MailSenden()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
Pfad = "\\Mmc-file\mmc_allgemein\Wochenleistungsnachweise\"
Datei = "WL NEU Test.xls"
°°° Den Namen habe ich jetzt von Hand eingegeben. Hier soll das aktuelle Datum und dann der _
Inhalt der Zellen F5 und Q34 als Name generiert werden, allerdings ohne Leerzeichen, damit das _
_
_
mit dem Verlinken weiterhin funktioniert !!!!°°°
ActiveWorkbook.SaveAs Pfad & Datei
With objMail
.To = "nico.roden@mmc.de; nicoroden@aol.com.de"
.CC = "dritte.Adresse@dort.de"
.BCC = "vierteAdresse@dort.de"
.Subject = "Das ist der Betreff!"
.Body = "Hallo hier die neuesten Verknüpfungen: " & Pfad & Datei
.ReadReceiptRequested = True
.Display ' oder direkt Send
End With
Set objOutlook = Nothing
Set objMail = Nothing
End Sub
Vielleicht kann mir da jemand helfen, dann könnte ich in mein wohlverdientes Wochenende fahren.
Gruß
Nico