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
    avatar
    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.]
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11232
    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.

    avatar
    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.]
    avatar
    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.]
    avatar
    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.]
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11232
    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.

    avatar
    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.]
    avatar
    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: Qua 26 Abr 2017, 09:06