[Resolvido]Enviar email silencioso

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

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

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

Confira a referencia no VBA, habilite a referencia Microsoft Outlook

http://dl.dropbox.com/u/771097/MandaMail_Invisivel.mdb

Mais uma vez muito obrigado Mestre JPaulo.

Um abraço de Portugal para Portugal

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

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.

Obrigado Mestre

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.

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@hotmail.com

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.

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

http://www.mapilab.com/outlook/security/

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

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

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

Bom Dia

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

Abraço

Boa tarde, amigo Vieira

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

Abraço,

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?

Novamente, amigo vieira

Veja as referências activas:

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?

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.

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.

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.

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

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?):




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

Obrigado por tudo e breve darei notícias

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?