Link in Notes auf Datei

Sub Mail_senden()
'Allgemeine Variablendeklaration
Dim loletzte As Long
'Variablendeklaration für Mailversand
Dim session As Object
Dim DB As Object
Dim doc As Object
Dim strTo As Variant
Dim strPath As String
Dim EmbedObj As Object 'The embedded object (Attachment)
Dim AttachME As Object 'The attachment richtextfile object
Dim strPfad As String
Dim datnam As String
Dim objSh As Object
Dim SL As Range
Dim Empfänger As Variant
'Mailversand
Set session = CreateObject("Notes.NotesSession")
Set DB = session.GETDATABASE("", "")
If DB.IsOpen = True Then
MsgBox ("Bitte Lotus Notes öffnen und nochmals auf *Mail senden* klicken!")
Exit Sub
Else
DB.OPENMAIL
Set doc = DB.CreateDocument()
With doc
.Form = "Memo"
.SendTo = Empfänger
.Subject = "Neuer Arbeitsauftrag eingestellt, " & Now()
.body = "Datei kann hier angesehen werden"
.Sign = "0"
.DisplayAlerts = True
.SAVEMESSAGEONSEND = False
.DeleteAfterSend = True
.Send (False)
End With
Else
MsgBox ("Bitte erst für den neuen Auftrag die Felder ausfüllen!")
End If
End With
End If
Set session = Nothing
Set DB = Nothing
Set doc = Nothing
End Sub