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]Enviar email de forma automática pelo Outlook

    avatar
    lebersa12
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 16/05/2014

    [Resolvido]Enviar email de forma automática pelo Outlook Empty [Resolvido]Enviar email de forma automática pelo Outlook

    Mensagem  lebersa12 22/9/2014, 15:23

    Caros amigos,

    Atualmente utilizo o seguinte modulo para enviar emails.

    Sub EnviaEmail()

    Dim appOutlook As Object
    Dim olMail 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
    'On Error Resume Next
    .To = "xxxxx.xxxx@xxx.xxx"
    .CC = "xxxxx.xxxxx@xxx.xxx"
    .Subject = "Teste"
    .Attachments.Add ("Y:xxxxxxxxx.xls")
    '.Attachments.Add = ("C:xxxxxx.xls")
    .Body = "Bom dia," + vbNewLine + "Segue em anexo relatório de Controle." + vbNewLine + vbNewLine + "Atenciosamente," + vbNewLine + "Fulano" + vbNewLine + "Área Comercial"
    .Display '.Send
    End With
    End Sub

    Essa rotina funciona perfeitamente. O que preciso é automatizar essa rotina para que nao seja necessário eu ter que clicar no botão enviar para que o email saia da caixa, preciso que toda essa rotina seja independente do usuário.

    Por gentileza, alguem pode me propor um solução?

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10765
    Registrado : 04/11/2009

    [Resolvido]Enviar email de forma automática pelo Outlook Empty Re: [Resolvido]Enviar email de forma automática pelo Outlook

    Mensagem  JPaulo 22/9/2014, 16:41

    Se você substituir o .Display pelo .Send, envia sem avisar.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Enviar email de forma automática pelo Outlook Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Enviar email de forma automática pelo Outlook Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Enviar email de forma automática pelo Outlook Folder_announce_new Instruções SQL como utilizar...
    avatar
    lebersa12
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 16/05/2014

    [Resolvido]Enviar email de forma automática pelo Outlook Empty Enviar email de forma automática pelo Outlook

    Mensagem  lebersa12 22/9/2014, 17:53

    JPaulo,

    Obrigado!
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    [Resolvido]Enviar email de forma automática pelo Outlook Empty Re: [Resolvido]Enviar email de forma automática pelo Outlook

    Mensagem  Roberto_1977 2/10/2014, 16:08

    Boa tarde,

    Após ter adaptado o código aqui postado, ele funcionou na perfeição para o que eu queria.
    Só tenho uma pequena duvida?
    É possivel inserir vários nomes para quem queremos enviar "Para:"ou "Cc:" ????
    Os nomes e respetivos emails estão numa tabela e no meu forme estou a escolher atravez de uma combo box.

    Agradeço....
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    [Resolvido]Enviar email de forma automática pelo Outlook Empty Re: [Resolvido]Enviar email de forma automática pelo Outlook

    Mensagem  Roberto_1977 2/10/2014, 17:11

    Boa tarde,

    resolvi o meu problema, não sei se é a melhor maneira mas funciona.

    Private Sub Combo205_AfterUpdate()
    If Text209.Value <> "" Then
    Text209.Value = Text209 & Combo205 & "; "
    Else
    Text209.Value = Combo205 & "; "
    End If
    Command236.Enabled = True
    End Sub

    Agradeço a quem tentou.... Cool
    Caio
    Caio
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Enviar email de forma automática pelo Outlook Empty Re: [Resolvido]Enviar email de forma automática pelo Outlook

    Mensagem  Caio 5/4/2016, 20:26

    Robert_1977, onde coloco a linha de comando?
    Como funciona esse código ai?
    O meu precisaria que enviasse de acordo com o status de cada registro.

    Alguma ideia?
    avatar
    bcorrea
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 03/08/2020

    [Resolvido]Enviar email de forma automática pelo Outlook Empty Email fica na caixa de saída e não é de fato enviado

    Mensagem  bcorrea 22/3/2022, 18:35

    Caríssimos, vi aqui nas páginas anteriores que um usuário levantou esse questionamento mas não consegui ver a resposta, pois estou com o mesmo problema:

    Tenho um código pra enviar email pelo outlook, mas o email nao é enviado, ficando na caixa de saída, me obrigando a depois do procedimento ter que abrir o outlook manualmente para que o email seja realmente enviado.

    Como faço para não precisar abrir o outlook manualmente?

    Obrigado!!!


    Private Sub Comando3_Click()

    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application") 'Objeto para Outlook
    Set OutMail = OutApp.CreateItem(0) 'Objeto para email dentro do Outlook

    With OutMail
    .To = "email"
    .CC = "email"
    .BCC = ""
    .Subject = "assunto"
    .Body = "Mensagem"
    .Display ' para enviar o email diretamente defina o código .Send
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing

    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10765
    Registrado : 04/11/2009

    [Resolvido]Enviar email de forma automática pelo Outlook Empty Re: [Resolvido]Enviar email de forma automática pelo Outlook

    Mensagem  JPaulo 23/3/2022, 13:57

    Você fez este procedimento ?

    Código:
    .Display ' para enviar o email diretamente substitua o Display por .Send


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Enviar email de forma automática pelo Outlook Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Enviar email de forma automática pelo Outlook Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Enviar email de forma automática pelo Outlook Folder_announce_new Instruções SQL como utilizar...
    avatar
    bcorrea
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 03/08/2020

    [Resolvido]Enviar email de forma automática pelo Outlook Empty Re: [Resolvido]Enviar email de forma automática pelo Outlook

    Mensagem  bcorrea 23/3/2022, 16:07

    Obrigado por retornar !!!

    sim fiz tambem, mas a unica coisa que muda é que o email abre e fecha sozinho, mas o problema de ficar na caixa de saida ainda permanece, necessitando que eu abra o outlook manualmente para que seja realmente enviado.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10765
    Registrado : 04/11/2009

    [Resolvido]Enviar email de forma automática pelo Outlook Empty Re: [Resolvido]Enviar email de forma automática pelo Outlook

    Mensagem  JPaulo 23/3/2022, 16:48

    Aproveite;
    Anexos
    [Resolvido]Enviar email de forma automática pelo Outlook AttachmentMandaMail_Sem_Seguranca_e_Recebe.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (39 Kb) Baixado 16 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Enviar email de forma automática pelo Outlook Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Enviar email de forma automática pelo Outlook Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Enviar email de forma automática pelo Outlook Folder_announce_new Instruções SQL como utilizar...
    avatar
    bcorrea
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 03/08/2020

    [Resolvido]Enviar email de forma automática pelo Outlook Empty Re: [Resolvido]Enviar email de forma automática pelo Outlook

    Mensagem  bcorrea 23/3/2022, 17:28

    obrigado JPAULO

    eu peguei o seu codigo e incluí no meu, porém permanece igual. Um adendo: quando eu abro manualmente o outlook da pra ver que tem 1 email na caixa de saida e logo em seguida aparece a mensagem "o servidor oa qual voce esta conectado esta usando um certificado de segurança que nao pode ser confirmado. deseja continuar usando este servidor? e SO DEPOIS que eu clico em sim é que o email sai da caixa de saida e é efetivamente enviado.

    essa mensagem que aparece influencia no codigo nao dar certo?
    avatar
    bcorrea
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 03/08/2020

    [Resolvido]Enviar email de forma automática pelo Outlook Empty Re: [Resolvido]Enviar email de forma automática pelo Outlook

    Mensagem  bcorrea 23/3/2022, 17:42

    Entao fiz um teste aqui no outlook e consegui resolver a questao da mensagem do certificado. ela NAO esta mais aparecendo, POREM o problema no código vba permanece. Eu sou obrigado a abrir manualmente o outlook para que o email saia da caixa de saida e realmente seja enviado. Eu abro o outlook e vejo 1 email na caixa de saida e em questoes de segundo o email some (sendo neste momento e so nesse momento enviado realmente). o código esta escravo do abertura manual do outlook.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10765
    Registrado : 04/11/2009

    [Resolvido]Enviar email de forma automática pelo Outlook Empty Re: [Resolvido]Enviar email de forma automática pelo Outlook

    Mensagem  JPaulo 24/3/2022, 10:12

    Centenas de testes que fiz aqui e com o outlook fechado envia sempre, atrvés do banco de exemplo que enviei acima.

    1º Faça o teste no banco que lhe enviei, sem alterar nada, apenas deve alterar o destinatário.
    2º Diga-nos a versão do seu Office.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Enviar email de forma automática pelo Outlook Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Enviar email de forma automática pelo Outlook Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Enviar email de forma automática pelo Outlook Folder_announce_new Instruções SQL como utilizar...
    avatar
    bcorrea
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 03/08/2020

    [Resolvido]Enviar email de forma automática pelo Outlook Empty Re: [Resolvido]Enviar email de forma automática pelo Outlook

    Mensagem  bcorrea 24/3/2022, 11:54

    Bom dia! Obrigado pelo retorno!

    Ok!

    Assim que o programa abre aparece a msg do anexo, versando sobre projeto ou a biblioteca.

    Office 2007.
    Anexos
    [Resolvido]Enviar email de forma automática pelo Outlook Attachmentmsg.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (65 Kb) Baixado 5 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10765
    Registrado : 04/11/2009

    [Resolvido]Enviar email de forma automática pelo Outlook Empty Re: [Resolvido]Enviar email de forma automática pelo Outlook

    Mensagem  JPaulo 25/3/2022, 11:14

    Isso acontece por causa das referencias VBA.

    Entre no modulo VBA, vá a Ferramentas, Referencias e retire o visto da referencia ausente e marque a mesma referencia para a sua versão.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Enviar email de forma automática pelo Outlook Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Enviar email de forma automática pelo Outlook Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Enviar email de forma automática pelo Outlook Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 24/9/2022, 21:34