Lotus Notes / Domino Sonstiges > Tools & Downloads
Signatur Notes R4.x
Wipe:
Hallo,
habe ein hübsches Makro gefunden. ;)
Das ganze sieht dann so aus: :)
Mit freundlichen Grüßen
Hans Mustermann
_________________________________________________
Hans Mustermann
Herr der Ringe
Mustermann GmbH
Postfach 00 00 00
D-99999 Musterhausen
phone: +Landeszahl Vorwahl Rufnummer
fax: +Landeszahl Vorwahl Rufnummer
mailto: hans.mustermann@domain.de
internet: http://www.domain.de
:)
Macro für eine Signatur zum einfügen in eine Mail
Vorgehensweise:
- Unter Datei -> Vorgaben -> SmartIcons
- Marko Schaltfläche hinzufügen -> Symbol bearbeiten -> Formel auswählen
- Dann unten stehenden MakroCode einfügen und Einträge entsprechend ändern
Benutzung:
- Im Body Field wird Mailtext geschrieben
- Am Ende des Mailtext Makroschaltfläche betätigen
- Signatur wird eingefügt.
Beachten:
- Makro muss für jeden User individuell mit den Benutzerdaten ausgefüllt werden.
TempGruss:=@NewLine+"Mit freundlichen Grüßen";
TempStrich:=@NewLine+"_________________________________________________";
TempName:=@NewLine+"Hans Mustermann";
TempTitle:=@NewLine+"Herr der Ringe";
TempLeer:=@NewLine+" ";
TempPostfach:=@NewLine+"Postfach 00 00 00";
TempCompany:=@NewLine+"Mustermann GmbH";
TempOrt:=@NewLine+"D-99999 Musterhausen";
TempPhone:=@NewLine+"phone: +Landeszahl Vorwahl Rufnummer";
TempFax:=@NewLine+"fax: +Landeszahl Vorwahl Rufnummer";
TempOther:=@NewLine+"mailto: hans.mustermann@domain.de";
TempInternet:=@NewLine+"internet: http://www.domain.de"+@NewLine;
@Command([EditInsertText];TempLeer);
@Command([EditInsertText];TempGruss);
@Command([EditInsertText];TempLeer);
@Command([EditInsertText];Tempname);
@Command([TextSetFontFace];"Helv");
@Command([TextSetFontSize];"10");
@Command([TextSetFontColor];);
@Command([EditInsertText];TempStrich);
@Command([EditInsertText];Tempname);
@Command([TextSetFontFace];"Helv");
@Command([TextSetFontColor];);
@Command([TextSetFontSize];"10");
@Command([TextNormal]);
@Command([TextNormal]);
@Command([EditInsertText];TempTitle);
@Command([EditInsertText];TempLeer);
@Command([EditInsertText];TempCompany);
@Command([EditInsertText];TempPostfach);
@Command([EditInsertText];TempOrt);
@Command([TextNormal]);
@Command([TextNormal]);
@Command([EditInsertText];TempPhone);
@Command([EditInsertText];TempFax);
@Command([TextSetFontColor];);
@Command([TextUnderline]);
@Command([TextSetFontColor];
@Command([EditInsertText];TempOther);
@Command([EditInsertText];TempInternet))
motte:
Hallo Bubble,
ich habe das Macro etwas abgewandelt und nun muss es nicht für jeden Benutzer geändert werden.
Hier die Vorgehensweise:
1. Öffentliches Adressbuch anpassen
Die Felder Telefon und Fax sollten gefüllt werden (fals noch nicht vorhanden)
2 . Mailschablone anpassen
Einen Agenten erstellen (z.B. "Signatur").
Folgenden Code in den Agenten einfügen:
server := @Name([CN];@Subset(@Left(@DbName; 34);1));
name := @Name([CN]; @UserName);
suchname := (@Right(name; " ") + " , " + @Left(name; " "));
phone := @DbLookup("NOTES":"Nocache"; server : "names.nsf"; "Personen" ; suchname;"OfficePhoneNumber");
fax := @DbLookup("NOTES":"Nocache"; server : "names.nsf"; "Personen" ; suchname;"OfficeFAXPhoneNumber");
mail := @DbLookup("NOTES":"Nocache"; server : "names.nsf"; "$Users";name; "ShortName");
mail1:=@ReplaceSubstring(mail;"genonord.";"");
@Command([EditGotoField];"Body");
@Command([EditInsertText];@NewLine + @NewLine);
@Command([EditInsertText];"Mit freundlichen Grüßen"+ @NewLine + @NewLine);
@Command([TextSetFontFace]; "Brush Script");
@Command([TextSetFontSize];"18");
@Command([EditInsertText];name+ @NewLine);
@Command([TextSetFontFace]; "Helv");
@Command([TextSetFontSize];"8");
@Command([EditInsertText];"_____________________________________"+ @NewLine);
@Command([EditInsertText];"Firmenname"+ @NewLine);
@Command([EditInsertText];"Straße"+ @NewLine);
@Command([EditInsertText];"PLZ-Ort"+@NewLine + @NewLine);
@Command([EditInsertText];"Tel: ");
@Command([EditInsertText];Phone+ @NewLine);
@Command([EditInsertText]; "Fax: ");
@Command([EditInsertText];fax + @NewLine);
@Command([EditInsertText];"e-Mail: ");
@Command([EditInsertText]; mail1+ @NewLine);
@Command([EditInsertText];"Internet: ");
@Command([EditInsertText];"Internetadresse");
@Command([EditInsertText];@NewLine);
@Command([EditInsertText];"_________________________________________________________________________________________"+ @NewLine);
@Command([EditInsertText];"Über das Internet versandte E-mails können leicht verfälscht oder unter fremdem Namen erstellt werden."+ @NewLine);
@Command([EditInsertText];"Demzufolge müssen wir zu Ihrer und unserer Sicherheit die rechtliche Verbindlichkeit der vorstehenden "+ @NewLine);
@Command([EditInsertText];"Erklärungen ausschließen. Der Versand von E-mail dient somit ausschließlich dem Informationsaustausch. "+ @NewLine);
@Command([EditInsertText];"Der Inhalt dieser E-Mail ist ausschließlich für den/die in der E-Mail bezeichneten Empfänger bestimmt. "+ @NewLine);
@Command([EditInsertText];"Wir dürfen Sie bitten, sofern Sie nicht dem Empfängerkreis angehören, uns durch die Rücksendung "+ @NewLine);
@Command([EditInsertText];"dieser E-Mail von deren irrtümlichen Versand an Sie in Kenntnis zu setzen. "+ @NewLine);
@Command([EditInsertText];"_________________________________________________________________________________________"+ @NewLine);
@Command([EditGotoField];"SendTo")
4. Code anpassen
Die Firmenanschrift und die Internetadresse sind festvorgegeben und werden nicht aus dem ÖNAB geholt.
Natürlich können noch weitere Felder im ÖNAB ausgewertet und in die Signatur eingefügt werden.
3. Masken in Mailschablone anpassen
In die Masken "Memo" , "Antwort" und "Antwort mit Protokoll" eine Aktion einfügen (z.B. "Signatur").
Diese Aktion sollte dann den Agenten starten.
4. Bemerkungen
Bei Änderungen muss jetzt nur noch der Agent geändert werden
Viel Spaß!
Idefix:
Wie kann ich darin Farben, Schriftarten -größen anpassen. Welche Befehle für welche Schriftarten? Welche Farben u. Schriftarten sind möglich?
koehlerbv:
Sowas geht mit Formelsprache nicht, wohl aber mit LS.
Bernhard
Idefix:
Hallo Bernhard,
was ist LS?
Gruß
Bernd
Navigation
[0] Themen-Index
[#] Nächste Seite
Zur normalen Ansicht wechseln