Ir para conteúdo
Fórum Script Brasil

fabianots

Membros
  • Total de itens

    23
  • Registro em

  • Última visita

Posts postados por fabianots

  1. fiz isso porque antes usava o componente aspmail. nele, dava para testar se o envio de mensagem foi feito com sucesso. Como não consegui, tentei usar o Cdonts, porém não tem como fazer teste de envio com cdonts né ?! Ou tem ?

  2. Pessoal,

    Fiz uma pagina para testar o uso do cdonts. Aparentemente Ela excuta direitinho, só que o destinatário não recebe as mensagens. Estou usando na minha máquina windows 2000 professional com iis instalado, numa rede local com acesso a internet.

    Na pasta c:\inetpub\mailroot\drop não tem nenhuma mensagem.

    Já na pasta c:\inetpub\mailroot\Badpmail tem 3 arquivos com as extensões .bad ; .bdp e .bdr.

    Na pasta c:\inetpub\mailroot\queue tem um arquivo chamado:

    NTFS_b964f5e601c3a3e200000006.EML

    Por favor me ajudem !

    Segue abaixo o código !!!

    <html>

    <head>

    <title>SMSsend.asp</title></head>

    <body bgcolor="#ffffff" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">

    <table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%" align="center" vspace="0" hspace="0">

    <tr valign="top" align="center">

    <td>

    <table width="500" border="0" cellspacing="0" cellpadding="0">

    <tr>

    <td width="600" height="100%" valign="top">

    s

    </td>

    </tr>

    <tr>

    <td width="600" height="100%" valign="top">

    <p><font color="#022941"><br>

    <%

    Set objmail = Server.CreateObject("CDONTS.NewMail")

    objmail.from = de_email

    objmail.to = para_email

    objmail.subject = assunto

    objmail.body = texto

    objmail.send

    Set Mailer = Server.CreateObject("CDONTS.NewMail")

    Mailer.From = "fabianots@tj.rj.gov.br"

    Mailer.To= Request.Form("emailpara")

    Mailer.Subject = Request.Form("assunto")

    Mailer.Body = Request.Form("mensagem")

    Mailer.Importance = 1

    Mailer.BodyFormat = 0

    Mailer.MailFormat = 0

    Mailer.Send

    'Mailer.RemoteHost = "smtp.ig.com.br"

    'Mailer.Priority = 1

    'Mailer.AddRecipient Request.Form("NomePara"), Request.Form("emailpara")

    'if Mailer.SendMail then

    msgenv=1

    'else

    'msgenv=0

    'errol=Chr(34)& Mailer.Response &Chr(34)

    'end if

    if msgenv=1 then

    %> <br>

    <font face="Verdana, Arial, Helvetica, sans-serif" size="3"> A sua

    mensagem foi enviada com sucesso para o n.º <%=session("Numero")%>.<br>

    Aproveite tamb&eacute;m para <a href="default.htm"><font size="3"><u>enviar</u></font></a>

    a outra pessoa.<br>

    </font><font color="#022941">

    <%

    else

    %>

    </font></font></p>

    <form method="post" action="mailto:webmaster@netytal.pt?subject: Erro no envio de SMS" name="SMS2">

    <font color="#022941"><font face="Verdana, Arial, Helvetica, sans-serif" size="3">Ocorreu

    um erro ao enviar a mensagem.<br>

    O erro foi:</font><font color="#022941"><%=errol%></font><font face="Verdana, Arial, Helvetica, sans-serif">.<br>

    Se este erro persistir reporte-o ao webmaster, usando o bot&atilde;o

    que se segue.<br>

    Desde j&aacute; obrigado.<br>

    <br>

    <% response.write "NomePara: " & Request.Form("NomePara")

    response.write "emailPara: " & Request.Form("emailpara")

    %>

    <br>

    <input type="hidden" name="Erro" value="<%=errol%>">

    <br>

    <input type="submit" name="Submit" value=" Notificar webmaster ">

    </font>.</font> <br>

    </form>

    <%

    end if

    ' Muito importante !!! convém ter isto no final, pois assim acaba com qualquer sessão !! e liberta o servidor...

    session.abandon

    %>

    </td>

    </tr>

    </table>

    </td>

    </tr>

    </table>

    <br>

    </body>

  3. Olá pessoal, alguém sabe, como faço para enviar mensagens SMS usando algum tipo de componente de e-mail do ASP ??? Se souberem de qualquer outra forma, também serve !!! É somente para fins acadêmicos. Não tenho pretensão de usá-lo !!!

    Agradeço desde já.

    Fabianots

  4. Acho que ele quer saber como pegar o login e a senha do usuário logado em uma rede Novell, do mesmo jeito que se pega um usuário logado em ema rede Windows NT. Isso facilitaria, pois, dentro de uma intranet, bastaria o usuário se logar na rede, e quando fosse visualizando as pastas, as páginas testariam se o usuário tem permissão pelo login da rede, não necessitando entrar NOVAMENTE com login e senha. (IDEAL PARA INTRANETS)

    Fabianots

  5. TEm que configurar o IIS.

    Ferramentas Administrativas, Gerenciador do Internet Services, Site da WEB Padrão, Propriedades, Segurança de Pasta, Cointrole de Acesso Anônimo e Autenticação, opção EDITAR, em Acesso Autenticado escolha a opção AUTENTICAÇÃO INETGRADA DO WINDOWS.

    Espero ter ajudado.

    Fabianots

×
×
  • Criar Novo...