Ir para conteúdo
Fórum Script Brasil
  • 0

DTS para envio de e-mail


Nelson Cruz

Pergunta

'**********************************************************************
'  Visual Basic ActiveX Script
'************************************************************************

Function Main()

    'Dim conexao, registro, cntServidor
    set conexao = CreateObject("ADODB.Connection")
    set registro = CreateObject("ADODB.Recordset")
    set rs_historico = CreateObject("ADODB.Recordset")
    cntServidor = "Network Library=dbnmpntw;SERVER=RJ7399SR003;uid=suporte;pwd=adm7399;driver={SQL Server};database=SUPORTE;"

    conexao.CommandTimeout = 0
    conexao.Open cntServidor

    tSQL = "SELECT H.cod AS cod_hist, C.cod AS cod_cham, S.nome AS situacao, C.descricao AS descr_cham, RIGHT(C.logn_inc, 7) AS logn_inc, ABRIU.NOME AS nme_inc, RIGHT(C.logn_alt, 7) AS logn_alt, ALTEROU.NOME AS nme_alt, H.descricao AS resp_cham, RIGHT(C.logn_inc, 7) + '@mail.caixa' as email "
    tSQL = tSQL + "FROM EMPREGADOS ALTEROU "
    tSQL = tSQL + "RIGHT OUTER JOIN tbChamados C "
    tSQL = tSQL + "INNER JOIN EMPREGADOS ABRIU ON RIGHT(C.logn_inc, 7) = ABRIU.LOGIN "
    tSQL = tSQL + "RIGHT OUTER JOIN tbSituacao S "
    tSQL = tSQL + "RIGHT OUTER JOIN tbHistorico H ON S.cod_sit = H.cod_sit ON C.cod = H.codcham ON ALTEROU.LOGIN = RIGHT(H.logn_inc, 7) "
    tSQL = tSQL + "WHERE (H.dt_envio_pendente IS NULL) and (H.cod_sit in(3))"

    registro.open tSQL, conexao, 3, 3

    Set objConfig = CreateObject("CDO.Configuration")
    With objConfig.Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.correio.caixa"
        .Update
    End With


    ' Instantiate the CDO Message object.
    Set objMail = CreateObject("CDO.Message")    



                If registro.EOF then

            Else

                Do while not registro.EOF

                    email_destino = registro("email") 
    
                    '=======================Mensagem do envio de email================================
                    'conteúdo da mensagem 
    
                    strBody = "<html><head>" & vbCrLf & vbCrLf & _
                        "</head><body> <b>MENSAGEM AUTOMATICA - SIATEL -CERAT/RJ</b>"  & vbCrLf & _
                        "<br><br>NRº DO CHAMADO: " & registro("cod_cham") &"" & _
                        "<br><br>SITUAÇÃO: " & registro("situacao") &"" & _
                        "<br><br>DESCRIÇÃO: " & registro("descr_cham") & "" & _
                        "<br><br>RESPOSTA: " & registro("resp_cham") & "" & _
                        "<br><br>RESPONDIDO POR: " & registro("logn_alt") &" - " & registro("nme_alt") & "" & _
                        "<br><br>EQUIPE - SUPORTE TECNOLÓGICO."  
                    strBody = strBody & "</body></html>" 
            
                    With objMail
                        Set .Configuration = objConfig
                        .From = "ceratrj03@mail.caixa"
                        .To = email_destino
                        .CC = "c077237@mail.caixa,p606747@mail.caixa"
                        .Subject = "MSG AUTOMATICA - SIATEL - CERAT/RJ"
                        .HtmlBody = strBody
                        .Send
                    End With


                    tSQL = "select dt_envio_pendente from tbhistorico where cod = " & registro("cod_hist")
                    rs_historico.open tSQL, conexao, 3, 3
                    rs_historico("dt_envio_pendente") = now()
                    rs_historico.update
                    rs_historico.close


                registro.movenext
                loop

            End if

            registro.close
            set registro = nothing
            set rs_historico = nothing


    SET objMail = nothing

    Main = DTSTaskExecResult_Success

End Function

Essa DTS está dando o seguinte erro. "Falha na conexão do transporte com o servidor". erro na linha 66

alguém poderia me ajudar com esse problema??

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...