[VBA]inviare mail con link

[fabio309]

Salve a tutti, avrei bisogno di inviare con VBA una e-mail contenente un collegamento ad un file, il codice usato è il seguente

Set objmail = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")
With objConfig
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "imap"
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 1000
    .Fields.Update
End With

Set objmail.Configuration = objConfig
objmail.From = "protocollo"
objmail.To = txtDestinatario
objmail.Subject = "Segnalazione protocollo"
objmail.Fields("urn:schemas:httpmail:importance").Value = 2
objmail.Fields.Update
objmail.htmlbody = "Archiviato file protocollo numero:" & txtProtocollo & " in " & txtPercorso & txtNomeFile
objmail.Send
Set objmail = Nothing

il problema è che il collegamento mi viene visualizzato come testo
Qualcuno sa come fare?

Grazie a tutti

[fabio309]

trovato,

objmail.htmlbody = "Archiviato file protocollo numero:" & txtProtocollo & " in " & "" & txtPercorso & txtNomeFIle & ""

non era difficile