pongo el codigo
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
es una aplicacions de acces