Enviar e-mail pelo access

[pjjpm]

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