Jump to content
Sérgio Nascimento

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

Recommended Posts

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.