Enviar email ao Remetente
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")
Discussão (1)
Carregando comentários...