Option Explicit
 
Dim ol As Outlook.Application
Dim wd As New Word.Application
Dim doc As Document
 
Private Sub Command1_Click()
    Dim mi As MailItem
    Dim s As String
 
    Set doc = wd.Documents.Open(App.Path + "\Test.doc")
    s = ActiveDocument.StoryRanges(wdMainTextStory).Text
    Set doc = Nothing
 
    Set mi = ol.CreateItem(olMailItem)
    mi.To = "webmaster@michael-schriever.de"
    mi.Subject = "Betreff Outlook/Word Test"
    mi.Body = s
    mi.Save
    mi.Send
    Set mi = Nothing
End Sub
 
Private Sub Form_Load()
    Set ol = New Outlook.Application
    Set wd = New Word.Application
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Call ol.Quit
    Call wd.Quit
    Set ol = Nothing
    Set wd = Nothing
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1