Email mit Anlage:
15.03.2004 10:54:26
Sabine
ich möchte aus Excel heraus eine Email versenden, mit einer Anlage.
Das Versenden funktioniert wunderbar, nur leider hane ich noch nicht den
Parameter für eine Anlage gefunden.
z.b.>> Mail.Attachment file name = "E:\CATTemp\test.opt"
Das ist jedoch nicht der richtige Parameter sondern nur eine Idee.
Wer kennt die richtige Lösung???
Über eine Lösung würde ich mich sehr freuen.
LG Sabine
Sub test()
Dim Mail As Object
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
Mail.Subject = "Die Stückliste "
Mail.body = "test"
Mail.to = "paule@freenet.de"
Mail.cc = ""
Mail.display
Mail.send
Set Mail = Nothing
Set outObj = Nothing
End Sub
Anzeige