Das Notes Forum

Lotus Notes / Domino Sonstiges => Tools & Downloads => Thema gestartet von: Wipe am 09.07.02 - 15:44:00

Titel: Signatur Notes R4.x
Beitrag von: Wipe am 09.07.02 - 15:44:00

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))

Titel: Re: Signatur Notes R4.x
Beitrag von: motte am 22.07.02 - 20:18:40

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ß!

Titel: Re:Signatur Notes R4.x
Beitrag von: Idefix am 23.03.04 - 11:00:24

Wie kann ich darin Farben, Schriftarten -größen anpassen. Welche Befehle für welche Schriftarten? Welche Farben u. Schriftarten sind möglich?

Titel: Re:Signatur Notes R4.x
Beitrag von: koehlerbv am 23.03.04 - 11:08:44

Sowas geht mit Formelsprache nicht, wohl aber mit LS.

Bernhard

Titel: Re:Signatur Notes R4.x
Beitrag von: Idefix am 23.03.04 - 11:39:23

Hallo Bernhard,

was ist LS?

Gruß
Bernd

Titel: Re:Signatur Notes R4.x
Beitrag von: koehlerbv am 23.03.04 - 11:41:43

LotusScript

Titel: Re:Signatur Notes R4.x
Beitrag von: Idefix am 23.03.04 - 11:59:20

ohje ohje damit kenne ich mich ja gar nicht aus.
Ich habe mal ausprobiert, die Befehle zu verändern. z.B. Green statt Black = funktioniert. Für die Schriftart steht 'Helv' drin. Die würde ich gene in Verdana ändern. etc.

Titel: Re:Signatur Notes R4.x
Beitrag von: Idefix am 23.03.04 - 13:48:49

Zunächst wäre mir geholfen, wenn ich weiss wie ich fett und kursiv schreiben kann.

Titel: Re:Signatur Notes R4.x
Beitrag von: MartinG am 23.03.04 - 13:52:13

@Idefix - schick Dein Mail zuerst einmal an eine exteren Adresse wie GMX...

Vermutlich schickt Ihr die Mails ja eh im PlainText raus...

Gruss
Martin

Titel: Re:Signatur Notes R4.x
Beitrag von: koehlerbv am 23.03.04 - 18:58:35

Martins Hinweis ist ein ganz wichtiger: Kommen Textattribute überhaupt bei der Mehrzahl der Empfänger an ? Bei Internet-Mails geht das sowieso meist verloren. Dann kannst Du abschätzen, ob sich der Aufwand überhaupt lohnt.

Und: Wenn Du von LS (noch) keine Ahnung hast, kannst Du bis zur Erlernung von LS die Sache sowieso vergessen.
Man kann da zwar auch was mit @functions basteln (Setup-Doc für Signatur öffnen, Feld anspringen, Inhalt selektieren, kopieren, Setup-Doc schliessen, an CursorPos einfügen), aber das wird so tricky, dass sich der Aufwand schon wirklich lohnen muss - und man fundierte Ahnung von dieser Art der Programmierung hat.

Bernhard

PS: Langer Rede kurzer Sinn - das ist nix für Endanwender, hierfür musst Du einen erfahrenen Programmierer hinzuziehen.

PPS: Wenn's Euch der Aufwand wirklich Wert ist - ich unterbreite Euch da gerne ein Angebot.

PPPS: Bei jedem Update müssen die gemachten Änderungen am Mail-Template manuell übertragen werden. Da gibt es sehr einfache Verfahren zur Update-Erleichterung, aber auch das müsst Ihr bei der Aufwandsschätzung berücksichtigen.

Titel: Re:Signatur Notes R4.x
Beitrag von: HRaq am 23.03.04 - 20:44:33

Hi Bernhard,

ich warte gespannt auf das PPPPS.... ;D

Gruß Henning

Titel: Re:Signatur Notes R4.x
Beitrag von: koehlerbv am 23.03.04 - 20:50:56

Na gut  ;D

PPPPS: Das Verfahren, das mittels LS eine Signatur einfügt, hat mit den bisher geposteten Verfahren per @functions absolut nichts zu tun - hier würde das vollkommen anders laufen.

Bernhard

Titel: Re:Signatur Notes R4.x
Beitrag von: TMC am 23.03.04 - 22:21:10

Zitat von: koehlerbv am 23.03.04 - 18:58:35

Man kann da zwar auch was mit @functions basteln (Setup-Doc für Signatur öffnen, Feld anspringen, Inhalt selektieren, kopieren, Setup-Doc schliessen, an CursorPos einfügen), aber das wird so tricky, dass sich der Aufwand schon wirklich lohnen muss - und man fundierte Ahnung von dieser Art der Programmierung hat.

Na ja, soooo tricky ist das auch nicht  :)

Code

_temp := @GetProfileField("CalendarProfile";"Signature");
@Command([EditInsertText];@NewLine+@NewLine+_temp)

Ob das in R4 so auch geht weiss ich nicht (möglicherweise heisst das Profildok anders??).

Matthias

Titel: Re:Signatur Notes R4.x
Beitrag von: TMC am 23.03.04 - 22:24:16

Ups sorry, ich vergass, ich glaub ein Signaturfeld im Setupdok gab es ja noch gar nicht in R4  :P

Sorry für die Verwirrung....

Matthias

Titel: Re:Signatur Notes R4.x
Beitrag von: TMC am 23.03.04 - 22:51:03

Noch was was mich jetzt wundert bei den obigen Aussagen- ich kenne aber den R4 Client leider zu wenig:

Farben, Schriftarten -größen etc. lassen sich doch anpassen in R4?

Also:
@Command([TextSetFontColor] ; [ Farbe ])
@Command([TextSetFontFace] ; Schriftart )
@Command([TextSetFontSize]; Größe )
etc.

Z.B.
@Command([TextSetFontColor]; ) ;
@Command([EditInsertText];"Blauer Text.....");
@Command([TextSetFontColor]; ) ;
@Command([EditInsertText];" und jetzt mal roter Text.....");

Sollte doch z.B. den eingefügten Text dann in blau / rot erscheinen lassen?

Matthias

Titel: Re:Signatur Notes R4.x
Beitrag von: MadMetzger am 24.03.04 - 08:03:16

Die Farben lassen sich auch schon unter R4 verändern, wir setzen eine ähnliche Formel für die Signatur ein. Und da funktioniert es...

Titel: Re:Signatur Notes R4.x
Beitrag von: robert am 24.03.04 - 10:14:41

Hi @ll,

ich hab den Grußtext in einen Aktionbutton gepackt, wo der User in einer Auswahlbox auswählen kann, welche Signatur er haben möchte. Dies wird per Formelsprache aus dem N&A ausgelesen, mit der Option, ob das Feld im N&A gefüllt ist.

Geht in V 4 und 5, 6 hab ich noch nicht getestet, sollte aber denke ich auch funzen.

Bei interesse stelle ich es gerne zur Verfügung.

Gruß

Robert