[Resolvido] form de email com combobox chamando asp

[menina 0]

Olá, preciso de um form de email com combobox / ASP que de acordo com o departamento vá para um email, alguém tem algo para me passar? eu até já tenho um form que esta chamando a função em PHP, mas aonde a pagina esta hospedada não aceita a função MAIL do PHP, e preciso mudar para ASPMAIL, mas não entendo nada....e preciso terminar esta pagina urgente... :(, até tenho alguns modeloes de aspmail, mas é para um unico email de recebimento...Socorro!!!! :(

 

 

Sandra

[ericdbx 0]

menina,

o combobox envia as variaveis separadas por virgula.

 

entao use IF da variavel usando a função inStr().

 

Exemplo

 

Combobox

1-Contato

2-Finaceiro

3-Comercial

4-Produção

 

se você selecionar duas opçoes

 

IF inStr(Combo) = "1" then
Function_envia_mail("DE","Para","TITULO")
End if

IF inStr(Combo) = "2"
Function_envia_mail("DE","Para","TITULO")
End if

IF inStr(Combo) = "3"
Function_envia_mail("DE","Para","TITULO")
End if

IF inStr(Combo) = "4"
Function_envia_mail("DE","Para","TITULO")
End if

no seu caso ao inves da função você usa o codigo q você tem do aspMail

[menina 0]

Eric, vou ser sincera não entendi o que você postou, tem como você montar um pqno exemplo para mim? ou se for o caso, qto você me cobraria pra montar um form de envio de email com combobox chamando asp??

[xanburzum 169]

faz um combobox normal e coloca no value e do campo o email, e depois recupera atraves do request.form e coloca, por exemplo usando o CDOSYS, na propriedade .To do componente, exemplo:

 

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>

[ericdbx 0]

Eric, vou ser sincera não entendi o que você postou, tem como você montar um pqno exemplo para mim? ou se for o caso, qto você me cobraria pra montar um form de envio de email com combobox chamando asp??

 

me passa um e-mail pro meu pessoal e conversamos melhor

ericdbx@gmail.com

[menina 0]

xanburzum, bom dia e obrigada pela dica, mas eu realmente estou com dificuldade em como dar este request no combobox, as paginas de email que eu tenho segue o ex. que você postou, são fixas o endereço de email, não estou sabendo dar este request. Sei que é pedir muito mas será que pode me passar?

[xanburzum 169]

imagine que você tem um campo do tipo assim:

 

<select name="email" id="x">
      <option value="rh@terra.com.br">rh</option>
      <option value="financeiro@terra.com.br">finanças</option>
      <option value="ped@terra.com.br">pedagogico</option>
    </select>

você recupera assim,

var_email=request.form("email")

[menina 0]

xamburzum, dá uma olhada no codigo abaixo por favor, veja o q esta errado qdo jogo no ar me retorna:

CDO.Message.1 error '80040220'

 

The "SendUsing" configuration value is invalid.

 

/enviar.asp, line 34

<%
    '"declarao todas as variáveis que precisamos
	Dim MyMail
	Dim Email_destino
        Dim Nome_emitente
	Dim Email_emitente
	Dim Tel_emitente
	Dim Assunto
	Dim Mensagem
	Dim Email_corpo
    
   'obtenho alguns valores para as variáveis do formulário
    Email_destino = Request.Form("combo_email")
	Email_emitente = Request.Form("email_remetente")
    Nome_emitente = Request.Form("nome")
    Tel_emitente = Request.Form("telefone")
	Assunto = Request.Form("assunto")
    Mensagem = Request.Form("mensagem")

    'construo o corpo do e-mail a partir dos dados sob a forma
    Email_corpo = "Nome: "& Nome_emitente & vbcrlf
    Email_corpo = Email_corpo & "Telefone: "& Tel_emitente & vbcrlf
    Email_corpo = Email_corpo & "Email: "& Email_emitente & vbcrlf
    Email_corpo = Email_corpo & "Mensagem:" & vbcrlf
    Email_corpo = Email_corpo & Mensagem

    'Criando a variavel e enviando o email
    Set MyMail = CreateObject("CDO.Message")
    MyMail.From = Email_emitente
    MyMail.To = Email_destino
	MyMail.Subject = Assunto
    MyMail.TextBody = Email_corpo
    MyMail.Send [color="#FF0000"][b] """"""""""""""""""""""""""""""""""""""LINHA 34 DO ERRO NA PAGINA""""""""""""""""""""""""""""""""""""[/b][/color]
    Set MyMail= nothing
	Response.Write("Email enviado com sucesso!")
%>

[menina 0]

Ufffaaaaa................até q enfim consegui .....faltava a parte de autenticação....Xanburzum obrigada pela dica.... Podem fechar tópico como resolvido

[xanburzum 169]

ok, beleza....