MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    VBA Remover tela de login do SQL

    Compartilhe

    rasd
    Novato
    Novato

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 2
    Registrado : 11/03/2013

    VBA Remover tela de login do SQL

    Mensagem  rasd em Ter 29 Jul 2014, 15:35

    Bom dia pessoal

    tenho um access (2010), que possui duas tabelas vinculadas com o SQL.

    sempre que executo, abre a tela de "Logon do SQL Server" pedindo usuário e senha.

    o access verifica a data de atualização de varias tabelas e manda por e-mail para um grupo de pessoas.

    so que quando executo o VBA que monta o corpo do e-mail, ele acessa as tabelas e com isso pede o usuário e senha.

    Existe algum meio para essa tela não aparecer mais?

    espero alguma luz de vocês....

    desde ja agradeço a atenção.

    mathusalmeida
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 30/08/2011

    Re: VBA Remover tela de login do SQL

    Mensagem  mathusalmeida em Ter 29 Jul 2014, 15:38

    Olá amigo. Post o seu código para o fórum poder analisar.

    Sucesso.

    rasd
    Novato
    Novato

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 2
    Registrado : 11/03/2013

    Re: VBA Remover tela de login do SQL

    Mensagem  rasd em Ter 29 Jul 2014, 15:51

    segue o meu código:

    Código:
    Sub ENVIAR_EMAIL()

        Dim OutApp As Object
        Dim OutMail As Object
        Dim rst As DAO.Recordset
        
        Set OutApp = CreateObject("Outlook.Application")
        OutApp.Session.Logon
        Set OutMail = OutApp.CreateItem(0)

        Set rst = CurrentDb.OpenRecordset("UNION")
        strDestinatarios = "Ultima data de entrada do BMF: " & rst("DT_ENTRADA_BJ") & Chr(10)
        strDestinatarios = strDestinatarios & "Ultima data de entrada do OBF: " & rst("DT_ENTRADA") & Chr(10)
        strDestinatarios = strDestinatarios & "Ultima data de finalização do OBF: " & rst("DATA_FINALIZACAO")
        
        With OutMail
            '.from = "teste"
            .To = "teste"
            .Subject = "E-MAIL AUTOMATICO - Atualização das bases"
            .Body = "Bom dia," & Chr(10) & Chr(10) & "E-mail automatico, não responder ao mesmo." & Chr(10) & Chr(10) & _
                    "Informativo do ultimo carregamento de informações nas bases." & Chr(10) & Chr(10) & strDestinatarios & _
                    Chr(10) & Chr(10) & "Atenciosamente" & Chr(10) & Chr(10) & "UPP - Unidade de Processos e Performance"
            .Save
        End With

        Set OutMail = Nothing
        Set OutApp = Nothing

    End Sub

      Data/hora atual: Sex 09 Dez 2016, 07:41