none
PRECISO DE AJUDA NO ERRO DE ENVIO DE EMAIL NO ASP RRS feed

  • Discussão Geral

  • Prezados, bom dia.
    sou novo no desenvolvimento em ASP. O antigo desenvolvedor sumiu e deixou uma bomba para eu resolver. Temo uma pagina na nossa intranet no qual a mesma e nosso serviço de chamados. Quando coloca todos os dados solicitados a mesma apresenta o seguinte erro:

    Persits.MailSender.4 error '800a0004'
    Connect has been reset by server.
    /INTRANET/suporte/index.asp, line 88

    Já estudei na internet as formas de resolver este problema, porém sem solução. Alguém no forum pode me ajudar neste erro? segue abaixo o código completo.

    <%
    Set con = Server.CreateObject("ADODB.Connection")
        con.open "PROVIDER=SQLOLEDB;DATA SOURCE=10.10.0.3;UID=microuni;PWD=microuni;DATABASE=intranet;Polling=true"     

    empresa=request.form("edtempresa")
    departamento=request.form("edtdepartamento")
    usuario=request.form("edtusuario")
    categoria=request.form("edtcategoria")
    motivo=request.form("edtmotivo")
    descricao=request.form("edtdescricao")

    if empresa <> "" and departamento <> "" and usuario <> "" and categoria <> "" and motivo <> "" and descricao <> "" then
        set prioridadeemail= con.execute("select email,prioridade,ramal from tab_suporte_usuarios where usuario='" &usuario& "'")
    email=prioridadeemail("email")
    prioridade=prioridadeemail("prioridade")
    ramal=prioridadeemail("ramal")
        sql="insert into tab_suporte(categoria,motivo,usuario,data,descricao,situacao,empresa,departamento,emailresp,prioridade,ramal) values ('" & categoria & "','" & motivo & "','" & usuario & "',getdate(),'" & descricao & "','Pendente','" & empresa & "','" & departamento & "', '" &email& "', '" & prioridade& "','" & ramal & "')"
        'response.write(sql)
        con.execute(sql)

    set cod=con.execute("select max(codigo) as codigo from tab_suporte")
    codigo = cod("codigo")
    total = codigo

    set emailsql=con.execute("select email,prioridade,ramal from tab_suporte_usuarios where usuario='" &usuario& "'")
    emailresp=emailsql("email")
    prioridade=emailsql("prioridade")
    ramal=emailsql("ramal")

    sql="SELECT right(('0' + rtrim(convert(char(2), DATEPART(d, data)))), 2) + '/' + right(('0' + rtrim(convert(char(2), DATEPART(m, data)))), 2) + '/' + convert(char(4), DATEPART(yyyy, data)) + ' - ' + right(('0' + rtrim(convert(char(2), DATEPART(hh, data)))), 2) + ':' + right(('0' + rtrim(convert(char(2), DATEPART(mi, data)))), 2) as data from tab_suporte where codigo='" & codigo & "'"
    set data=con.execute(sql)

    sqlfim="SELECT right(('0' + rtrim(convert(char(2), DATEPART(d, data + '03:00')))), 2) + '/' + right(('0' + rtrim(convert(char(2), DATEPART(m, data + '03:00')))), 2) + '/' + convert(char(4), DATEPART(yyyy, data + '03:00')) + ' às ' + right(('0' + rtrim(convert(char(2), DATEPART(hh, data + '03:00')))), 2) + ':' + right(('0' + rtrim(convert(char(2), DATEPART(mi, data + '03:00')))), 2) + ' horas' as datafim from tab_suporte where codigo='" & codigo & "'"
    set datafinal=con.execute(sqlfim)
        
         body = "************************* CHAMADO DE SUPORTE ***************************" & chr(13) & chr(13)
    body =body & "<b>" & "Número do Chamado: " & codigo & chr(13) & "</b><br><br>"
    body =body & "Data - Hora: " & data("data") & chr(13) & "<br>" 
    body =body & "Empresa: " & ucase(empresa) & chr(13) & "<br>"
         body =body & "Departamento: " & ucase(departamento) & chr(13) & "<br>"
    body =body & "Usuário: " & ucase(usuario) & chr(13) & "<br>"
    body =body & "e-Mail: " & emailresp & chr(13) & "<br>"
      body =body & "Ramal: " & ramal & chr(13) & "<br>"
    body =body & "Categoria: " & categoria & chr(13) & "<br>"
      body =body & "Motivo: " & motivo & chr(13) & "<br>" 
    body =body & "Nível de Prioridade: " & prioridade & chr(13) & chr(13) & "<br><br>"
    body =body & "DESCRIÇÃO DO CHAMADO: " & chr(13) & chr(13) 
    body =body & descricao & chr(13) & chr(13) & "<br><br>"
    body =body & "OBSERVAÇÕES: " & chr(13) & chr(13) 
    body =body & "O prazo máximo até o dia " & datafinal("datafim") & "." & chr(13) & chr(13)
    'body =body & "************************************************************************"

    Set objmail = Server.CreateObject("Persits.MailSender")
    objmail.IsHTML = true
    objmail.Host = "email-ssl.com.br"
    objmail.username = "suporte@centerlab.com.br" 
    objmail.password = "centerlab123*" 
    objmail.From = "suporte@centerlab.com.br"
    objmail.FromName = "Equipe de Suporte GENOMA"
    objmail.AddAddress "suporte@centerlab.com.br"
    objmail.Subject = "*** CHAMADO DE SUPORTE Nº " & total & " - " & categoria & " ***"
    objmail.Body = body
    objmail.Send
    if Err.Number <> 0 then
    Response.write "Error: " & Err.description
    end if  

         body2 = "************************* CHAMADO DE SUPORTE ***************************" & chr(13) & chr(13)
    body2 =body2 & "Número do Chamado: " & codigo & chr(13) & "<br>"
    body2 =body2 & "Data - Hora: " & data("data") & chr(13) & "<br>"
    body2 =body2 & "Empresa: " & ucase(empresa) & chr(13) & "<br>"
         body2 =body2 & "Departamento: " & ucase(departamento) & chr(13) & "<br>"
    body2 =body2 & "Usuário: " & ucase(usuario) & chr(13) & "<br>"
      body2 =body2 & "Categoria: " & categoria & chr(13) & "<br>"
      body2 =body2 & "Motivo: " & motivo & chr(13) & chr(13) & "<br><br>"
    body2 =body2 & "DESCRIÇÃO DO CHAMADO: " & chr(13) & chr(13)
    body2 =body2 & descricao & chr(13) & chr(13) & "<br>"
    body2 =body2 & "OBSERVAÇÕES:" & chr(13) & chr(13)
    body2 =body2 & "O prazo máximo de atendimento é até o dia " & datafinal("datafim") & " você ainda não tiver obtido um retorno de nossa equipe, por favor entre em contato através do ramal 247 e informe o código " & codigo & "." & chr(13) & chr(13)
    'body2 =body2 & "************************************************************************"
    'response.write(body)
    'response.write(body2)

    Set objmail2 = Server.CreateObject("Persits.MailSender")
    objmail2.IsHTML = true
    objmail2.Host = "email-ssl.com.br"
    objmail2.username = "suporte@centerlab.com.br" 
    objmail2.password = "centerlab123*"
    objmail2.From = "suporte@centerlab.com.br"
    objmail2.FromName = "Equipe de Suporte GENOMA"
    objmail2.AddAddress emailresp,usuario
    objmail2.Subject = "*** CHAMADO DE SUPORTE Nº " & total & " ***"

    objmail2.Body = body2
    objmail2.Send
    if Err.Number <> 0 then
    Response.write "Error: " & Err.description
    end if

    msg = codigo
    session("usuario")=""
    empresa=""
    departamento=""
    usuario=""
    categoria=""
    motivo=""
    descricao=""
    end if

    %>
    <html>
    <head>
    <meta http-equiv="Content-Language" content="pt-br">
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <meta name="GENERATOR" content="Microsoft FrontPage 6.0">
    <meta name="ProgId" content="FrontPage.Editor.Document">
    <title>:: Central de Suporte GENOMA ::</title>
    <script language="javascript">
    function verificaeenvia()
    {
    if (document.formulario.edtempresa.value=='' || document.formulario.edtdepartamento.value=='' || document.formulario.edtusuario.value=='' || document.formulario.edtcategoria.value=='' || document.formulario.edtmotivo.value=='' || document.formulario.edtdescricao.value=='')
    {
    alert('É necessário o preenchimento de todos os campos.');
    }
    else
    {
    document.formulario.submit();
    }
    }
    </script>
    </head>
    <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" rightmargin="0" bottommargin="0">
    <table border="0" width="100%" cellspacing="0" cellpadding="0" height="100%">
    <tr>
    <td valign="top" rowspan="2"><img src="index.1suporte.gif" width="64" height="473" border="0"></td>
    <td width="51%" height="44" bgcolor="#F5F5F5"><p align="right"><b><font face="Arial" color="#808080">Solicitação de Suporte</font><font face="Arial" size="3">&nbsp;&nbsp;&nbsp;</font></b></td>
    <td width="42%" bgcolor="#2E5E92" height="183" rowspan="2" valign="middle" align="right">
    <p align="center"><font color="#FFFFFF"><font face="Verdana" size="1"><strong>Departamento de Informática</strong><br><em>Cada vez mais agilizando o<br>atendimento aos seus usuários.</em></font></font></p>
    <p align="center">&nbsp;</p>
    <p align="center">&nbsp;</p>
    <p align="center">&nbsp;</p>
    <p align="center"><font size="1" color="#FFFFFF" face="Tahoma"><b>* O prazo m&aacute;ximo para retorno &eacute; de<br>at&eacute; 3 horas. Caso n&atilde;o seja atendido<br>dentro deste per&iacute;odo, por favor<br>comunique no ramal 247.</b></font></p>    
    </td>
    </tr>
    <tr>
    <td width="51%" height="139" valign="top">
    <form method="POST" action="index.asp" name="formulario">
    <table border="0" width="96%" cellspacing="0" cellpadding="0" height="351">
    <tr>
    <td height="6" align="left" valign="middle">&nbsp;</td>
    <td height="6"></td>
    </tr>
    <tr>
    <td width="23%" height="12" align="left" valign="middle"><font face="Verdana" size="1" color="#446B93"><strong>&nbsp;Empresa:</strong></font></td>
    <td height="12" valign="middle"><font face="Arial" size="1" color="#446B93">
    <select name="edtempresa" size="1" id="edtempresa" style="background-color: #F5F5F5; font-family: Arial; font-size: 8 pt; border: 1 solid #C0C0C0" onChange="document.formulario.edtdepartamento.value=''; document.formulario.edtusuario.value=''; document.formulario.submit();">
    <option value="<%=empresa%>" selected><%=empresa%></option>
    <%
    sql="select * from tab_suporte_empresas where empresa <> '" & empresa & "'"
    set valorescmb=Con.execute(sql)
    if not valorescmb.eof then
    valorescmb.movefirst
    while not valorescmb.eof%>
    <option value="<%=valorescmb("empresa")%>"><%=valorescmb("empresa")%></option>
    <% 
    valorescmb.movenext
    wend
    end if
    %>
    </select>
    <%
    if empresa="" then
    response.write " Selecione a sua empresa."
    end if
    %>
    </font>
    </td>
     </tr>
      <tr>
        <td width="23%" height="30" align="left" valign="middle"><font face="Verdana" size="1" color="#446B93"><strong>&nbsp;Departamento:&nbsp;</strong></font></td>
        <td height="30" valign="middle"><font face="Arial" size="1" color="#446B93">        <select name="edtdepartamento" size="1" id="edtdepartamento" style="background-color: #F5F5F5; font-family: Arial; font-size: 8 pt; border: 1 solid #C0C0C0" onChange="document.formulario.edtusuario.value=''; document.formulario.submit();">
              <option selected value="<%=departamento%>"><%=departamento%></option>
                               
    <%
    sql="select departamento from tab_suporte_departamentos where empresa='" &empresa& "' and departamento <> '" &departamento& "' order by departamento"
    set valorescmb=Con.execute(sql)
    if not valorescmb.eof then
            valorescmb.movefirst
            while not valorescmb.eof%>
    <option value="<%=valorescmb("departamento")%>"><%=valorescmb("departamento")%></option>
    <% valorescmb.movenext
    wend
    end if
     
    %>
    </select>
    <%if empresa <> "" and departamento="" then
    response.write " Selecione o seu departamento."
    end if
    %>
        </font></td>
        </tr>
      <tr>
        <td height="30" align="left" valign="middle"><font face="Verdana" size="1" color="#446B93"><strong>&nbsp;Usu&aacute;rio:</strong></font></td>
        <td height="30" valign="middle"><font face="Arial" size="1" color="#446B93">
          <select name="edtusuario" size="1" id="edtusuario" style="background-color: #F5F5F5; font-family: Arial; font-size: 8 pt; border: 1 solid #C0C0C0" onChange="document.formulario.submit();">
            <option selected value="<%=ucase(usuario)%>"><%=ucase(usuario)%></option>
                               
         <%
                              sql="select usuario from tab_suporte_usuarios where empresa='" &empresa& "' and departamento='" &departamento& "' and usuario <> '" & usuario & "' order by usuario"
        set valorescmb=Con.execute(sql)
                                if not valorescmb.eof then
                                valorescmb.movefirst
                                while not valorescmb.eof%>
                                <option value="<%=ucase(valorescmb("usuario"))%>"><%=ucase(valorescmb("usuario"))%></option>
                                <% valorescmb.movenext
        wend
    end if
     
    %></select><%if empresa <> "" and departamento <> "" and usuario="" then
    response.write " Selecione o seu usuário."
    end if%>
        </font></td>
      </tr>
      <tr>
        <td width="23%" height="17" align="left" valign="middle"><font face="Verdana" size="1" color="#446B93"><strong>&nbsp;Categoria:&nbsp;</strong></font></td>
        <td height="17" valign="middle" style="border: 1 solid #FFFFFF">
    <font face="Arial" size="1" color="#446B93">
    <select name="edtcategoria" size="1" id="edtcategoria" style="background-color: #F5F5F5; font-family: Arial; font-size: 8 pt; border: 1 solid #C0C0C0" onChange="document.formulario.submit();">
      <option selected value="<%=categoria%>"><%=categoria%></option>
      <%
                              sql="select categoria from tab_suporte_categorias where categoria <> '" &categoria& "'"
        set valorescmb=Con.execute(sql)
                                if not valorescmb.eof then
                                valorescmb.movefirst
                                while not valorescmb.eof%>
      <option value="<%=valorescmb("categoria")%>"><%=valorescmb("categoria")%></option>
      <% valorescmb.movenext
        wend
    end if
     
    %>
    </select>
    <%if empresa <> "" and departamento <> "" and usuario<>"" and categoria="" then
    response.write " Selecione a categoria na qual se enquadra a solicitação."
    end if%>
    </font></td>
        </tr>
      <tr>
        <td width="23%" height="28" align="left" valign="middle"><font face="Verdana" size="1" color="#446B93"><strong>&nbsp;Motivo:</strong></font></td>
        <td height="28" valign="middle"><font face="Arial" size="1" color="#446B93">
        &nbsp;<!--webbot bot="Validation" s-display-name="Usuário" s-data-type="String" b-value-required="TRUE" i-minimum-length="1" --><select name="edtmotivo" size="1" id="edtmotivo" style="background-color: #F5F5F5; font-family: Arial; font-size: 8 pt; border: 1 solid #C0C0C0" onChange="document.formulario.submit();">
          <option selected value="<%=motivo%>"><%=motivo%></option>
          <%
                              sql="select motivo from tab_suporte_motivos where categoria='" & categoria & "' and motivo <> '" &motivo& "'"
        set valorescmb=Con.execute(sql)
                                if not valorescmb.eof then
                                valorescmb.movefirst
                                while not valorescmb.eof%>
          <option value="<%=valorescmb("motivo")%>"><%=valorescmb("motivo")%></option>
          <% valorescmb.movenext
        wend
    end if
     
    %>
        </select>
        <%if empresa <> "" and departamento <> "" and usuario<>"" and categoria<>"" and motivo="" then
    response.write " Selecione o motivo da sua solicitação."
    end if%>
    </font></td>
        </tr>
      <tr>
        <td width="23%" height="182" align="left" valign="middle"><font face="Verdana" size="1" color="#446B93"><strong>&nbsp;Descrição:</strong></font></td>
        <td width="119%" height="182" valign="middle"><font face="Arial" size="1" color="#446B93">
    <!--webbot bot="Validation" s-display-name="Descrição" b-value-required="TRUE" i-minimum-length="1" --><textarea rows="12" name="edtdescricao" cols="70" style="background-color: #F5F5F5; font-family: Arial; font-size: 8 pt; border: 1 solid #C0C0C0"><%=descricao%></textarea>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font></td>
      </tr>
    <%if msg<>"" then %>

      <tr>
        <td width="23%" valign="top" height="1"></td>
        <td width="119%" height="1"><font color="#808080" face="Verdana" size="1">
      
    <font color="#808080" size="1"><strong><font color="#009900">Solicita&ccedil;&atilde;o enviada com sucesso! </font>O N&uacute;mero do Chamado é:<font size="3"></font></strong></font><font size="3"><strong><font color="#812212"> <%=msg%><br></font></strong></font></font><font size="3"><strong><font color="#808080" face="Arial" size="1">
    </strong></font>
    </td> 
      </tr>

    <%end if%>



      <tr>
        <td width="23%" valign="top" height="45"></td>
        <td width="119%" height="45">
          <p align="center"><img src="index.1.gif" width="61" height="29" style="cursor:hand"  onClick="verificaeenvia();">      </p> 
        </td> 
      </tr> 
    </table> 
    </form>
    </td>
      </tr>
    </table>
    </body>

    </html>

    quarta-feira, 2 de outubro de 2019 14:05

Todas as Respostas

  • Tente especificar a porta e habilitar o uso de SSL para o envio.

    Set objmail2 = Server.CreateObject("Persits.MailSender")
    objmail2.SSL = True 'Habilita o USO do SSL
    objmail2.Port = 465 ' Expecifica a porta SMTP
    objmail2.IsHTML = true
    

    quarta-feira, 2 de outubro de 2019 17:09