Olha amigos tenho este documento de enail em asp e gostaria de saber se ten como colocar um aviso que o email foi enviado e sequindo o caminho para a pagina que esta direcionada
Utilizamos cookies e tecnologias semelhantes de acordo com a nossa Política de Privacidade, e ao continuar navegando, você concorda com estas condições.
Pergunta
arldin
Olha amigos tenho este documento de enail em asp e gostaria de saber se ten como colocar um aviso que o email foi enviado e sequindo o caminho para a pagina que esta direcionada
<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.seudominio.com.br"
cdoConfig.Fields.Item(sch & "smtpserverport") = 25
cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
cdoConfig.Fields.Item(sch & "sendusername") = "seuemail@seudominio.com.br"
cdoConfig.Fields.Item(sch & "sendpassword") = "sua senha"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = request.Form("responder")
cdoMessage.To = request.Form("destino")
cdoMessage.Subject = "Formulario de Contato"
strBody = "<strong><p>DADOS DA FESTA</strong>" & vbCrLf & vbCrLf & _
"<strong><p>NOME: <strong>"& Request("nome") & vbCrLf & _
"<strong>E-MAIL:<strong> "& Request("responder") & vbCrLf & _
"<strong>ASSUNTO:<strong> "& Request("assunto") & vbCrLf & _
"<strong>ESCOLHA:<strong> "& Request("escolha") & vbCrLf & _
"<strong>TEMAS: <strong>"& Request("tema") & vbCrLf & _
"<strong><p>OPCÕES DE PAGAMENTO:<strong> "& Request("pag") & vbCrLf & _
"<strong>CHEQUE NUM: "& Request("numch") & vbCrLf & _
"<strong>BANCO NUM:<strong> "& Request("bcnum") & vbCrLf & _
"<strong>CONTA NUM:<strong> "& Request("cc") & vbCrLf & _
"<strong>BOM PARA:<strong> "& Request("dta") & vbCrLf & _
"<strong> COLOQUE NOME DO ANIVERSARIANTE,LOCAL DA FESTA.PARA OS CONVITES:<strong><p> "& Request("mensagem")
strBody = strBody & "."
cdoMessage.HTMLBody = strBody
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing
response.redurect "pagina.asp"
%>
desde já eu agradeço a todos :o
a pagina e esta pois no primeiro post tem um erro
<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.seudominio.com.br"
cdoConfig.Fields.Item(sch & "smtpserverport") = 25
cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
cdoConfig.Fields.Item(sch & "sendusername") = "seuemail@seudominio.com.br"
cdoConfig.Fields.Item(sch & "sendpassword") = "sua senha"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = request.Form("responder")
cdoMessage.To = request.Form("destino")
cdoMessage.Subject = "Formulario de Contato"
strBody = "<strong><p>DADOS DA FESTA</strong>" & vbCrLf & vbCrLf & _
"<strong><p>NOME: <strong>"& Request("nome") & vbCrLf & _
"<strong>E-MAIL:<strong> "& Request("responder") & vbCrLf & _
"<strong>ASSUNTO:<strong> "& Request("assunto") & vbCrLf & _
"<strong>ESCOLHA:<strong> "& Request("escolha") & vbCrLf & _
"<strong>TEMAS: <strong>"& Request("tema") & vbCrLf & _
"<strong><p>OPCÕES DE PAGAMENTO:<strong> "& Request("pag") & vbCrLf & _
"<strong>CHEQUE NUM: "& Request("numch") & vbCrLf & _
"<strong>BANCO NUM:<strong> "& Request("bcnum") & vbCrLf & _
"<strong>CONTA NUM:<strong> "& Request("cc") & vbCrLf & _
"<strong>BOM PARA:<strong> "& Request("dta") & vbCrLf & _
"<strong> COLOQUE NOME DO ANIVERSARIANTE,LOCAL DA FESTA.PARA OS CONVITES:<strong><p> "& Request("mensagem")
strBody = strBody & "."
cdoMessage.HTMLBody = strBody
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing
response.redirect "pagina.asp"
%>
Link para o comentário
Compartilhar em outros sites
5 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.