Ik heb een code gevonden waarmee ik vervaldata in een e-mail kan sturen. Ik probeer het te wijzigen, zodat ik het Excel-bestand hieraan koppel. Het wordt blauw; ik kan er echter niet op klikken om te openen. Weet iemand hoe ik dit kan oplossen. Help alstublieft. Ontzettend bedankt! Het deel dat ik zelf heb toegevoegd heb ik vet gemarkeerd.

Hier is de code:

Openbare sub CheckAndSendMail()
'Bijgewerkt door' Extendoffice 2018/11/22
Dim xRgDate als bereik
Dim xRgSend als bereik
Dim xRgText als bereik
Dim xRgGereed als bereik
Dim xOutApp als object
Dim xMailItem als object
Dim xLaatste Rij Zo Lang
Dim vbCrLf als string
Dim xMailBody als tekenreeks
Dim xRgDateVal als string
Dim xRgSendVal als string
Dim xMailOnderwerp als tekenreeks
Dim ik zo lang
On Error Resume Next
Set xRgDate = Application.InputBox("Selecteer de vervaldatum kolom:", "KuTools For Excel", , , , , , 8)
Als xRgDate niets is, sluit dan Sub af
Set xRgSend = Application.InputBox ("Selecteer de ontvangers? e-mailkolom:", "KuTools For Excel", , , , , , 8)
Als xRgSend niets is, sluit dan Sub af
Set xRgText = Application.InputBox("Selecteer de kolom met herinnerde inhoud in uw e-mail:", "KuTools For Excel", , , , , , 8)
Als xRgText niets is, sluit dan Sub af
xLastRow = xRgDate.Rijen.Aantal
Stel xRgDatum = xRgDatum(1) in
Stel xRgSend = xRgSend(1) in
Stel xRgText = xRgText(1) in
Stel xOutApp = CreateObject ("Outlook.Application") in
Voor i = 1 tot xLaatste rij
xRgDateVal = ""
xRgDateVal = xRgDate.Offset(i - 1).Waarde
Als xRgDateVal <> "" Dan
Als CDate(xRgDateVal) - Datum <= 7 en CDate(xRgDateVal) - Datum > 0 Dan
xRgSendVal = xRgSend.Offset(i - 1).Waarde
xMailSubject = xRgText.Offset(i - 1).Waarde & "op" & xRgDateVal
vbCrLf = " "
xMailBody = " "
xMailBody = xMailBody & "Hallo, je hebt nieuwe items toegevoegd" & vbCrLf
xMailBody = xMailBody & "Tekst: " & xRgText.Offset (i - 1). Waarde & vbCrLf
xMailBody = xMailBody & " L:\Public\23-Plant PDCA\2023\KACI Master 5S PDCA trail2.xlsm" & fpath & " "
xMailBody = xMailBody & " "
Stel xMailItem = xOutApp.CreateItem(0) in
Met xMailItem
.Onderwerp = xMailOnderwerp
.To = xRgSendVal
.HTMLBody = xMailBody
.Scherm
'.Versturen
Eindigt met
Stel xMailItem = Niets in
End If
End If
Volgende
Stel xOutApp = Niets in
End Sub