Hello everybody.
I've got the following code, but i can't get my link to work.
ActiveWorkbook.SendMail _
Recipients:=Range("B126"), _
Subject:=Format(Date, "yyyy/mm/dd") & " Assortimentsaanvraag " & Range("I4")
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "Goedendag," & vbNewLine & vbNewLine & _
"Uw aanvraag is goedgekeurd door alle partijen en ingediend bij Artikelbeheer." & vbNewLine & _
"" & vbNewLine & _
"<A href="K:\Gedeelde Mappen\Assortimentsbeheer\Assortimentsaanvraag (Fmar100)\2018\" & Format(Date, "yyyy/mm/dd") & " Assortimentsaanvraag " & Range("I4") & ".xlsm" > Formulier </A>" & vbNewLine & ""
On Error Resume Next
With OutMail
.To = Range("B126")
.CC = ""
.BCC = ""
.Subject = Format(Date, "yyyy/mm/dd") & " Assortimentsaanvraag " & Range("I4")
.Body = strbody
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Can anyone help me?