Wie würde ein Outlook 2007-Makro zum Automatisieren des Einfügevorgangs - unformatierter Text aussehen?

Mit viel Hilfe von Autorin Sue Mosher ist es mir endlich gelungen, ein Makro in Outlook 2007 einzurichten, um die Mausklicks von "Einfügen - Einfügen - Spezial - Unformatierter Text" zu automatisieren! WOO-HOO !!!!

Das meiste von dem, was ich ausschneide und in Outlook-E-Mail-Nachrichten einfügen werde, ist formatiert. Beim Einfügen mit STRG-V oder durch Klicken auf die Schaltfläche Einfügen bleibt die Formatierung erhalten. Das Klicken auf Einfügen - Inhalte einfügen - Unformatierter Text ist keine große Sache, aber jedes Mal, wenn ich es tue, dauert es ein paar Sekunden - und ich mache es sehr. Also wird dieses kleine Ding eine Zeitersparnis für mich sein.

Die VBA-Subroutine:

Sub Paste_Special_Unformatted() Dim objDoc As Word.Document Dim objSel As Word.Selection On Error Resume Next ' get a Word.Selection from the open Outlook item Set objDoc = Application.ActiveInspector.WordEditor Set objSel = objDoc.Windows(1).Selection ' now do what you want with the Selection objSel.PasteSpecial Link:=False, DataType:=wdPasteText Set objDoc = Nothing Set objSel = Nothing End Sub 

Damit dies funktioniert, musste ich den VBA-Editor in Outlook 2007 öffnen, auf Extras - Verweise klicken und die Referenz für Microsoft Word 12.0 Object Library aktivieren. Ich habe dann das Makro mit einer benutzerdefinierten Schaltfläche in den QAT-Symbolleisten verknüpft, um neue Nachrichten und Antworten zu erstellen, und es hat gut funktioniert!

Ich habe das schon früher erwähnt, aber WOO-HOO !!!!

Danke, Sue!

Es sollte dasselbe sein wie in Word 2007:

 Sub FormatText() ' ' FormatText Macro ' ' Selection.PasteAndFormat (wdFormatPlainText) Selection.PasteSpecial Link:=False, DataType:=20, Placement:=wdInLine, _ DisplayAsIcon:=False End Sub 

1. Zeigen Sie in Outlook im Menü Extras auf Makro, und klicken Sie dann auf Visual Basic-Editor.
2. Doppelklicken Sie im Projektfenster auf das Modul, das das Makro enthalten soll.
3. Klicken Sie im Menü Einfügen auf Prozedur.
4. Geben Sie im Feld Name einen Namen für das Makro ein und klicken Sie auf OK. Geben Sie den Code, den Sie ausführen möchten, in den Körper der Subroutine ein (oder kopieren Sie ihn aus Word).