Ir para conteúdo

POWERED BY:

Arquivado

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

Vagner Mello - RJ

Formulário CDOSYS ?! Script

Por , em ASP Clássico

Recommended Posts

Vagner Mello - RJ    0

Vagner Mello - RJ
Postado

Olá pessoal,

 

gostaria de saber se alguém tem algum modelo de formulário CDOSYS, com a seguinte opção:

 

- Criei uma página de Contato, mas como a empresa tem muitas áreas... gostaria de criar um formulário único onde a pessoa tivesse a opção de escolher para qual departamento ela deseja enviar a mensagem...

 

Bom, fazer o formulário e enviar via CDOSYS, para um único email eu sei...

 

Mas agora, Como faço essa multipla escolha, ou seja, varios setores, varios emails.???

 

 

me ajudem,

 

por favor!!!

 

Segue abaixo um exemplo de formulário simples em CDOSYS que funciona bem

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'cria o objeto para o envio de e-mail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail-fwd"

'porta do SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'porta do CDO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'timeout
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

'atualiza a configuração do CDOSYS para o envio do e-mail
Set objCDOSYSMail.Configuration = objCDOSYSCon

'e-mail do remetente
objCDOSYSMail.From = request.form("email:")

'e-mail do destinatário
objCDOSYSMail.To = "seuemail@seuemail.com.br"

'assunto da mensagem
objCDOSYSMail.Subject = "Assunto"

'conteúdo da mensagem
objCDOSYSMail.TextBody = request.form("body")

'Cria a Mensagem a Enviar
Msgs = "Nome: " & request.form("nome:") & vbCrLf
Msgs = Msgs & "E-mail: " & request.form("email:") & vbCrLf
Msgs = Msgs & "Conteudo: " & request.form("conteudo:")


'conteúdo da mensagem
objCDOSYSMail.TextBody = Msgs


'objCDOSYSMail.fields.update

'envia o e-mail
objCDOSYSMail.Send

'destrói os objetos
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

Response.Redirect "http://www.seusite.com.br"
%>
:

 

Ok, Preciso de um outro com a opção de escolher para qual departamento ela deseja enviar a mensagem...???

 

vlw

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Bom dia você faz um formulário, com a opção de o usuário escolher o departamento ... ai você cria um if no destinatário de e-mail ... exemplo ...

 

<form action="pagina.asp" method="post">
<table>
<tr>
<td>contato:</td>
<td><select name="departamento">
<option value="rh">RH</option>
<option value="compras">Compras</option>
<option value="financ">Financeiro</option></td>
</tr>
</table>
</form>

pagina.asp

departamento = request.form("dpto")
if dpto = "rh" then
objCDOSYSMail.To = "rh@email.com.br"
elseif dpto = "compras" then
objCDOSYSMail.To = "compras@email.com.br"
elseif dpto = "financ" then
objCDOSYSMail.To = "financ@email.com.br"
end if

Mais ou menos isso ... abraçossss

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vagner Mello - RJ    0

Vagner Mello - RJ
Postado

Meu amigooooo, primeiramente muito obrigado pela resposta...

 

mas não estou conseguindo fazer...

 

segue abaixo o código para testes.

 

página do formulario:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>

<body>
<form id="contatoo" name="form1" method="post" action="envia_teste.asp">
  <p>
	<label>
	Seu nome:
	<input name="nome:" type="text" id="nome:" size="25" maxlength="30" />
	</label>
  </p>
  <p>email:
	<input name="email:" type="text" id="email:" size="25" maxlength="30" />
  </p>
  <p>
	<label></label>
	<label></label>
	<label>
	<select name="setor:" size="1" id="setor">
	  <option value="oracao">oração</option>
	  <option value="pibdc">PIBDC</option>
	</select>
	</label>
	<br />
  </p>
  <p>
	<label>
	<input type="submit" name="enviar" id="enviar" value="enviar" />
	</label>
  </p>
  <label></label>
</form>
</body>
</html>

Código da página de envio:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%

