erro no email...

[lucastroy 0]

olá pessual,

eu to tentando enviar um email para o usuário que acaba de cadastrar no meu site.....

enviar o email até que eu to conseguindo, o problema é colocar um link para liberar a conta, com o username do cadastrante.........

 

olha como que eu to fazendo:

 

'Set username cookie to sign them in now

Response.Cookies("username") = username

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")

EnviarMail.To = email

EnviarMail.cc = "webmaster@xblog.com.br"

EnviarMail.From = "webmaster@xblog.com.br"

EnviarMail.Subject = "Cadastro xBLOG"

 

MsgBody = MsgBody & "<p><font size=""1"" face=""Verdana"">"

MsgBody = MsgBody & "Olá <b>" & nome & "</b>, " & vbcrlf & vbcrlf

MsgBody = MsgBody & "Bem vindo ao xBlog !<br>"

MsgBody = MsgBody & "Título do Blog: <b>" & titulo & "</b><br>"

MsgBody = MsgBody & "Categoria cadastrada: <b>" & categoria & "</b><br>"

MsgBody = MsgBody & "Url: <b>" & url & "</b><br>"

MsgBody = MsgBody & "Nome de usuário: <b>" & username & "</b><br>"

MsgBody = MsgBody & "Senha é: <b>" & senha & "</b><br>"

'aqui está dando erro....

MsgBody = MsgBody & "<b><a href=""http://www.xblog.com.br/ativar.asp?id="& username &"" target='_blank'>"

MsgBody = MsgBody & "ATIVAR CADASTRO</b></a><br></font><font size=""1"" face=""Verdana"">Depois de ativado seu cadastro, verifique no"

MsgBody = MsgBody & "painel de controle do <a href=""http://www.xblog.com.br"" target=""_blank"">www.xblog.com.br</a> o"

MsgBody = MsgBody & "código html para votação.</font></p>"

 

EnviarMail.Body = MsgBody

EnviarMail.Importance = 1

EnviarMail.BodyFormat = 0

EnviarMail.MailFormat = 0

EnviarMail.Send

Set EnviarMail = Nothing

 

To precisando disso muitão... ontem fiquei quebrando minha cabeça um tempão com issu........

nossa.................

 

Agradeço desde já.

[lucastroy 0]

ae pessual,já consegui...corri atraz, procurei na net.... li umas matérias aí......valeu.....fui..