Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
Kadu

formmail

Recommended Posts

fiz os teste e num chega a mensagem no meu e-mail

<%

'Declarando variveis

Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto

'Pegando os dados digitados nos campos e colocando em variaveis

sNameFrom = Request.Form(\"nome\")

sEmailFrom = Request.Form(\"email\")

sEmailTo = \"[email protected]\"

sNameTo = \"AquiTem HP\"

sText = Request.Form(\"mensagem\")

sAssunto = Request.Form(\"assunto\")

'Cria o objeto

 set mailer = server.createobject(\"SMTPsvg.Mailer\")

 Mailer.FromName = sNameFrom

 Mailer.FromAddress = sEmailFrom

'Host para envio de emails

 Mailer.RemoteHost = \"localhost\"

 Mailer.AddRecipient sEmailTo, sNameTo

 Mailer.Subject = sAssunto  & \" - E-mail\"

 'Monta a texto para o envio

 strMsgHeader = sNameFrom & \"(\" & sEmailFrom & \") \" & \" quem enviou! \" & vbCrLf & vbCrLf

 strMsgFooter = sText

 Mailer.BodyText = strMsgHeader & strMsgFooter

 ' Se for enviado redirecionar para obrigado.asp

 if Mailer.SendMail then

    Response.Redirect \"obrigado.asp\"

 else

 ' Se não for enviado mostra o erro que ocoreu

    Response.Write (\"Ocorreu um erro.<BR>\")

    Response.Write (\"O Erro é \" & Mailer.Response)

 end if

%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Você tem esse obejeto (server.createobject("SMTPsvg.Mailer")) instalado em seu PC?

O nome de usuario e sua senha para o SMTP?

Verifique a utilização correta do componente.

por que não utilizas o ASPMail?

Bem mais facil e simples, com envio em HTML e anexos.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...