MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    VBA Remover tela de login do SQL

    avatar
    rasd
    Novato
    Novato


    Respeito às regras : Respeito às Regras 75%

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

    VBA Remover tela de login do SQL Empty VBA Remover tela de login do SQL

    Mensagem  rasd 29/7/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
    mathusalmeida
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    VBA Remover tela de login do SQL Empty Re: VBA Remover tela de login do SQL

    Mensagem  mathusalmeida 29/7/2014, 15:38

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

    Sucesso.
    avatar
    rasd
    Novato
    Novato


    Respeito às regras : Respeito às Regras 75%

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

    VBA Remover tela de login do SQL Empty Re: VBA Remover tela de login do SQL

    Mensagem  rasd 29/7/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

    Conteúdo patrocinado


    VBA Remover tela de login do SQL Empty Re: VBA Remover tela de login do SQL

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 15:03