VBA MS Outlook 2010 - Email senden und drucken

Computer: Software & Programmierung Visual Basic
#1

Grüezi

Ich möchte die Mails, die ich versende, gleichzeitig auch drucken. Dazu habe ich unter
http://www.office-loesung.de/ftopic325101_0_0_asc.php#
folgendes Makro gefunden:

Private Sub Application\_ItemSend(ByVal Item As Object, Cancel As Boolean)
If MsgBox("Soll die E-Mail gedruckt werden?", \_
 260, "Drucken?") = vbYes Then
 Item.PrintOut
Else
End If
End Sub

Dieses Makro funktioniert bestens mit Outlook 2003. Im Outlook 2010 ereignet sich nichts, nicht einmal die MsgBox erscheint. Das Makro ist hinterlegt unter „ThisOutlookSession“ im Projekt1 (Vba-Project.OTM). Es gibt nur dieses Projekt1.

Komisch ist folgendes: Ich habe dieses Makro im Outlook 2010 eingefügt. Beim allerersten Mal, wie ich eine Mail versandt habe, hat das Makro funktioniert. Seither erscheint, wie gesagt, nicht einmal mehr die MsgBox.

Vielen Dank für Eure Hilfe
Niclaus

#2

http://www.office-loesung.de/ftopic325101_0_0_asc.php#

Dieses Makro funktioniert bestens mit Outlook 2003. Im Outlook
2010 ereignet sich nichts, nicht einmal die MsgBox erscheint.
Komisch ist folgendes: Ich habe dieses Makro im Outlook 2010
eingefügt. Beim allerersten Mal, wie ich eine Mail versandt
habe, hat das Makro funktioniert. Seither erscheint, wie
gesagt, nicht einmal mehr die MsgBox.

Grüezi Niclaus,

sind die Makrosicherheitsstufen verändert? Teste mal ein einfaches MsgBox-Makro.

Schad, OL hat wohl kein EnableEvent.

Gruß
Reinhard

#3

http://www.office-loesung.de/ftopic325101_0_0_asc.php#

Dieses Makro funktioniert bestens mit Outlook 2003. Im Outlook
2010 ereignet sich nichts, nicht einmal die MsgBox erscheint.
Komisch ist folgendes: Ich habe dieses Makro im Outlook 2010
eingefügt. Beim allerersten Mal, wie ich eine Mail versandt
habe, hat das Makro funktioniert. Seither erscheint, wie
gesagt, nicht einmal mehr die MsgBox.

sind die Makrosicherheitsstufen verändert? Teste mal ein
einfaches MsgBox-Makro.

Grüezi Niclaus,

kennst du keinen Bekannten, Arbeitskollegen, der auch OL 2010 hat und den Code mal testen könnte?
Du hast ja gesagt, in 2003 lief er problemlos, also wird das auch in meinem OL 2000 so sein, ist aber egal, bringt dir ja nix diese Info, muß schon andernorts auch mit 2010 getestet werden.
(Ich hab zwar Office2007 Home & Student, da ist wohl kein OL dabei)

Du könntest danach suchen, auch im englischsprachigen Sparchraum bzw. weltweit, ich fand schon Klasse Code auf chin. bzw. japansischen Seiten.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dabei noch 2010 und 2003 angeben

Vielleicht haben ja diese Probleme noch andere.

Im Code kannst du auch einen Haltepunkt setzen, ich glaube aber nicht daß da gehalten wird, ich sehe es wie du.wird der Code überhaupt durchlaufen, müßte die MsgBox kommen.

Noch eine Idee, vielleicht sind die Optionen der der Fehlerbehandlung verändert worden.

Mache mal aus der If Zeile einen Einzeiler ohne Unterstriche, wirf Else (wofür eigentlich?) und End If raus.

Du siehst wie ich mir verzeifelt absurde Dinge einfallen lasse, d.h. ich habe keinen blassen Schimmer was zu tun ist *grins*

Gruß
Reinhard

#4

Beim allerersten Mal, wie ich eine Mail versandt
habe, hat das Makro funktioniert. Seither erscheint, wie
gesagt, nicht einmal mehr die MsgBox.

sind die Makrosicherheitsstufen verändert? Teste mal ein
einfaches MsgBox-Makro.

Lieber Reinhard

Die Sicherheitsstufen!! Ich habe sie zwar nicht verändert nach dem ersten erfolgreichen Test. Aber jetzt war die Einstellung „Alle Makros deaktivieren!“ - Bis man die entsprechende Einstellung gefunden hat!!!

Herzlichen Dank für Deinen Tipp und viele Grüsse
Niclaus