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,