[Resolvido]Emails

Boa Tarde Mestre

Aqui há um tempo atrás com a sua ajuda consegui isto:
Const SW_SHOW = 3
ShellExecute hwnd, vbNullString, "mailto:" & Me!Texto27 & "?Subject=Alerta de Mensagem ..." & Me!DataAgenda & "&Body=" & Me!Agenda, vbNullString, CurrentProject.Path, 1

Queria saber se era possível anexar um ficheiro também.Estou tentando, mas não funfa nada.

Obrigado

vieira, que tipo de arquivo vc está querendo enviar por email, seria um relatório da própria base access que vc está usando?
Caso seja isso vc pode utilizar o método DoCmd.SendObject
Caso isso não ajude vc pode utilizar o CDOSys:

Sub EnviarEmail()
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

sEmailAddress = "email@email.com"

iConf.Load -1 'Carrega a configuração padrão do objeto CDO
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "servidor smtp"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

strBody = "Corpo do email"

With iMsg
Set .Configuration = iConf
.To = sEmailAddress
.CC = "com cópia"
.BCC = "cópia oculta"
.From = "seuemail@email.com"
.Subject = "Título do email"
.TextBody = strBody
.AddAttachment "C:\teste.txt"
.Send
End With

'Finaliza os objetos
Set Flds = Nothing
Set iMsg = Nothing
End Sub

Flw, qualquer dúvida só falar...

Marco

Obrigado pela ajuda,o seu código seria excelente, mas necessito mesmo é para o código acima. É só enfiar lá o anexo e tudo corria sobre rodas. Vou aguardar o mestre ou alguém que dê uma dica como faze-lo. Já tinha experimentado o AddAttachment...Attachment=("C:\...."), mas crash.

Um abraço amigo

Sem problemas, achei interessante também esse método que você está usando, mas pelo que li na net parece que não dá pra anexar arquivos desse jeito.
Porém existem outros métodos que fazem a mesma coisa, um exemplo é esse do site da Microsoft:
http://support.microsoft.com/kb/161088

Abraço

Vieira bom dia !

Infelizmente essa instrução não permite o Attached, tem a haver com o protocolo de segurança.

Aqui mesmo neste fórum, existe alguns exemplos com o Attached a funcionar.

Boa tarde Mestre e Marco

Lamento mas só agora cheguei a casa e pude ler as mensagens. Agradeço muito ao Mestre e ao Marco, mas quero deixar aqui uma mensagem para o Marco:

O método que uso e que achou interessante: Efectivamente assim é já o uso vai para bastante tempo. Em vb6 o Mapi dá muitos problemas e este funfa assim:

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.

Esta rutina funfa diretinho no VB6 e experimentei-a no access e deu certo sem mudar uma vírgula.

Já agora:

Os hyperlinks (acesso a página web no access) dão problemas??? Entãp aqui vai uma rutina que usava também no vb6 e espanto!!! o access comeu diretinho também: Esta rutina tirei-a de uma aplicação que estou a desenvolver por isso vai assim mesmo e pode ajudar:

If Not IsNull(Me.PaginaWeb) Then
ShellExecute hwnd, "open", (Me.PaginaWeb), vbNullString, vbNullString, conSwNormal
Else
Call MsgBox("P.F. digite uma url válida!", vbCritical, "Aviso")
End If

PáginaWeb é o nome da caixa de texto (não definida como hyperlink)!!! Também usava a mesma rotina para enviar email. Então basta substituir a caixa de texto para email.

E quando o VB6 não quer funfar no access....o recurso é recorrer aos Mestres destes fórum.

Abraço e obrigado

Na empresa onde eu trabalho nós utilizamos o componente Chilkat:
http://www.chilkatsoft.com/
Eu tinha testado o seu método ontem, é legal pra mandar emails simples.
Flw

Boa Marco mas na programação devemos evitar ao máximo (só em último recurso) os activeX, nomeadamente em VBA, no VB ouVBNet já não tem problema. Ora o access é macaco já com as referências, quebras de link, se não tivermos conhecimento do que pode ser ou não inserido dentro do macaco, quando instalar-mos no cliente vai ser crash em cima de crash. Dou um exemplo...uns anos atrás adorei o Datepicker calendar sem me lembrar que ele estava instalado no meu computador porque a licença era oriunda do VB6 que eu tinho. Então todo vaidoso instalei num programa (access) e levei-o ao cliente. A Vaidade caiu por terra em dois tempos. Não é toa que existe uma máxima para o aceess...enquanto houver wizards, tudo bem,,,quando eles acabam....Mas valeu a intenção e como diz o mestre JPaulo no fórum existem exemplos válidos de envio com anexo.

Abraço

A sim, com certeza vieira, mas é que eu geralmente crio instaladores para os ActiveX que eu utilizo para evitar esse problema, afinal, se eu estou instalando um aplicativo para solucionar um problema do cliente não custa nada registrar algumas OCX ou DLL's, coisa que muitos programas fazem.
Flw

Claro, Marco é isso mesmo. Valeu