visual 6 se me corta la cadena

[engonga]

hola

tengo un programa que envia correos electronicos pero lo que me passa es que cuando lo passo al correo si la cadena es muy larga me la parte

Código PHP:

  Link = vbCrLf & vbCrLf & "http://localhost/esi_human/addates.asp?codi=" & CODI & "&nom=" & nomcognoms & vbCrLf  
   

y me sale

Código PHP:

  http://localhost/esi_human/addates.asp?codi=2&nom=GARCIA%20BONJORN,%20ME  
   

LANIA


y la variable nom es GARCIA BONJORN, MELANIA

no se como solucionarlo

alguien sabe

[David]

Iniciado por ^engonga^

hola

tengo un programa que envia correos electronicos pero lo que me passa es que cuando lo passo al correo si la cadena es muy larga me la parte

Código PHP:

  Link = vbCrLf & vbCrLf & "http://localhost/esi_human/addates.asp?codi=" & CODI & "&nom=" & nomcognoms & vbCrLf  
   

y me sale

Código PHP:

  http://localhost/esi_human/addates.asp?codi=2&nom=GARCIA%20BONJORN,%20ME  
   

LANIA


y la variable nom es GARCIA BONJORN, MELANIA

no se como solucionarlo

alguien sabe

Ya trataste de ejecutarlo en modo de depuracion, y ver si la variable nomcognoms realmente tiene el valor que quieres enviar

[engonga]

si la varaiable nomcognoms tiene el valor GARCIA%20BONJORN,%20MELANIA

pero quando se me pinta en el cuerpo del correo se me corta por que la linea es muy larga y yo no se como hacer un link con mas de una linea


gracias

[David]

Iniciado por ^engonga^

si la varaiable nomcognoms tiene el valor GARCIA%20BONJORN,%20MELANIA

pero quando se me pinta en el cuerpo del correo se me corta por que la linea es muy larga y yo no se como hacer un link con mas de una linea


gracias

Lo siento, pero ahora mismo no tengo como probarlo, pero cuando pueda volvemos a hablar, ahora, solo una inidicacion, el vb no corta cadenas, tal vez el que te este cortando la cadena es el codigo que usas para enviar el E-Mail...

[engonga]

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