Enviar e-mail de documento Word aberto, incluindo remetente e assunto de forma automática

[Sérgio Nascimento]

Bom dia,

Estou a tentar criar um botão num documento do Word, que me possibilite enviar esse mesmo documento como anexo através do Outlook.

Tenho conseguido indicar o assunto, remetente e destinatário através de um código que tenho utilizado, mas não consigo anexar o documento Word. Tenho até conseguido colocar no corpo da mensagem o conteúdo do ficheiro, mas o que pretendo mesmo é que o ficheiro Word seja remetido em anexo.

Agradeço a vossa ajuda

 

Private Sub CommandButton1_Click()
Dim Email_Assunto As String
Dim Email_Enviado_De As String
Dim Email_Enviado_Para As String
Dim Email_Cc As String
Dim Email_Bcc As String
Dim Email_Corpo As String
Dim Email_Anexo As Object
Dim Mail_Objecto As Variant
Dim Mail As Variant

Email_Assunto = "Envio dos dados"
Email_Enviado_De = "aaa@aaa.pt"
Email_Enviado_Para = "aaa@aaa.pt"
'Email_Cc = "aaa@aaa.pt"
'Email_Bcc = "aaa@aaa.pt"

MsgBox "E-mail enviado para aaa@aaa.pt", vbInformation, "OK"

On Error GoTo debugs
Set Mail_Objecto = CreateObject("Outlook.Application")
Set Mail = Mail_Objecto.CreateItem(0)

 

Mail.Subject = Email_Assunto
Mail.to = Email_Enviado_Para
Mail.cc = Email_Cc
Mail.BCC = Email_Bcc
Mail.Body = ActiveDocument.Content
Mail_Anexo = ActiveDocument
'Mail_Single.Body = Email_Body

Mail.Send

debugs:
If Err.Description <> "" Then MsgBox Err.Description
End Sub