Enviar e-mail pelo access - Versão de Impressão

Enviar e-mail pelo access - Versão de Impressão

+- Forum Pplware (http://forum.pplware.com)
+-- Fórum: Software (/forumdisplay.php?fid=4)
+--- Fórum: Aplicações (/forumdisplay.php?fid=12)
+--- Tópico: Enviar e-mail pelo access (/showthread.php?tid=20341)

Enviar e-mail pelo access - pjjpm - 09-12-2014 18:37

Olá amigos,
Necessito da vossa ajuda com o seguinte:
Criei num formulário um botão para enviar e-mail a partir do Outlook, mas tenho 2 situações:
1º Gostaria que o e-mail fosse enviado a partir da conta com o endereço correspondente ao campo [EmailPh]
2º Gostaria também de enviar em anexo o Relatório MENSAGEM.

O que devo acrescentar ao código que escrevi?

Sub SendEmail()

Dim oOutlook As Outlook.Application
Dim oEmailItem As MailItem

' prevent 429 error, if outlook not open
On Error Resume Next
Err.Clear
Set oOutlook = GetObject(, "Outlook.application")
If Err.Number <> 0 Then
Set oOutlook = New Outlook.Application
End If

Set oEmailItem = oOutlook.CreateItem(olMailItem)

With oEmailItem
.To = [Email]
.Subject = "Manipulado pronto"

.Body = "Exmo(a) Sr.(ª) " & [Doente] _
& vbCrLf & "" _
& vbCrLf & "Temos o prazer de informar que o seu manipulado já está pronto." _
& vbCrLf & "" _
& vbCrLf & "Os melhores cumprimentos." _
& vbCrLf & "" _
& vbCrLf & [DirTec]

.Attachments = "Mensagem"

.Display
End With

Set oEmailItem = Nothing
Set oOutlook = Nothing
End Sub

Obrigado [Imagem: icon_smile.gif]