Ir para conteúdo

POWERED BY:

Arquivado

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

mafioso

formulario com ASPMAIL...

Por , em ASP Clássico

Recommended Posts

mafioso    0

mafioso
Postado

eai,

 

olha eu aqui denovo ehehhe...

olhem o meu codigo ae...eu peguei uma base e tentei fazer..

 

<%'Recuperando Dados do Formularionome = Request.Form("txt_nome")email = Request.Form("txt_email")icq = Request.Form("txt_icq")assunto = Request.Form("txt_assunto")mensagem = Request.Form("txt_mensagem")'Criando Objeto ASPMAIL e enviando o emailSet ObjMail = Server.CreateObject("SMTPsvg.Mailer")ObjMail.RemoteHost = "smtp.bol.com.br"ObjMail.Subject = assuntoObjMail.FromAddress = "email"ObjMail.AddRecipient = "gustavo.r.prado@bol.com.br"ObjMail.Priority = 3ObjMail.CharSet = 1ObjMail.Encoding = 1ObjMail.ContentType = "text/html"texto = "O usuario "&nome&" lhe enviou a mensagem abaixo: "texto = texto & mensagemObjMail.BodyText = "texto"ObjMail.ReturnReceipt = falseObjMail.ConfirmRead = falseObjMail.Urgent = falseObjMail.Timeout = 60ObjMail.SendMail'Avisando envio de mensagemResponse.Write "Mensagem enviada com sucesso!!"%>

ah, e se alguem souber poste por favor um server com suporte a aspmail....

 

vlw

t+

Compartilhar este post

Link para o post
Compartilhar em outros sites

mkboy    1

mkboy
Postado

Vai o codigo mastigadinho e em pleno funcionamento:form

<html><head><title>ASP Mail</title></head><body><form action="processa.asp" method="post">Nome:<input type="text" name="nome"><br>Email:<input type="text" name="email"><br>Assunto:<input type="text" name="assunto"><br>Mensagem:<textarea name="mensagem"></textarea><br><br><input type="submit" value="Enviar"></form></body></html>

aspmail

<% Destino = "gustavo.r.prado@bol.com.br"servidor = "smtp.bol.com.br"titulo = "Fale Conosco"'Retirar dados do formulárionome = Request("nome")email = Request("email")assunto = Request("assunto")mensagem = Request("mensagem")'Criar objetoSet Mail = Server.CreateObject("Persits.MailSender")' Criar compo da mensagemstrBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#555555'>" strBody = strBody & "Nome: "strBody = strBody & "<b>" & nome & "</b><br><br>"strBody = strBody & "E-mail: "strBody = strBody & "<b>" & email & "</b><br><br>"strBody = strBody & "Assunto: "strBody = strBody & "<b>" & assunto & "</b><br><hr><br>"strBody = strBody & "Mensagem: <br>"strBody = strBody & mensagem & chr(10)strBody = strBody & "</font>" 'Propriedades do ASPMAILMail.Host = servidorMail.Port = 25 ' Valor opcional. 25 é a porta de erroMail.From = "gustavo.r.prado@bol.com.br"Mail.FromName = email ' OpcionalMail.Subject = assunoMail.Body = strBodyMail.IsHTML = TrueMail.AddAddress DestinoMail.Send' Controlar erros do ASPMAILIf Err <> 0 Then      Response.Write "popup.mensaje=Error, envíelo mas tarde " & Err.DescriptionElse  Response.Write  "popup.mensaje=Mensagem enviada com sucesso!"End If'Destruir o  aspmailSet Mail = Nothing%>

Testa ae!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito