Send email through Lotus - selecting hyperlink PDF file from excel sheet

Sub EmailFile()
    ' Declare Variables for file and macro setup
    Dim UserName As String, ccrecipient As String
    Dim MailDbName As String
    Dim Maildb As Object
    Dim MailDoc As Object
    Dim AttachME As Object
    Dim Session As Object
    Dim EmbedObj1 As Object
'// ———————————————————————————————————————————————————————————————————————————
    Dim attachRng As Range
    Dim attachPath As String
    Dim attachName As String
'// ———————————————————————————————————————————————————————————————————————————
    
    ' Open and locate current LOTUS NOTES User
    Set Session = CreateObject("Notes.NotesSession")
    UserName = Session.UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
    
    Set Maildb = Session.GETDATABASE("", MailDbName)
    
    If Maildb.IsOpen = True Then
    
    Else
        Maildb.OPENMAIL
    End If
    
    ' Create New Mail and Address Title Handlers
    Set MailDoc = Maildb.CreateDocument
    MailDoc.Form = "Memo"
    MailDoc.SendTo = "Recipients"
    ccrecipient = "ccRecipients"
    MailDoc.Subject = "Subject"
    MailDoc.Body = "BODY"
    
    ' Select Workbook to Attach to E-Mail
    MailDoc.SaveMessageOnSend = False
'// ———————————————————————————————————————————————————————————————————————————
    Set attachRng = Range("F19")
    attachPath = attachRng.Hyperlinks(1).Address
    attachName = attachRng.Value
    
    If attachPath <> "" Then
        On Error Resume Next
        Set AttachME = MailDoc.CREATERICHTEXTITEM("attachment1")
        Set EmbedObj1 = AttachME.EmbedObject(1454, "", attachPath, attachName) 'Required File Name
        On Error Resume Next
    End If
'// ———————————————————————————————————————————————————————————————————————————

    Set workspace = CreateObject("Notes.NotesUIWorkspace")
    
    Call workspace.EDITDOCUMENT(True, MailDoc).GOTOFIELD("Body")
    
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj1 = Nothing

errorhandler1:
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj1 = Nothing
    
    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
End Sub

Sub CheckVal()   
    Dim attachRng As Range
    Dim attachPath As String
    Dim attachName As String
    
    Set attachRng = Range("F19")
    attachPath = attachRng.Hyperlinks(1).Address
    attachName = attachRng.Value

    MsgBox "The Path is - " attachPath

    MsgBox "The Name is - " attachName

End Sub