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>