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
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