VB 6 en acces - crear un hipervinculo

[engonga]

Hola tengo este codigo asignado a un boton

Código PHP:

  Private Sub Comando1_Click() 
On Error GoTo Err_Comando1_Click 
 
    Dim stDocName As Object 
    Dim missatge 
    Dim Link 
    Dim missatge2 
    Dim mistot 
    Dim nomcognoms As String 
    Dim subject 
     
     
    nomcognoms = Replace(COGNOMS__NOM, " ", "%20") 
    missatge = CAPTEXT 
    missatge2 = PEUTEXT 
    subject = SUBJECTE 
     
    'missatge = "Acaba d'omplir la teva fitxa a la nostra base de dades" & vbCrLf & vbCrLf 
    Link = vbCrLf & vbCrLf & "http://localhost/esi_human/addates.asp?codi=" & CODI & "&nom=" & nomcognoms & vbCrLf & vbCrLf 
    'Link = vbCrLf & vbCrLf & "http://esigual.com/prova.asp?codi=" & CODI & "&nom=" & nomcognoms & vbCrLf & vbCrLf 
    'missatge2 = vbCrLf & vbCrLf & "Les teves dades estaran a la Base de dades de SUMER" 
    mistot = missatge & Link & missatge2 
     
    DoCmd.SendObject , , acFormatHTML, _ 
    MAIL, , , _ 
    subject, mistot, False 
 
 
Exit_Comando1_Click: 
    Exit Sub 
 
Err_Comando1_Click: 
    MsgBox Err.Description 
    Resume Exit_Comando1_Click 
     
End Sub 
   

pero me pone un link en el cuerpo de correo en el formato http://loquese.com/esi-human/sdfsadf.asp

pero no se como hacer para hacer un "pulse aquí" y que este sea el vinculo que vaya a esta pagina


alguien me puede ayudar?


gracias

[Mickel]

estas enviando codigo HTML(acFormatHTML) asi que tendrias que poner
<a href=(la pagina)>haga click aqui</a>

[engonga]

lo he puesto asin

Código:

Link = vbCrLf & vbCrLf & "<a href=http://localhost/esi_human/addates.asp?codi=" & CODI & "&nom=" & nomcognoms & ">vinculo</a>" & vbCrLf & vbCrLf

y me ha puesto esto en el mail


<a
href=http://localhost/esi_human/addates.asp?codi=2&nom=GARCIA%20BONJORN,
%20MELANIA>vinculo</a>