Microsoft Excel

Herbers Excel/VBA-Archiv

Mail speichern unter Entwürfe | Herbers Excel-Forum


Betrifft: Mail speichern unter Entwürfe von: Hugo
Geschrieben am: 31.07.2012 23:11:17

Hallo

Versuche über Excel-VBA ein Mail zuerstellen und es in den "Entwürfe" Ordner zu speichern

Rechner 1 W7 Office Prof 2010 klappt alles bestens.
Rechner 2 W7 Office Home 2010 klappt der Code nur wenn ich vorher das Outlook manuell öffne.

Der Testcode:

Sub Test()
Dim Nachricht As Object, OutApp As Object

Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)

With Nachricht
        .To = "hk@bbb.ch"
        .Subject = "Test"
        .htmlBody = "Sehr"
        .Save
End With

Set OutApp = Nothing
Set Nachricht = Nothing

End Sub
Versuchte es auch mit code
. save
. move(16)
ohne Erfolg

Wenn ich bei Rechner 2 Outlook nicht vorgängig öffne passiert manchesmal gar nichts und wenn etwas geht wird das Mail in den Postausgang abgelegt.

Hoffentlich kann mir jemand weiterhelfen

Und wenn es nur die Möglichkeit gibt das Outlook sichtbar zu öffnen (wie manuell)

Besten Dank und Gruss

Hugo

  

Betrifft: AW: Mail speichern unter Entwürfe von: mumpel
Geschrieben am: 01.08.2012 00:42:01

Hallo!

Email erstellen und speichern

Gruß, René


  

Betrifft: AW: Mail speichern unter Entwürfe von: Hugo
Geschrieben am: 01.08.2012 11:43:20

Hallo René
Besten Dank für den Lösungsansatz.
Aber leider habe ich keine Ahnung wie ich einen Verweis auf die "Outlook 14.0 Object Library erstelle.

Kanst du mir da weiterhelfen?

Besten Dank und Gruss
Hugo


  

Betrifft: AW: Mail speichern unter Entwürfe von: mumpel
Geschrieben am: 01.08.2012 11:46:00

Im VBA-Editor: Extras-Verweise. Siehe VBA-Hilfe.


  

Betrifft: AW: Mail speichern unter Entwürfe von: Hugo
Geschrieben am: 01.08.2012 20:57:45

Hallo René

So einfach, wenn man es weiss.
Versuche es nun auf meinen Problem-Code anzuwenden

Besten Dank für deine Hilfe

Gruss Hugo


Beiträge aus den Excel-Beispielen zum Thema "Mail speichern unter Entwürfe"