Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

williamot

Como adptar esse codigo

Recommended Posts

Gente eu tô fazenod um sitezinho peq.. e no msm tem um formulário para preenchimento para cliente só q tem um problema num muito de asp (só 10%).

Intaum eu queria saber como adpto esse codigo :

<%aviso = ""email = Request.Form("email")nome = Request.Form("nome")assunto = Request.Form("assunto")mensagem = Request.Form("mensagem")Set Mailer = Server.CreateObject("SMTPsvg.Mailer")Mailer.FromName = nomeMailer.FromAddress= emailMailer.RemoteHost = "localhost"Mailer.AddRecipient "Yeshua Cleaning Service", "contato@willianmota.com"Mailer.ContentType = "text"Mailer.Subject = assuntoMailer.BodyText = mensagemIf Mailer.SendMail Then   aviso = "Successfully Sent message!"Else   aviso = "Error, Tries Again later  ! " & Mailer.ResponseEnd IfSet Mailer = Nothing%>

Para esse formulario ir por e-mail http://www.yeshuacleanservice.com/site/pedido.asp

 

Valeu... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

precisa ver se seu servidor tem esse componente, usa o CDONTS, dificil os servidores nao terem..

 

'CDONTS

'||||||||||||||||||||||||||||||||||||||||||||||||||||||||

Dim objMail

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

objMail.From = "email@email.com.br"

objMail.To = "email@email.com.br"

objMail.Subject = "Assunto"

objMail.Importance =2 '(0=Low, 1=Normal, 2=High)

objMail.BodyFormat = 0

objMail.MailFormat = 0

objMail.Body = "menssagem"

 

 

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.