MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Tirar caixa de mensagem que solicita permissão para envio de e-mails

    avatar
    lpdias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 11/01/2016

    Tirar caixa de mensagem que solicita permissão para envio de e-mails Empty Tirar caixa de mensagem que solicita permissão para envio de e-mails

    Mensagem  lpdias em 5/5/2020, 23:27

    Boa noite!

    Estou fazendo um procedimento para envio automático de um determinado relatório.
    A intenção é que ele aconteça todos os dias durante a madrugada.
    Infelizmente estou me deparando com uma caixa de mensagens me pedindo permissão.
    Gostaria da ajuda de vcs para que essa caixa não se apresente mais.


    Obrigado
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2141
    Registrado : 22/11/2016

    Tirar caixa de mensagem que solicita permissão para envio de e-mails Empty Re: Tirar caixa de mensagem que solicita permissão para envio de e-mails

    Mensagem  DamascenoJr. em 6/5/2020, 02:31

    1. No Outlook, clique em arquivo e, em seguida, clique em Opções.
    2. Clique em Central de confiabilidade e, em seguida, clique em Configurações da Central de confiabilidade.
    3. Clique em acesso através de programação.
    4. Selecione a opção que preferir. Se você quiser interromper permanentemente essas mensagens de aviso, selecione a opção nunca me avisar sobre atividades suspeitas (não recomendado).
    Tirar caixa de mensagem que solicita permissão para envio de e-mails 4341091_en_1
    Observação: Se essas opções não estiverem disponíveis, feche o Outlook e inicie-o novamente no modo elevado. Para fazer isso, digite Outlook na área de trabalho ou na caixa Iniciar pesquisa , clique duas vezes o resultado de pesquisa do Microsoft Outlook , clique em Propriedades, clique na guia compatibilidade e, em seguida, clique em executar este programa como um administrador.
    5. Clique em OK duas vezes.

    Fonte
    support.microsoft.com/pt-br/help/3189806/a-program-is-trying-to-send-an-e-mail-message-on-your-behalf-warning-i


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    lpdias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 11/01/2016

    Tirar caixa de mensagem que solicita permissão para envio de e-mails Empty Re: Tirar caixa de mensagem que solicita permissão para envio de e-mails

    Mensagem  lpdias em 6/5/2020, 11:17

    Bom dia Damasceno!

    Além dessas instruções, você acha que tem mais algo que podemos fazer?
    O meu outlook está exatamente como o exemplo e ainda sim faz o questionamento de permitir ou requisar.

    Tentei algo como sendkeys mas também não obtive sucesso.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2141
    Registrado : 22/11/2016

    Tirar caixa de mensagem que solicita permissão para envio de e-mails Empty Re: Tirar caixa de mensagem que solicita permissão para envio de e-mails

    Mensagem  DamascenoJr. em 7/5/2020, 02:33

    Uma possível luz

    juliobattisti.com.br/artigos/livroexc03office/capitulo1/02.asp


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    lpdias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 11/01/2016

    Tirar caixa de mensagem que solicita permissão para envio de e-mails Empty Re: Tirar caixa de mensagem que solicita permissão para envio de e-mails

    Mensagem  lpdias em 7/5/2020, 23:11

    Obrigado pela ajuda Damasceno, mas ainda não deu certo.
    Infelizmente vou ter que optar pelo envio manual enquanto tento a solução para essa mensagem.

    Abraço
    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 232
    Registrado : 19/08/2010

    Tirar caixa de mensagem que solicita permissão para envio de e-mails Empty Re: Tirar caixa de mensagem que solicita permissão para envio de e-mails

    Mensagem  marcelo3092 em 8/5/2020, 00:16

    Faz por modo envio CDO dentro do access sem a necessidade do outlook, esse é o codigo que uso

    Private Function fncemail()
    On Error GoTo trata_erro

    Dim strarquivo As String
    Dim strlocal As String
    Dim strPath As String

    strarquivo = "Relatório.pdf"
    strlocal = CurrentProject.Path & "\Temp\" & strarquivo
    strPath = CurrentProject.Path & "\Temp\" & strarquivo
    'Salvando alterações no registro
    If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord
    '----------------------------------------------------------------------------
    'Abre o relatório filtrado e oculto.
    '----------------------------------------------------------------------------
    DoEvents
    DoCmd.OpenReport "Nome_do_seu_relatorio", acViewPreview, , , acHidden
    '----------------------------------------------------------------------------------------
    'gero o pdf do relatório através do comando outputto.
    'o mecanismo do Access reconhece que o relatório solicitado pelo outputto já está aberto
    'e então o outputto usará o relatório já aberto e filtrado.
    '-----------------------------------------------------------------------------------------
    DoEvents
    DoCmd.OutputTo acOutputReport, "Nome_do_seu_relatorio", acFormatPDF, strlocal
    DoEvents
    '-------------------------------------------
    'fecha o relatório clientes que está oculto
    '-------------------------------------------
    DoCmd.Close acReport, "Nome_do_seu_relatorio"
    DoEvents

    '---FAZ O ENVIO DO EMAIL--------------


    Dim Mens As Object
    Dim Config As Object
    Set Mens = CreateObject("CDO.Message")
    Set Config = CreateObject("CDO.Configuration")

    'Aqui pega os dados do servidor de uma tabela.

    With Config

    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = DLookup("[smtpserver]", "tblempresa")
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = DLookup("[smtpserverport]", "tblempresa")
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = DLookup("[sendusing]", "tblempresa")

    If DLookup("[smtpauthenticate]", "tblempresa") = 1 Then
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    Else
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
    End If

    If DLookup("[smtpuessl]", "tblempresa") = -1 Then
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    Else
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
    End If

    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = DLookup("[sendusername]", "tblempresa")
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = DLookup("[sendpassword]", "tblempresa")
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = DLookup("[smtpconnectiontimeout]", "tblempresa")


    If DLookup("[smtpuessl]", "tblempresa") = -1 Then
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    Else
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
    End If

    .Fields.Update
    End With


    Set Mens = New CDO.Message
    With Mens
    Set .Configuration = Config
    .From = "Relatório"

    .Sender = DLookup("[Email]", "tblempresa")

    .Subject = "Relatório e Fechamento"

    'Aqui e o Cabeçalho do email.

    .TextBody = "Segue em Anexo Relação de Vouchers. " & vbCrLf _
    & vbCrLf _
    & "Linha1" & vbCrLf _
    & "Linha2" & vbCrLf _
    & "Linha3" & vbCrLf _
    & "Linha4" & vbCrLf _
    & "Linha5" & vbCrLf _
    & "Linha6" & vbCrLf _
    & vbCrLf _
    & "- " & vbCrLf _

    'Email a enviar relatorio temp e a pasta que tem que ter dentro da pasta do sistema para ele criar o pdf nela.
    .To = Me.txtemail
    ' a linha abaixo pega o pdf criado e anexa à mensagem
    .AddAttachment CurrentProject.Path & "\temp\" & strarquivo

    .Send

    End With

    Set Mens = Nothing
    Set Config = Nothing

    Do Until Dir(CurrentProject.Path & "\temp\" & "*") = ""
    VBA.Kill (CurrentProject.Path & "\temp\" & "*") 'Excluir arquivo com a extensão escolhida
    Loop


    trata_erro:
    If Err.Number = -2147220979 Then

    MsgBox "Você inseriu um endereço de email inválido ou inexistente." & vbCrLf & "Verifique o email e tente novamente.", vbOKOnly + vbCritical, Titulo
    DoCmd.Close acForm, "FrmEnviandoEmail"
    Exit Function
    Me.txtemail.SetFocus

    ElseIf Err.Number = -2147220975 Then

    MsgBox "O Servidor Bloqueou o Login." & vbCrLf & "Verifique Sua Configuração de apps seguros e ative a opção menos seguro.", vbOKOnly + vbCritical, Titulo

    Exit Function


    End If

    End Function


    Detalhe a referencia Microsoft CDO for Windows 2000 Library tem que tar ativada
    e o servidor que mais funciona e o gmail.
    e dentro do gmail na sua conta tem uma opção que tb ele bloqueia o acesso
    a opção Acesso a app menos seguro na aba segurança da sua conta tem que estar ativada para que ele nao bloqueia.
    e as configurações de email tem no gmail basta procura no googel
    servidor smtp.
    espero que te ajude.
    uso essa rotina em varios sistemas meu.

    avatar
    lpdias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 11/01/2016

    Tirar caixa de mensagem que solicita permissão para envio de e-mails Empty Re: Tirar caixa de mensagem que solicita permissão para envio de e-mails

    Mensagem  lpdias em 8/5/2020, 12:03

    Bom dia Marcelo,

    Agradeço pela ajuda.
    Vou dar uma olhada e tentar adaptar no meu sistema.
    Logo voltarei com a resposta.
    Abraço
    Robystanley
    Robystanley
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 21/12/2015

    Tirar caixa de mensagem que solicita permissão para envio de e-mails Empty Re: Tirar caixa de mensagem que solicita permissão para envio de e-mails

    Mensagem  Robystanley em 12/5/2020, 23:40

    Olá pessoal!!

    Marcelo, já tentei tudo isso, porém não da certo, vc ou alguém aqui poderia disponibilizar um arquivo de teste para mim, com a configuração nesses e-mails por favor:

    robystanley@gmail.com
    oliviaggpalma@gmail.com



    Grato!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2141
    Registrado : 22/11/2016

    Tirar caixa de mensagem que solicita permissão para envio de e-mails Empty Re: Tirar caixa de mensagem que solicita permissão para envio de e-mails

    Mensagem  DamascenoJr. em 12/5/2020, 23:53

    Com o uso da ferramenta de busca do fórum é possível encontrar tópicos do mesmo assunto. Fica a dica.
    https://www.maximoaccess.com/t3878-envio-de-email-por-cdo-com-muito-mais-recursos


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Robystanley
    Robystanley
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 21/12/2015

    Tirar caixa de mensagem que solicita permissão para envio de e-mails Empty Re: Tirar caixa de mensagem que solicita permissão para envio de e-mails

    Mensagem  Robystanley em 13/5/2020, 02:19

    Muito obrigado Damasceno, vou verificar os códigos e testar!!!
    annissima
    annissima
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 97
    Registrado : 24/10/2017

    Tirar caixa de mensagem que solicita permissão para envio de e-mails Empty Re: Tirar caixa de mensagem que solicita permissão para envio de e-mails

    Mensagem  annissima em 14/5/2020, 15:43

    Já tentou colocar o seu arquivo em um local confiável? Ou marcar a pasta do seu arquivo como confiável?
    Tinha o mesmo problema, resolvi com a dica do Damasceno, e colocando como confiável.
    Robystanley
    Robystanley
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 21/12/2015

    Tirar caixa de mensagem que solicita permissão para envio de e-mails Empty Re: Tirar caixa de mensagem que solicita permissão para envio de e-mails

    Mensagem  Robystanley em 18/5/2020, 02:25

    Olá annissima!!!

    Já coloquei como confiável, porém por enquanto ainda não consegui fazer esse e-mail chegar...Estou tentando!!!

    Obrigado!!!

      Data/hora atual: 15/8/2020, 04:57