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

5 participantes

    [Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente

    fsouza32
    fsouza32
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 22/01/2013

    [Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente Empty [Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente

    Mensagem  fsouza32 29/1/2016, 17:11

    Olá a todos do forum!
    Fiz uma busca para saber como enviar um e-mail direto do forum e achei esse código muito, que está muito bom, envia normal e com as alterações que fiz, porém o e-mail só é enviado mesmo se eu abrir o outlook
    e posso notar que os e-mails enviado do formulário estão na caixa de saida e só então o outlook envia.

    Como faço para que não seja necessário abrir o outlook manualmente para enviar?
    Obrigado! Very Happy

    Exemplo do código (que é do mestre JPaulo!):

    Private Sub rtlAvisoDeVencimento_Click()
    Dim appOutlook As Object
    Dim olMail As Object
    Dim strArquivo As String
    Dim strLocal As String
    Dim FSO As Object

    'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
    On Error Resume Next
    Set appOutlook = GetObject("Outlook.Application")

    If appOutlook Is Nothing Then
       Set appOutlook = CreateObject("Outlook.Application")
       End If

    On Error GoTo 0

    Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail

    With olMail
    .To = Me.SOCIO_EMAIL.Value
    .CC = ""
    .Subject = "Aviso de vencimento de reserva para: " & Me.txtSOCIO_NOME

    .HTMLBody = "Teste de envio para " & Me.txtSOCIO_NOME

    .Display 'Se trocar ".Send" por ".Display" ele mostra email antes de enviar

    End With

    MsgBox "Email@ enviado com sucesso.", vbInformation, "Email"

    End Sub

    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente Empty Re: [Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente

    Mensagem  Lupércio 30/1/2016, 05:52

    fSouza boa noite!
    Tente assim:

    Private Sub rtlAvisoDeVencimento_Click()
    Dim strArquivo As string
    Dim strLocal As string
    Dim objOut As Object
    Dim objmail As Object
    Dim objAnexo As Object
    Const olMailItem = 0
    Const olByValue = 1

    Set objOut = CreateObject("Outlook.application")

    If appOutlook Is Nothing Then
    Set appOutlook = CreateObject("Outlook.Application")
    End If

    On Error GoTo 0

    Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail

    With olMail
    .To = Me.SOCIO_EMAIL.Value
    .CC = ""
    .Subject = "Aviso de vencimento de reserva para: " & Me.txtSOCIO_NOME

    .HTMLBody = "Teste de envio para " & Me.txtSOCIO_NOME

    .Display 'Se trocar ".Send" por ".Display" ele mostra email antes de enviar

    End With

    MsgBox "Email@ enviado com sucesso.", vbInformation, "Email"

    End Sub


    .................................................................................
    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
    fsouza32
    fsouza32
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 22/01/2013

    [Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente Empty Re: [Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente

    Mensagem  fsouza32 1/2/2016, 13:31

    Caro Lupércio, obrigado pela ajuda, mas ainda só envia se eu abrir o Outlook, a mensagem fica para na cx de saída e qdo abro o outlook dai ele envia!
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3743
    Registrado : 04/04/2010

    [Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente Empty Re: [Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente

    Mensagem  Avelino Sampaio 1/2/2016, 13:41

    Olá!

    veja se este meu artigo ajuda:

    http://www.usandoaccess.com.br/dicas/outlook-instalado-e-aberto.asp?id=1&idlista=82#inicio

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    fsouza32
    fsouza32
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 22/01/2013

    [Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente Empty Re: [Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente

    Mensagem  fsouza32 1/2/2016, 14:00

    Mestre Avelino!
    Fiz um mix com seu código e o outro que estava usando e utilizei a função que verifica se o Outlook está aberto ou não, assim tive um paliativo para o problema, mas tem só uma coisa que estou com duvida ainda:
    Uso o Access e outlook 2013.

    Ainda persiste o seguinte:
    Na função que chama o outlook caso esteja fechado está setado para que seja minimizado e sem foco, mas qdo clico a janela do outlook toma a frente do access e depois abre o campo da mensagem!
    avatar
    VitorBraz
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 21/07/2011

    [Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente Empty Inserir relatório anexo formato PDF

    Mensagem  VitorBraz 2/4/2016, 00:29

    Private Sub rtlAvisoDeVencimento_Click()
    Dim appOutlook As Object
    Dim olMail As Object
    Dim strArquivo As String
    Dim strLocal As String
    Dim FSO As Object

    'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
    On Error Resume Next
    Set appOutlook = GetObject("Outlook.Application")

    If appOutlook Is Nothing Then
       Set appOutlook = CreateObject("Outlook.Application")
       End If

    On Error GoTo 0

    Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail

    With olMail
    .To = Me.SOCIO_EMAIL.Value
    .CC = ""
    .Subject = "Aviso de vencimento de reserva para: " & Me.txtSOCIO_NOME

    .HTMLBody = "Teste de envio para " & Me.txtSOCIO_NOME

    .Display 'Se trocar ".Send" por ".Display" ele mostra email antes de enviar

    End With

    MsgBox "Email@ enviado com sucesso.", vbInformation, "Email"

    End Sub


    Este código me atende, agora como faço para inserir um anexo nele? O Anexo deve ser um relatório do sistema em formato PDF.


    Obrigado
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3743
    Registrado : 04/04/2010

    [Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente Empty Re: [Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente

    Mensagem  Avelino Sampaio 2/4/2016, 09:40

    Vitor,

    veja neste meu artigo:

    http://www.usandoaccess.com.br/tutoriais/gerar-relatorios-em-pdf-e-enviar-por-email.asp?id=1#inicio

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    fsouza32
    fsouza32
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 22/01/2013

    [Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente Empty Re: [Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente

    Mensagem  fsouza32 6/4/2016, 17:20

    Obrigado, vou estudar o exemplo e aplicar!!
    cheers
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente Empty Re: [Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente

    Mensagem  DamascenoJr. 5/11/2021, 01:43

    Fábio, conseguiu resolver?

    Aguardamos...


    .................................................................................
    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.
    fsouza32
    fsouza32
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 22/01/2013

    [Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente Empty Re: [Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente

    Mensagem  fsouza32 5/11/2021, 13:01

    Resolvido, muito obrigado

      Data/hora atual: 29/11/2021, 23:11