Word-Makro auf Outlook verweisen

Private Sub CommandButton1_Click()

Dim m_Outlook As Outlook.Application
Dim m_MailItem As Outlook.MailItem
Dim m_strAblageOrt As String

Set m_Outlook = New Outlook.Application
Set m_MailItem = m_Outlook.CreateItem(olMailItem)

m_strAblageOrt = "C:\Temp" 'Ablageort der Word-Datei  

ActiveDocument.SaveAs m_strAblageOrt

m_MailItem.To = "[[E-MAil Adresse enfernt]]"  
m_MailItem.Subject = "BeispielBetreff"  
m_MailItem.Attachments.Add m_strAblageOrt & ".doc"  
m_MailItem.Display 'geht auch ohne display  
m_MailItem.Send

Set m_MailItem = Nothing
Set m_Outlook = Nothing


'Dim m_Outlook As Outlook.  

End Sub