Posted by
...
quando prenchi o form, chegou o email com os dados de email mais o nome não aparece so pareceu isto no corpo do email.
(Nome: <br />E-mail: nome lembro@yahoo.com.br), ...
De acordo com o script que lhe enviei:
<%
Dim remetente, destinatario, nome, email, assunto
remetente = "conta_remetente@seudominio.com.br"
destinatario = "conta_destinatario@dominio.com.br"
nome = Request.Form("nome")
email = Request.Form("email")
assunto = "Coloque algum assunto padrão!"
Set msg = CreateObject("CDO.Message")
Dim config : config = msg.Configuration.Fields
With config
.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.seudominio.com.br"
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 27
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Ativa/Desativa conexao SSL (True ou False)
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Ativa autenticacao em texto plano (clear-text)
.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="conta_remetente@seudominio.com.br"
.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="senha_do_email"
.Update
End With
msg.To = destinatario
msg.Subject = assunto
msg.From = remetente
msg.TextBody = "Nome: "& nome &""&_
"E-mail: " & email
msg.Send
Set msg = Nothing
%>Agora vamos ao possível problela.- Variavel nome (request("nome")), vazia, o que pode estar acontecendo por conta do campo destinado ao nome no formulário estar com o atributo "name" sem ser declarado ou com nome diferente ao utizado na diretiva "request" (request("name")), indico que faça de uma averiguada no formulário e verifique cada campo, se esse possui "name" e se esses "names" é que são utilizados pela página de envio de e-mail através do request.
Já com relação à seu último post:
Acredito que tenha esquecido de uma parte!...
eu tentei tirar estes codigos que eu não preciso
mais não funcionou ....
_____________________________________
cidade = Request.Form("cidade")
estado = Request.Form("estado")
mensagem = Request.Form("mensagem")
data = now()
...
Esta:
msg.TextBody = "IP de Origem: " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf &_
"Data: " & data & vbcrlf&_
"----------------------------" & vbCrLf &_
"Nome: " & nome & vbCrLf &_
"Cidade: " & cidade & vbCrLf &_
"Estado: " & estado & vbCrLf &_
"E-mail: " & email & vbCrLf &_
"Mensagem: " & vbCrLf &_
mensagem & vbCrLfAo retirar aqueles campos, faz-se necessário retirar aqui também, já que os mesmos são utilizados para formar o corpo da mensagem a ser enviada.Ps: quando disse que não funcionou, é por que deu erro ou o e-mail foi enviado mas não possuia os dados informados?
