none
Utilizando o CDOSYS RRS feed

  • Pergunta

  • Olá pessoal!

     

    Preciso criar uma formulário, e que este seja enviado para uma determinaod email... utlizo o iis. Teria alguma coisa pronta?

     

    Abraços

     

    segunda-feira, 11 de fevereiro de 2008 17:52

Respostas

  • Cláudio não sei se seria isso que você queira, mas segue exemplo: ;

     

    <SCRIPT LANGUAGE="VBScript">
    sub Enviar_form
      Strnome = nome.Value
      StrEnd = endereco.Value
      StrTel = tel.Value
    Set objEmail = CreateObject("CDO.Message")
    objEmail.From = e-mail de origem entre aspas

    objEmail.To = e-mail de destino entre aspas

    bjEmail.Subject = "Anexo"
    objEmail.Textbody = "Nome: " & Strnome & vbcrlf & "Endereço: " & StrEnd & vbcrlf & "Telefone: " & strTel
    objEmail.Configuration.Fields.Item _
     ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objEmail.Configuration.Fields.Item _
     ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = coloque um servidor smtp válido aqui entre aspas
    objEmail.Configuration.Fields.Item _
     ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Update

    objEmail.Send

    end sub
    </SCRIPT>

    <body>
        Nome: <input type="text" name="nome" size="25"><p>

        Endereço: <input type="text" name="endereco" size="25"><p>

        Telefone: <input type="text" name="tel" size="25"><p>
        <input type="button" value="enviar" name="envia" size="25" onclick="Enviar_form"><p>
    </body>

    ps: o que está em negrito é para ser modificado Wink

    terça-feira, 12 de fevereiro de 2008 19:45

Todas as Respostas