CDOSYS - Corta conteúdo

[paginad 0]

boa tarde.

 

estou enviando um conteudo para cerca de 50 emails. esse conteudo tem 2 links mais para algumas pessas esses links estao indo quebrado faltando lentras, tipo como o CDOSYS estive alterando alguns corretos e outros incorretos.

 

alguem já viu isso?

 

em um linnk <a href="http://www.dominio.com.br">teste</a> está indo assim <a href="http://">teste</a>

 

O que pode ser?

[Ted k' 126]

posta æ como está fazendo o envio!

[paginad 0]

Essa é a funcao:

 

Function EnviarMail(de, para, assunto, corpo)
Set objCDO = Server.CreateObject("CDO.Message")
 Set objCDOSYSCon = Server.CreateObject("CDO.Configuration")
  With objCDOSYSCon
   .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
   .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") = 30 
   .Fields.update
  End With
  Set objCDO.Configuration = objCDOSYSCon
   With objCDO
    .From       = de
    .To         = para
    .Subject    = assunto
    .HTMLBody   = corpo
    .Send
   End With
 Set objCDO = Nothing
 Set objCDOSYSCon = Nothing
 EnviaMail = True
End Function

Aqui eu chamo a funcao

 

 

txt = "<b>Para acessar o boleto, clique no link:</b><br><a href=http://www.dominio.com.br/boletos/boleto.asp?p="&ultimo_pagamento&"&l="&TRIM(login)&">http://www.dominio.com.br/boletos/boleto.asp?p="&ultimo_pagamento&"&l="&TRIM(login)&"</a>"

Call EnviarMail("email@email.com.br", email, "assunto", txt)

[Ted k' 126]

tente assim:

txt = "<b>Para acessar o boleto, clique no link:</b><br><a href='http://www.dominio.com.br/boletos/boleto.asp?p="&ultimo_pagamento&"&l="&TRIM(login)&"'>http://www.dominio.com.br/boletos/boleto.asp?p="&ultimo_pagamento&"&l="&TRIM(login)&"</a>"

repare que só fiz colocar a aspa simples!