Pfad per Outlook schicken
Deister
Ich hatte ein Excel-Antrag erstellt, welcher als Template auf unserem Server hinterlegt ist. Bis jetzt konnten die Benutzer diesen Antrag über eine Schaltfläche, per VBA-Code mit Outlook, zur Freigabe an eine Person X weiterleiten.
Ich möchte diese Prozedur nun vereinfachen, idem nur der Pfad mit dem Namen des Dokumentes geschickt wird und die Person X, das Dokument durch anklicken des Pfades, öffnen kann.
Den Pfad bekomme ich verschickt, doch mit dem Anklicken happert es.
Wäre dankbar wenn mir jemand die Lösung zu meinem Problem geben könnte.
MfG
Ant
Anbei meinen leicht angepasster Code:
Sub Mail_workbook_Outlook()
'Working in 2000-2010
'This example send the last saved version of the Activeworkbook
Dim FileName As String
FileName = Range("BB24")
Dim FilePath As String
FilePath = Range("BB5")
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "X"
.CC = ""
.BCC = ""
.Subject = "Neuer Überstundenantrag " & FileName
.Body = "Anfrage den Überstundenantrag freizugeben. " & FilePath & "\" & FileName
'.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add FilePath & "\" & FileName
'.Send 'or use
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub