Mail mit Anhang im Hintergrund versenden

habe den Beitrag "Mail mit Anhang versenden" versucht und bleibe an dem Punkt
Sub Schaltfläche2_BeiKlick()
Dim Nachricht As Object
Dim OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim Anhang As String
'Aktive Arbeitsmappe wird als mail gesendet
Anhang = "c:\test.xls"
'InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "x.xxxx@xxxxx.de"
.Subject = "Testmeldung von Excel2000 " & Date & Time
.attachments.Add Anhang
.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
'Hier wird die Mail nochmals angezeigt
'.Display
'Hier wird die Mail gleich in den Postausgang gelegt
#>#> Mail.Send #<#<
End With
' OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub

jedesmal hängen und bekomme die Fehlermeldung "Laufzeitfehler - Objekt erforderlich".
Könnte mir jemand helfen, da ich nun wahrhaftig kein VBA-Crack bin.

Vielen Dank
NetPower