können Sie dafür eine eigene Vorlage einsetzen. Wordmail greift im Standard auf die Dateivorlage »EMAIL.DOT« im Verzeichnis »WINWORD \ WORD-MAIL« zu. Allerdings können Sie die verwendete Vorlage in Exchange jederzeit mit »Verfassen | WordMail Optionen | Vorlage« ändern. Möchten Sie also etwa »EMAIL.DOT« für hausinterne Nachrichten und »EMAIL2.DOT« für die Nachrichten ins Internet verwenden, sollten Sie das Makro »DateiSenden« direkt mit der Vorlage »EMAIL2.DOT« verknüpfen. Kopieren Sie dafür die Datei EMAIL2.DOT (im Unterverzeichnis »WORD-MAIL« des Winword-Verzeichnisses) etwa in das Unterverzeichnis »Memos« des Verzeichnisses »Vorlagen« und wählen Sie anschließend in Word über den Menüpunkt »Datei | Neu | Memos« die Vorlage »EMAIL2.DOT« aus. Über »Extras | Makro | Organisieren« klicken Sie nun auf das Makro »DateiSenden« und kopieren es in die Vorlage »EMAIL2.DOT«. Anschließend entfernen Sie das Makro mit »Löschen« aus der Dateivorlage »NORMAL. DOT«. In Exchange stellen Sie nun, je nachdem, in welchem Netz die Nachricht versendet wird, mit »Verfassen WordMail Optionen | Vorlage ändern« die gewünschte Vorlage ein. Achten Sie beim Versenden der Dateien darauf, daß das Makro nur funktioniert, wenn der Cursor im Textfeld steht. Befindet sich die Eingabemarke im Empfängerfeld, geht die Nachricht mit Umlauten ins Netz. Diese Eigenart können Sie sich natürlich auch alternativ zur Technik mit den verschiedenen Vorlagen zunutze machen: Verschicken Sie die Datei ins Internet, setzen Sie den Cursor zum Absenden in das Textfeld - geht sie aber den Weg über das hausinterne Netz, dann setzen Sie den Cursor in das Empfängerfeld. Makro-Listing zum Ersetzen von Umlauten (nur eine Zeile pro BearbeitenErsetzen-Befehl) Sub MAIN On Error Resume Next BearbeitenErsetzen .Suchen = "ä", .Ersetzen = "ae", .Richtung = 0, .GroßKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textfluß = 1, .Reserviert31 = 0 BearbeitenErsetzen .Suchen = "ö", .Ersetzen = "oe", .Richtung = 0, .GroßKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textfluß = 1, .Reserviert31 = 0 BearbeitenErsetzen .Suchen = "ü", .Ersetzen = "ue", .Richtung = 0, .GroßKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textfluß = 1, .Reserviert31 = 0 BearbeitenErsetzen .Suchen = "ß", .Ersetzen = "ss", .Richtung = 0, .GroßKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textfluß = 1, .Reserviert31 = 0 BearbeitenErsetzen .Suchen = "Ä", .Ersetzen = "Ae", .Richtung = 0, .GroßKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0,