zeppo
Mitglied
Zervuz beianander!
Ich verwende in Outlook 2002 Makros, um verschiedene Mails aus gespeicherten Vorlagen mit unterschiedlichen zu versenden.
Dabei nervt, dass ich in einigen Mails im Textkörper immerzu an der gleichen Stelle einen Text einfügen muß, der sowieso im Puffer (Clipboard) steht.
Mein Code sieht im Moment so aus:
Kennt ihr eine Möglichkeit, wie ich im VB-Quellcode des Makros einen bestimmten Text suchen und durch einen aus der Zwischenablage ersetzen kann?
Das würde die Sache super einfach machen.
Alternativ könnte ich natürlich auch im Mailbody positionieren, löschen und wieder einfügen.
Weiß aber auch mit der Methode nicht wie das geht.
Ich verwende in Outlook 2002 Makros, um verschiedene Mails aus gespeicherten Vorlagen mit unterschiedlichen zu versenden.
Dabei nervt, dass ich in einigen Mails im Textkörper immerzu an der gleichen Stelle einen Text einfügen muß, der sowieso im Puffer (Clipboard) steht.
Mein Code sieht im Moment so aus:
Code:
Sub Vorlage1laden()
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItemFromTemplate("H:\Vorlagen\Mailvorlagen\Vorlage1.oft")
' "senden als" mit Wert belegen
myItem.SentOnBehalfOfName = "vonmir@irgendwo.de"
myItem.Subject = "Betreff von Vorlage1"
' myItem.Body ist mit dem vordefinierten Text aus der Vorlage belegt.
' hier sollte ein bestimmter Text (z.B.: [TEXT] ) durch die Zwischenablage ersetzt werden.
myItem.Display
End SubKennt ihr eine Möglichkeit, wie ich im VB-Quellcode des Makros einen bestimmten Text suchen und durch einen aus der Zwischenablage ersetzen kann?
Das würde die Sache super einfach machen.
Alternativ könnte ich natürlich auch im Mailbody positionieren, löschen und wieder einfügen.
Weiß aber auch mit der Methode nicht wie das geht.
