Problemas Com Email

[rafaeltejeda]

galerinha do bem

eu peguei um código que envia email com o componente cdonts mas to com um probleminha o código é esse

nome=request("nome")

empresa=request("empresa")

email=request("email")

telefone=request("telefone")

cidade=request("cidade")

canal=request("canal")

mensagem=request("mensagem")

Set objMail = Server.CreateObject ("CDONTS.Newmail")

objmail.to = "rafael.anjinho@gmail.com"

objmail.from = email

objmail.Subject = " Você revebeu um email do site Guia da hora H com o assundo " &canal

corpo = "Nome: " & nome & vbCrLf

corpo = "Empresa: " & empresa & vbCrLf

corpo = "E-mail: " & email & vbCrLf

corpo = "Cidade: " & cidade & vbCrLf

Corpo = Corpo & mensagem

objmail.body = Corpo

objmail.send

Response.Write "Seu email foi nos enviado com sucesso."

o problema é o seguinte

ele ta mandando o email noormalmente só que só vai o campo cidade e mensagem njo email o resto não

me deem uma luz

atenciosamente

[raphanasc]

você não esta concatenando as outas partes tentan assim:

corpo = "Nome: " & nome & vbCrLf
corpo = corpo & "Empresa: " & empresa & vbCrLf
corpo = corpo & "E-mail: " & email & vbCrLf
corpo = corpo & "Cidade: " & cidade & vbCrLf
Corpo = Corpo & mensagem