Makro: Mail wird nicht erzeugt
17.09.2008 11:49:20
Ralf
das folgende Makro blokiert in der Zeile 'Set mailitem = outobj.createitem(0)'
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