Colocar Resposta 
 
Avaliação do Tópico:
  • 0 votos - 0 Média
  • 1
  • 2
  • 3
  • 4
  • 5
Enviar e-mail pelo access
09-12-2014, 18:37
Mensagem: #1
Enviar e-mail pelo access
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]
Procurar todas as mensagens deste utilizador
Citar esta mensagem numa resposta
Colocar Resposta 


Saltar Fórum:


Utilizadores a ver este tópico: 1 Visitante(s)