Attribute VB_Name = "CONEXAO" Option Explicit Global SQL As String Dim Envia_Email As Boolean Public oConexao As ADODB.Connection Public oRs As ADODB.Recordset Public oRs2 As ADODB.Recordset Sub Conectar() ' Conexão com a Produção DSI-SERVER1 Set oConexao = New ADODB.Connection Set oRs = New ADODB.Recordset Set oRs2 = New ADODB.Recordset 'Produção DPGE oConexao.Open "Provider=SQLOLEDB;Data Source=DSI-SERVER1;Initial Catalog=Estagio_Forense;User Id=sa;Password=''" End Sub Sub Desconectar() If IsEmpty(oConexao) Then oConexao.Close Set oConexao = Nothing End If End Sub Sub email_interrupcao() ' somente e-mail interno 'Exit Sub Dim Correio As New MailSender Dim reg As String Dim Corpo As String Dim i As Integer Dim br As String On Error GoTo erroE Envia_Email = True i = 1 Corpo = "O Sistema de Consulta não foi alterado,pois houve um erro" With Correio .Host = "smtps.proderj.rj.gov.br" .Port = 25 .From = "DSI@dpge.rj.gov.br" .AddReplyTo ("") .FromName = "DSI" .Subject = "Erro na atualização do Consulta Estágio Forense" .AddAddress "dsi@dpge.rj.gov.br" .Body = Corpo .Send End With erroE: If Err <> 0 Then MsgBox "Ocorreu um erro no envio do e-mail: " & Err.Description Envia_Email = False End If Set Correio = Nothing End Sub