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

    [Resolvido]Enviar email silencioso

    Compartilhe

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    [Resolvido]Enviar email silencioso

    Mensagem  vieirasoft em Ter 18 Maio 2010, 13:31

    Olá a todos

    Mestre JPaulo ou outro que possa ajudar:

    Utilizo este código para enviar um email ao cliente. O que eu pretendia era que o email fosse enviado sem abrir no mdo ver antes, ou seja, clico no botão de envio no formulário e este....segue o destino sem intervenção do utilizador.

    Obrigado

    ShellExecute hwnd, vbNullString, "mailto:" & Me!txt_Email & "?Subject=Informação de Processo" _
    & "&Body=" & Me!InfoCliente, vbNullString, CurrentProject.Path, 1


    Última edição por vieirasoft em Ter 18 Maio 2010, 13:32, editado 1 vez(es)

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Enviar email silencioso

    Mensagem  vieirasoft em Ter 18 Maio 2010, 13:31

    Olá a todos

    Mestre JPaulo ou outro que possa ajudar:

    Utilizo este código para enviar um email ao cliente. O que eu pretendia era que o email fosse enviado sem abrir no mdo ver antes, ou seja, clico no botão de envio no formulário e este....segue o destino sem intervenção do utilizador.

    Obrigado

    ShellExecute hwnd, vbNullString, "mailto:" & Me!txt_Email & "?Subject=Informação de Processo" _
    & "&Body=" & Me!InfoCliente, vbNullString, CurrentProject.Path, 1

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Enviar email silencioso

    Mensagem  JPaulo em Ter 18 Maio 2010, 22:50

    Cada vez que abrir o formulario será enviado um email invisivel.

    Confira a referencia no VBA, habilite a referencia Microsoft Outlook

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Enviar email silencioso

    Mensagem  vieirasoft em Ter 18 Maio 2010, 23:56

    Mais uma vez muito obrigado Mestre JPaulo.

    Um abraço de Portugal para Portugal

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Enviar email silencioso

    Mensagem  vieirasoft em Qua 19 Maio 2010, 00:31

    Mestre JPaulo

    O exemplo funcionou como é óbvio na perfeição. Atrevo-me a fazer uma nova pergunta relacionada: E se o Gestor de correio não for o Outlook? o método terá que ser outro, certo. Será que existe algum exemplo para um gestor de correio não outlook?

    Obrigado

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Enviar email silencioso

    Mensagem  JPaulo em Qua 19 Maio 2010, 11:53

    Deve existir sim até para o Outlook Express.

    Pode utilizar também o DoCmd.SendObject, esse já dá para para todos os provedores, só que aparece a mensagem de segurança.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Enviar email silencioso

    Mensagem  vieirasoft em Qua 19 Maio 2010, 13:01

    Obrigado Mestre

    gilberlanio rocha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 08/03/2010

    Re: [Resolvido]Enviar email silencioso

    Mensagem  gilberlanio rocha em Sab 05 Jun 2010, 13:33

    Só para não abrir outro tópico.

    Se a pessoa não tiver nenhum tipo de gestor de correio instalado no seu PC é possível o email ser enviado? Ou seja o envio dependeria unicamente do access.

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Enviar email silencioso

    Mensagem  vieirasoft em Sab 05 Jun 2010, 19:41

    Amigo:

    Poste o seu email e eu mando-lhe um exemplo chamado emailCDO recolhido num forum espanhol. Nunca o usei, mas se quizwe testar, retorne se foi útil ou não.

    gilberlanio rocha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 08/03/2010

    Re: [Resolvido]Enviar email silencioso

    Mensagem  gilberlanio rocha em Sab 05 Jun 2010, 21:23

    [Você precisa estar registrado e conectado para ver este link.]

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Enviar email silencioso

    Mensagem  criquio em Sab 05 Jun 2010, 21:44

    Não se esqueça de fazer as configurações necessárias no outlook para que não sejam exibidas mensagens de segurança na hora do envio, isso caso essas mensagens sejam exibidas.


    .................................................................................
    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.


    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Enviar email silencioso

    Mensagem  vieirasoft em Sab 05 Jun 2010, 21:55

    Também tenho um programa para isso, instala-se e bye bye mensagens do outlook.
    aqui vai o link e é free

    [Você precisa estar registrado e conectado para ver este link.]

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Enviar email silencioso

    Mensagem  vieirasoft em Sab 05 Jun 2010, 21:58

    Gilberto o email foi enviado.
    Retorne feedback se o exemplo valeu ou não. Tenho dezenas e dezenas de exemplos variados espalhados por vários discos e aí às vezes a dificulade de encontrar algo de imediato.

    Abraço

    gilberlanio rocha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 08/03/2010

    Re: [Resolvido]Enviar email silencioso

    Mensagem  gilberlanio rocha em Ter 08 Jun 2010, 17:54

    Achei esse exemplo em espanhol que resolveu o meu problema. Envia sem precisar de gestor de email instalado. Obrigado pela contruibuição de todos.
    Correo

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Enviar email silencioso

    Mensagem  Alexandre Neves em Sab 24 Jul 2010, 12:43

    Bom dia,

    Estou a começar a automatizar o correio electrónico e experimentei o exemplo do Grande JPaulo mas dá erro na instrução .Send

    Run-time error '287'
    Application-defined or object-defined error

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Enviar email silencioso

    Mensagem  vieirasoft em Sab 24 Jul 2010, 12:53

    Bom Dia

    Active a referência ao Outlook (cheque a sua versão) e o exemplo funciona

    Abraço

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Enviar email silencioso

    Mensagem  Alexandre Neves em Sab 24 Jul 2010, 14:20

    Boa tarde, amigo Vieira

    Já tinha a referência 'Microsoft Outlook 12.0 Object Library' activada e dá o erro.

    Abraço,

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Enviar email silencioso

    Mensagem  vieirasoft em Sab 24 Jul 2010, 14:25

    Etranho Alexandre por que aqui funciona direitinho. E eu até alterei poara ser com um botão de comando o envio. O scripting runtime está activado?

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Enviar email silencioso

    Mensagem  Alexandre Neves em Sab 24 Jul 2010, 16:22

    Novamente, amigo vieira

    Veja as referências activas:
    [Você precisa estar registrado e conectado para ver esta imagem.]

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Enviar email silencioso

    Mensagem  vieirasoft em Sab 24 Jul 2010, 16:32

    Parece-me ttudo correcto. Eu tenho o 2003 e neste está a trabalhar bem e não dá erro. Talvez seja melhor aguardar que o Mestre agarre este tópicouma vez que o exemplo é dele, não acha?

    Você vai mesmo usar o Outlook para isto?

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Enviar email silencioso

    Mensagem  Alexandre Neves em Sab 24 Jul 2010, 16:37

    Estou a utilizar o correio da empresa e está em Outlook. Não sei se utilizar outro fornecedor (nem sei como) se a mensagem ficará no servidor da empresa.

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Enviar email silencioso

    Mensagem  vieirasoft em Sab 24 Jul 2010, 16:44

    Bom é que eu acabei por desistir de usar o Outlook no último programa que fiz porque além das mensagens de aviso, tinha agravante de com o passar do tempo enviar as mensagens para a caixa spam. O cliente barafustou.Então passei a usar outro método para funcionar com qualquer gestor de correio, só tem um porém; não envia em modo silencioso e abre o gestor de correio já com tudo lá metidinho (foi o Mestre que colaborou nisto) e o utlizador faz clique e pronto.

    Já postei aqui no fórum.

    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7125
    Registrado : 11/05/2010

    Re: [Resolvido]Enviar email silencioso

    Mensagem  vieirasoft em Sab 24 Jul 2010, 16:46

    1- Criar um novo módulo

    Option Compare Database
    Option Explicit

    Public Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal csidl As Long, ByVal fCreate As Long) As Long
    Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

    Public Const SW_SHOWNORMAL = 1

    Depois é passar no evento através de um botão de comando:

    Const SW_SHOW = 3
    ShellExecute hwnd, vbNullString, "mailto:" & Me!Texto27 & "?Subject=Alerta de Mensagem ..." & Me!DataAgenda & "&Body=" & Me!Agenda, vbNullString, CurrentProject.Path, 1

    O Mestre JPaulo ajudou a desenvolver o restante pois inicialmente só enviava o email com o destinatário escolhido.


    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Enviar email silencioso

    Mensagem  JPaulo em Seg 26 Jul 2010, 08:44

    Bom dia Alexandre;

    Aqui no trabalho utilizamos o Outlook e não tenho qualquer erro nesse código, testei no 2003 e 2007.

    Tente por favor inverter as prioridades das referencias, coloque em primeiro a Microsoft Outlook 12.0 Obejct Library e teste.


    Function EnvioAutomaticoDeEmail()
    'By JPaulo ® Maximo Access
    Dim strAplicacao As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim strFicheiro As String

    Set strAplicacao = New Outlook.Application
    Set objMail = strAplicacao.CreateItem(olMailItem)
    strFicheiro = "c:\teste.txt"
    With objMail
    .Subject = "Teste"
    .Body = "teste de envio"
    .To = "jpaulo65@gmail.com"
    .Attachments.Add (strFicheiro)

    On Error Resume Next
    .Send

    If Err.Number = 287 Then
    End
    End If
    End With
    End Function







    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Enviar email silencioso

    Mensagem  Alexandre Neves em Seg 26 Jul 2010, 18:43

    Grande JPaulo, boa tarde

    Agradeço a sua atenção mas estou a virar-me para o Outlook, pois parece-me que é o mau da fita.
    O correio electrónico da minha empresa utiliza uma apresentação própria (através do Outlook?):

    [Você precisa estar registrado e conectado para ver esta imagem.]


    Vou tentar, junto dum colega meu, resolver o envio de mensagens pelo Outlook

    Obrigado por tudo e breve darei notícias

    adriano_byte
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 12/12/2013

    Enviar e-mail gmail

    Mensagem  adriano_byte em Sab 29 Mar 2014, 15:38

    JPaulo:

    este seu codigo abaixo manda email pro gmail e outros?

    Function EnvioAutomaticoDeEmail()
    'By JPaulo ® Maximo Access
    Dim strAplicacao As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim strFicheiro As String

    Set strAplicacao = New Outlook.Application
    Set objMail = strAplicacao.CreateItem(olMailItem)
    strFicheiro = "c:\teste.txt"
    With objMail
    .Subject = "Teste"
    .Body = "teste de envio"
    .To = "jpaulo65@gmail.com"
    .Attachments.Add (strFicheiro)

    On Error Resume Next
    .Send

    If Err.Number = 287 Then
    End
    End If
    End With
    End Function



    COmo faz um exemplo contendo tudo? so com isso no evento clique e como arquivo no c: teste ja envia o email?

      Data/hora atual: Dom 04 Dez 2016, 20:17