none
VBA X OUTLOOK RRS feed

  • Pergunta

  • Pessoal,

    Gostaria de saber se alguem pode me ajudar com um "problema" que estou tendo.

    Bom, Seguinte:

    Criei uma Macro que busca informações de uma tabela de banco de dados e cola em uma celula para envio de e-mail a partir do Excel.

    Até ai tudo certo. Tudo está funcionando perfeitamente, porém eu preciso disparar varios emails com cada caso, o que também está funcionando.

    O que me irrita é que aparece uma caixa de diálogo do Outlook avisando que existe um programa querendo enviar um e-mail com o meu nome, e se eu desejo aceitar ou negar o acesso. Estou falando de praticamente 2.000 solicitações e eu tenho que ficar clicando permitir uma a uma ainda.

    Será que tem algo que eu possa fazer que me ajude a desabilitar essa função?

    Desde ja Obrigado.

    segunda-feira, 9 de dezembro de 2013 18:35

Respostas

  • Ao inserir um código no fórum, utilize blocos de código. Para utilizar essa ferramenta, clique no botão cuja legenda é “Inserir bloco de código” na barra do editor de mensagens do fórum. Uma janela aparecerá onde você deverá colar seu código cru na caixa de texto à esquerda. Então, selecione a opção Vb.Net na caixa de combinação que você verá em cima à esquerda e depois clique no botão Inserir.

    ---

    Experimente executar essa rotina com o Outlook já aberto e troque a linha:

    Set meuOutlook = CreateObject("Outlook.Application")

    por:

    Set meuOutlook = GetObject(, "Outlook.Application")


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quarta-feira, 11 de dezembro de 2013 21:39
    Moderador

Todas as Respostas

  • Qual é a versão do seu Excel e qual código está utilizando?

    Veja: http://www.outlook-apps.com/disable-outlook-security-warning/

    Ou então: http://www.mapilab.com/outlook/security/


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    segunda-feira, 9 de dezembro de 2013 21:10
    Moderador
  • Felipe Bom dia.

    A versão do Excel e Outlook são do Office 2010.

    O código que estou usando é o seguinte:

    Sub Enviar_Email()
       Dim meuOutlook As Object
        Dim Mensagem As Object
      
       Sheets("Tabela").Select
        [O5].Select
        Selection.End(xlDown).Offset(1, 0).Value = "total"
        Selection.End(xlDown).Offset(0, 1).Value = "total"
        [O5].Select
       
          While ActiveCell.Value <> "total"
         
        If ActiveCell.Value = "EM ANDAMENTO" And ActiveCell.Offset(0, 1).Value > 2 Then
       
        Call preenche_texto
       
        Sheets("E-Mail Capa").Select
       
        Set meuOutlook = CreateObject("Outlook.Application")
        Set Mensagem = meuOutlook.createitem(0)
       
        Mensagem.Recipients.Add Range("Dest1")
        If [B7].Value <> "" Then Mensagem.Recipients.Add Range("Dest2")
        If [B7].Value <> "" Then Mensagem.CC = Range("CC")
        If [B7].Value <> "" Then Mensagem.BCC = Range("CCO")
       
        Mensagem.Subject = Range("Assunto")
        Mensagem.body = Range("Texto")
        Mensagem.send
        Set meuOutlook = Nothing
       
        Else
        ActiveCell.Offset(1, 0).Select
        End If
        Sheets("Tabela").Select
        Wend
       
    End Sub

    terça-feira, 10 de dezembro de 2013 10:49
  • Ao inserir um código no fórum, utilize blocos de código. Para utilizar essa ferramenta, clique no botão cuja legenda é “Inserir bloco de código” na barra do editor de mensagens do fórum. Uma janela aparecerá onde você deverá colar seu código cru na caixa de texto à esquerda. Então, selecione a opção Vb.Net na caixa de combinação que você verá em cima à esquerda e depois clique no botão Inserir.

    ---

    Experimente executar essa rotina com o Outlook já aberto e troque a linha:

    Set meuOutlook = CreateObject("Outlook.Application")

    por:

    Set meuOutlook = GetObject(, "Outlook.Application")


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quarta-feira, 11 de dezembro de 2013 21:39
    Moderador