'cria o objeto para o envio de e-mail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail-fwd"

'porta do SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'porta do CDO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'timeout
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

'atualiza a configuração do CDOSYS para o envio do e-mail
Set objCDOSYSMail.Configuration = objCDOSYSCon

'e-mail do remetente
objCDOSYSMail.From = request.form("email:")

'e-mail do destinatário
setor = request.form("setor:")
objCDOSYSMail.To =  setor
if setor = "oracao" then
objCDOSYSMail.To = "ministeriodeoracao@pibdcaxias.com.br"
else if setor = "pibdc" then
objCDOSYSMail.To = "pibdcaxias@pibdcaxias.com.br"
end if

'assunto da mensagem
objCDOSYSMail.Subject = "TESTE SETOR"

'conteúdo da mensagem
objCDOSYSMail.TextBody = request.form("body")

'Cria a Mensagem a Enviar
Msgs = "Nome: " & request.form("nome:") & vbCrLf
Msgs = Msgs & "E-mail: " & request.form("email:") & vbCrLf
Msgs = Msgs & "setor" & request.form("setor")
'conteúdo da mensagem
objCDOSYSMail.TextBody = Msgs


'objCDOSYSMail.fields.update

'envia o e-mail
objCDOSYSMail.Send

'destrói os objetos
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

Response.Redirect "http://www.pibdcaxias.com.br/teste.asp"
%>

me ajudem

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

qual é a pagina envia_teste.asp?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Faltou um END IF no seu ELSE IF.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vagner Mello - RJ    0

Vagner Mello - RJ
Postado

ainda não consegui...

 

 

Amigos é importante que eu consiga esse recurso...

 

O site está ficando bacana... quem quiser ver o enderço é 1ª Igreja Batista em Duque de Caxias

por enquanto só funcionam fotos e mensagens em audio...

 

será que alguém poderia postar um script completo aqui...???

 

 

obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Ainda não consegui, posta pelo menos o que está acontecendo agora. A mesma mensagem de erro? Outro erro? Simplesmente não faz nada?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vagner Mello - RJ    0

Vagner Mello - RJ
Postado

O problema agora é:

 

ERRO INTERNO DO SERVIDOR HTTP://500

 

O script que envia o email esta assim:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%

'cria o objeto para o envio de e-mail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail-fwd"

'porta do SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'porta do CDO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'timeout
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

'atualiza a configuração do CDOSYS para o envio do e-mail
Set objCDOSYSMail.Configuration = objCDOSYSCon

'e-mail do remetente
objCDOSYSMail.From = request.form("email:")

'e-mail do destinatário
setor: = request.form("setor:")
if setor: = "oracao" then
objCDOSYSMail.To = "ministeriodeoracao@pibdcaxias.com.br"
end if 
else if setor: = "pibdc" then
objCDOSYSMail.To = "pibdcaxias@pibdcaxias.com.br"
end if

objCDOSYSMail.To = request.form("setor:")


'assunto da mensagem
objCDOSYSMail.Subject = "TESTE SETOR"

'conteúdo da mensagem
objCDOSYSMail.TextBody = request.form("body")

'Cria a Mensagem a Enviar
Msgs = "Nome: " & request.form("nome:") & vbCrLf
Msgs = Msgs & "E-mail: " & request.form("email:") & vbCrLf
Msgs = Msgs & "setor:" & request.form("setor:")
'conteúdo da mensagem
objCDOSYSMail.TextBody = Msgs


'objCDOSYSMail.fields.update

'envia o e-mail
objCDOSYSMail.Send

'destrói os objetos
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

Response.Redirect "http://www.pibdcaxias.com.br/teste.asp"
%>

e agora o que faço???

 

alguem pode arrumar esse script pra mim

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Desabilite nas opções avançadas de seu browser a exibição de mensagens de erro HTTP amigáveis.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Retire os ":" da definição de variável. Poste novamente se funcionou ou não.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

A sintaxe do ASP é diferente do Delphi (Pascal)

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