Makro: Mail wird nicht erzeugt

Sub Mail_Stammdaten()
Dim ob, mailitem As Object
Set ob = CreateObject("outlook.application")
Set mailitem = outobj.createitem(0)
On Error Resume Next
With mailitem
.Subject = "Neuanlage in Decalog"
.To = "gerhard.jungwirth.ext@fundmaster.de"
.attachments.Add "H:\rk\Stammdaten\Neuanlage in Decalog.xls"
.body = "Hallo," & Chr(13) & "beigefügte WP müssen in Decalog noch angelegt werden." &  _
Chr(13) & Chr(13) & "Vielen Dank!"
End With
End Sub

Viele Grüße
Ralf