Hallo zusammen,

ich bin auf der Suche nach einem Makro, dass mir im Outlook (2002/XP) die Möglichkeit gibt, eine Email zu versenden und gleichzeitig/anschließend 2x auszudrucken.

Bisher bin ich nur auf diese Idee gekommen, habe aber leider noch das Problem, dass es nicht funktioniert.

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

Item.PrintOut Copies:=2

End Sub

Meine Frage: Muss ich diesen Code speziell einbauen? Bisher habe ich einfach Visual Basic geöffnet, den Code eingegeben und abgespeichert. Muss ich nun erst diesen Code irgendwie einbauen/aktivieren/ect.?

Gruß

Fachi19

Muss ich diesen Code speziell einbauen? Bisher habe ich einfach Visual Basic geöffnet, den Code eingegeben und abgespeichert. Muss ich nun erst diesen Code irgendwie einbauen/aktivieren/ect.?

nein. die prozedur wird automatisch in deiner standardmässigen profil-projektdatei namens VbaProject.OTM im lokalen profil abgelegt und steht in der jeweils laufenden outlook-instanz zur verfügung.

wird die prozedur beim versand aufgerufen oder kommst du garnicht rein?

s'Amstel

Hallo Amstelchen,

so wie es aussieht komme ich nicht einmal in die Prozedur rein. Ich habe eben eine MsgBox eingebaut aber nichts angezeigt bekommen. Daher vermute ich mal, dass ich irgendwas übersehen habe.