Ir para conteúdo

POWERED BY:

Arquivado

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

betobto

Enviar email ao Remetente

Por , em ASP Clássico

Recommended Posts

betobto    0

betobto
Postado

Olá pessoal, estou com uma dúvida como mandar um email para o remetente???

 

Esse código envia para o meu email... queria que assim q a pessoa terminasse de fazer o contato, ele rebecesse uma copia do email com mais algumas infomações....

 

Agradeço

 

 

	emailFrom = "diretoria@colegio.com.br"
emailTo = "diretoria@colegio.com.br"
emailcc = "secretaria@colegio.com.br"
emailVisitante = request.form("email")
assunto = "Colégio Kelvin: Inscrição Concurso de Bolsas (prova 01/10)"

wnome			= request.Form("frmNome")
wnascimento		= request.Form("frmNascimento")
wsexo			= request.Form("frmSexo")
wcpf			= request.Form("frmCpf")
wrg				= request.Form("frmRg")
wemail			= request.Form("frmEmail")
wcep			= request.Form("frmCep")
wbairro			= request.Form("frmBairro")
wrua			= request.Form("frmRua")
wnumero			= request.Form("frmNumero")
wcomplemento	= request.Form("frmComplemento")
westado			= request.Form("frmEstado")
wcidade			= request.Form("frmCidade")
wpais			= request.Form("frmPais")
wfone			= request.Form("frmFone")
wcel			= request.Form("frmCel")
westudante		= request.Form("serie")

corpoMensagem = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">" 
corpoMensagem = corpoMensagem & "<html>" 
corpoMensagem = corpoMensagem & "<head>" 
corpoMensagem = corpoMensagem & "<meta http-equiv=""Content-Type""" 
corpoMensagem = corpoMensagem & "content=""text/html; charset=iso-8859-1"">"	
corpoMensagem = corpoMensagem & "</head>" 
corpoMensagem = corpoMensagem & "<body>" 	
corpoMensagem = corpoMensagem & "Nome: " & Request.Form("frmNome") & "<br />"
corpoMensagem = corpoMensagem & "CPF: " & Request.Form("frmCpf") & "<br />"
corpoMensagem = corpoMensagem & "RG: " & Request.Form("frmRg") & "<br />"
corpoMensagem = corpoMensagem & "Sexo: " & Request.Form("frmSexo") & "<br />"
corpoMensagem = corpoMensagem & "Data. Nasc.: " & Request.Form("frmNascimento") & "<br />"
corpoMensagem = corpoMensagem & "E-mail: " & Request.Form("frmEmail") & "<br />"
corpoMensagem = corpoMensagem & "Endereço: " & Request.Form("frmRua") & ", " & Request.Form("frmNumero") & " - " & Request.Form("frmComplemento") & "  " & Request.Form("frmBairro") & "<br />"
corpoMensagem = corpoMensagem & "CEP: " & Request.Form("frmCep") & "<br />"
corpoMensagem = corpoMensagem & "Cidade: " & Request.Form("frmCidade") & " / " & Request.Form("frmEstado") & "<br />"
corpoMensagem = corpoMensagem & "Pais: " & Request.Form("frmPais") & "<br />"
corpoMensagem = corpoMensagem & "Telefone: " & Request.Form("frmFone") & " - Celular: " & Request.Form("frmCel") & "<br />"
corpoMensagem = corpoMensagem & "Série para prova: " & Request.Form("serie")
corpoMensagem = corpoMensagem & "</body>" 
corpoMensagem = corpoMensagem & "</html>" 
corpoMensagem = Replace(corpoMensagem, vbCrLf, "<br />")

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields.update

Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = emailFrom & " <" & emailFrom & ">"
objCDOSYSMail.To = emailTo
objCDOSYSMail.Cc = emailcc

objCDOSYSMail.ReplyTo = emailVisitante
objCDOSYSMail.Subject = assunto
objCDOSYSMail.HtmlBody = corpoMensagem
objCDOSYSMail.Send
set objCDOSYSMail = nothing
set objCDOSYSCon = nothing

response.Redirect("ok.asp")

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

usa um sistema de auto-responder, existem exemplos no fórum

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