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

    Outlook abre depois fecha e não envia e-mail

    Compartilhe

    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1134
    Registrado : 07/05/2011

    Outlook abre depois fecha e não envia e-mail

    Mensagem  Lupércio em Ter 31 Dez 2013, 01:21

    companheiros boa noite, estou usando este código do JPaulo"

    ' JPaulo ® 2008
    Public Function InitializeOutlook() As Boolean
    On Error GoTo Init_err
    Set gOLApp = CreateObject("Outlook.application")
    Set gOLNameSpace = gOLApp.GetNamespace("MAPI")
    init_Bye:
    InitializeOutlook = True
    Exit Function

    Init_err:
    InitializeOutlook = False

    End Function

    Bem através de um click no botão, de um relatório eu abro o Outlook e o formulário de envio de e-mail.
    o Outlook abre normal, mas quando clico em Enviar ai ele fecha e não envia o e-mail.

    Alguém dos senhores podem me dar uma luz?


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: Outlook abre depois fecha e não envia e-mail

    Mensagem  criquio em Ter 31 Dez 2013, 01:25

    Não está faltando algo no código não? Não vi nenhuma linha que envie o email. Ao que parece, o código está abrindo o Outlook e logo após está saindo da função por causa do Exit Function que você colocou.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1134
    Registrado : 07/05/2011

    Re: Outlook abre depois fecha e não envia e-mail

    Mensagem  Lupércio em Ter 31 Dez 2013, 01:45

    Cliquio boa noite!

    Estou usando no clique do botão do relatório.

    Se eu abrir manualmente o oltlook envia perfeitamente.

    Agora no clique do botão ele abre só a clicar em enviar ele fecha.

    Call AbreOutlook

    Dim x As String, y As String, z As String

    x = "Leituras PCH Marcol"
    y = "Relatório de leituras diárias"



    On Error Resume Next
    DoCmd.SendObject acReport, "RIMPgg1", acFormatPDF, "joao.gregio@eletrobrasrondonia.com", "COI-AT@ceron.com.br", "lupercio_azarias@hotmail.com", "Relatório das Leituras horárias PCH Marcol Grupo Gerador 001", "", True, ""


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1134
    Registrado : 07/05/2011

    Re: Outlook abre depois fecha e não envia e-mail

    Mensagem  Lupércio em Ter 31 Dez 2013, 01:52

    Desculpe cliquio mandei o código errado... é este que estou usando!

    Public Function AbreOutlook() As Boolean
    On Error GoTo Init_err


    Dim Olook As Outlook.Application
    Set Olook = CreateObject("Outlook.Application")

    Dim ns As Outlook.NameSpace
    Dim Folder As Outlook.MAPIFolder

    Set ns = Olook.GetNamespace("MAPI")
    Set Folder = ns.GetDefaultFolder(olFolderInbox)

    Olook.Explorers.Add Folder

    'faz o que tem que fazer

    Olook.Quit
    Set Olook = Nothing

    End Function



    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1134
    Registrado : 07/05/2011

    Re: Outlook abre depois fecha e não envia e-mail

    Mensagem  Lupércio em Ter 31 Dez 2013, 10:43

    Se alguém puder dar uma força eu agradeço, um bom dia á todos!


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: Outlook abre depois fecha e não envia e-mail

    Mensagem  criquio em Ter 07 Jan 2014, 11:37

    Bem, eu nunca usei o ol para enviar mensagens pelo Access ou pelo VB, por isso não posso dizer exatamente o que se está a passar.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1134
    Registrado : 07/05/2011

    Re: Outlook abre depois fecha e não envia e-mail

    Mensagem  Lupércio em Qua 08 Jan 2014, 10:44

    Ta certo Criquio obrigado...


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1134
    Registrado : 07/05/2011

    Re: Outlook abre depois fecha e não envia e-mail

    Mensagem  Lupércio em Seg 27 Jan 2014, 11:38

    up


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Dom 04 Dez 2016, 01:52