Arbeitsmappe speichern und Hyperlink verschicken
20.04.2017 13:27:59
Alexander
ich bräuchte es Hilfe bei meinem Code. Ich möchte meine Arbeitsmappe speichern und dann den Pfad der gespeicherten Arbeitsmappe als Hyperlink mit Outlook verschicken. Ist dies möglich?
Private Sub Email_verschicken_Click()
Dim FileSave As String
ChDrive "O:" 'stellt Laufwerk ein !!!
ChDir "\MeinPfad\" 'stellt Pfad ein !!!
FileSave = Application.GetSaveAsFilename("Name_" & Format(Date, "yyyymm") & ".xls", "Excel- _
Dateien (*.xls), *.xls")
ActiveWorkbook.SaveAs Filename:=FileSave
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "name@de"
.Subject = "Name_" & Date & Time
.Body = "o:\MeinPfad\Filename" 'Hier sollte die abgespeicherte Datei Verlinkt werden
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
