Makro: Mail erzeugen funktioniert noch nicht
18.09.2008 16:07:50
Ralf
folgendes Makro zur Erzeugung einer Mail funktioniert noch nicht.
Sub Mail_Stammdaten()
Dim ob, mailitem As Object
Set ob = CreateObject("outlook.application")
Set mailitem = ob.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
Set ob = Nothing
Set mailitem = Nothing
End Sub
Viele Grüße
Ralf