Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
arldin

Gostaria de saber se e possivel,redicionar o email

Recommended Posts

<%

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") = "[email protected]"

cdoConfig.Fields.Item(sch & "sendpassword") = "senha do email que vai receber"

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.write "O e-mail foi processado e enviado com sucesso"

%>

Amigos eu gostaria de saber se e posivel colocar depois desta mensagem

de envio de Email ele seguise para outra pagina

Por Exemplo

response Redirect "http://www.index.asp"

Compartilhar este post


Link para o post
Compartilhar em outros sites

<%

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") = "[email protected]"

cdoConfig.Fields.Item(sch & "sendpassword") = "senha do email que vai receber"

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.write "O e-mail foi processado e enviado com sucesso"

%>

Amigos eu gostaria de saber se e posivel colocar depois desta mensagem

de envio de Email ele seguise para outra pagina

Por Exemplo

response Redirect "http://www.index.asp"

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...