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

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

    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Lupércio 31/12/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.lol!Rolling Eyes
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  criquio 31/12/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: www.vcssistemas.com.br

    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
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Lupércio 31/12/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.lol!Rolling Eyes
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Lupércio 31/12/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.lol!Rolling Eyes
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Lupércio 31/12/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.lol!Rolling Eyes
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  criquio 7/1/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: www.vcssistemas.com.br

    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
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Lupércio 8/1/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.lol!Rolling Eyes
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Lupércio 27/1/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.lol!Rolling Eyes

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 14:33