title image


Smiley Re: "Argumente"
Doch klar - ich weiß ja, was für Arbeit sowas kostet und man muss das Rad ja nicht neu erfinden ;)



1. Voraussetzungen

- Die Felder Company (Firma), Department(Abteilung), Employee-ID (Position), Office phone, FAX phone werden für die Signatur benötigt, diese müssen richtig befüllt werden.

- Eine Bilddatei wird benötigt - wir haben diese auf unserem Domino-Server, der gleichzeitig HTTP (Intranet) macht und die Datei hostet. Hier haben wir das Firmenlogo und einige Angaben zur GF und dem Firmensitz gemacht.



Erstelle nun eine neue Mail mit einer Schaltfläche (alternativ, und so ist es bei uns, kannst Du die Schaltfläche in die Mailschablone der User setzen, z.B. auf die Mailpicker-Seite, so dass jeder dort am nächsten Morgen (Designer-Task) diese findet:



Ich habe unten den Inhalt unserer Schaltfläche eingefügt, dort ist auch schon der Disclaimer enthalten (Abstimmung mit Rechtsabteilung...), diesen, sowie die Variable logoPath$ im Sub WriteSig musst Du anpassen (logoPath$ ist die URL zu Deinem Logo, was unten angefügt werden muss, ich habe hier beispielhaft einmal unseren netten Peter Herzog genommen ;) )



Die Schaltfläche enthält Lotus Script - und zwar wie folgt (nenn sie z.B. "E-Mail Signatur erneuern") - eigentlich sollte es klappen, dass Du alles zwischen den beiden Strichen kopieren kannst:



------------------------------------------------------------------



Sub Click(Source As Button)



Dim ws As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim s As New NotesSession



Dim userN As New NotesName(s.Username)

Dim db As NotesDatabase

Dim persdoc As NotesDocument

Dim thisdoc As NotesDocument

Dim userName As String



Dim nab As NotesDatabase

Dim nabView As NotesView



Set db=s.CurrentDatabase



userName=Cstr(userN.Abbreviated)

Set uidoc=ws.CurrentDocument

user$=userName



Set nab=s.GetDatabase(db.Server,"names.nsf")

Set nabView=nab.GetView("($Users)")



Set persdoc=nabView.GetDocumentByKey(user$)

If persdoc Is Nothing Then

Messagebox "Name im Adressbuch nicht gefunden !",0+48,"Signatur erstellen"



Else

Call WriteSig(uidoc,persdoc)

End If



End Sub







Sub putAttachInData(uidoc As NotesUIDocument,dataPath$, logoPath$)



Dim thisDoc As NotesDocument



Set thisDoc=uidoc.Document





Dim rtitem As Variant

Dim fileCount As Integer



'...set value of doc...

Set rtitem = thisdoc.GetFirstItem( "Body" )

If ( rtitem.Type = RICHTEXT ) Then

Forall o In rtitem.EmbeddedObjects

Print logoPath$

Call o.ExtractFile(logoPath$)

Call o.Remove

Call thisdoc.Save( True, True )

End Forall

End If



End Sub







Sub WriteSig(uidoc As NotesUIDocument,persdoc As NotesDocument)



Dim s As New NotesSession



temp$=s.GetEnvironmentString("Directory", True)



Print temp$



logoPath$="http://www.erfahrungswerte.de/img/sp/port_hoch.jpg"

fname$ = temp$ &"\signature.html"



t$ =|







E-Mail Signatur



Mit freundlichen Grüßen / Best Regards

| & persdoc.FullName(1) & |

__________________________________________

| & persdoc.CompanyName(0) & |

| & persdoc.Department(0) & |

| & persdoc.EmployeeID(0) & |

| & persdoc.OfficeCity(0) & |

Phone:   | & persdoc.OfficePhoneNumber(0) & |

Fax:       | & persdoc.OfficeFAXPhoneNumber(0)& |E-Mail:    | & persdoc.InternetAddress(0)& |

Internet:  http://www.DEINE-FIRMA.com



--->

Diese Mitteilung ist nur für den Empfänger bestimmt. Sie enthält Informationen, die nach den anwendbaren Bestimmungen anwaltlichem Zeugnisverweigerungsrecht, einer Geheimhaltungsverpflichtung oder urheberrechtlichen Schutzvorschriften unterliegen können. Wenn Sie nicht der bestimmungsgemäße Empfänger sind, werden Sie hiermit darauf hingewiesen, daß jede Nutzung, Vervielfältigung oder Verbreitung dieser e-mail, auch in Auszügen, streng untersagt ist. Bitte informieren Sie den Absender durch Rücksendung der e-mail und löschen Sie diese aus Ihrem System.

Diese e-mail stellt weder ein Vertragsangebot noch eine Vertragsergänzung oder -annahme dar, es sei denn, sie ist ausdrücklich oder sonst eindeutig mit "E-Contract Intended" oder "elektronischer Geschäftsabschluss beabsichtigt" bezeichnet. Diese e-mail stellt auch keine Zustimmung zur Verwendung der hierin enthaltenen Angaben für Zwecke des Direktmarketing oder zur Weitergabe von Daten an Dritte dar.





This communication is for use by the intended recipient and contains information that may be privileged, confidential or copyrighted under applicable law. If you are not the intended recipient, you are hereby formally notified that any use, copying or distribution of this e-mail, in whole or in part, is strictly prohibited. Please notify the sender by return e-mail and delete this e-mail from your system. Unless explicitly and conspicuously designated as " E-Contract Intended", this e-mail does not constitute a contract offer, a contract amendment, or an acceptance of a contract offer.

This e-mail does not constitute a consent to the use of sender's contact information for direct marketing purposes or for transfers of data to third parties.





|



Dim fileNum As Integer

fileNum% = Freefile()

Open fname$ For Output As fileNum%

Print #fileNum%, t$

Close fileNum%



Call enableProfile(fname$)



'Call putAttachInData(uidoc,temp$, logoPath$)





End Sub







Sub enableProfile(fname$)

Dim db As New NotesDatabase( "", "" )

Call db.OpenMail



Dim s As New NotesSession



Dim profileDoc As NotesDocument

Set profileDoc=db.GetProfileDocument("CalendarProfile")

Call profileDoc.ReplaceItemValue("Signature_2",fname$)

Call profileDoc.ReplaceItemValue("SignatureOption","2")

Call profileDoc.ComputeWithForm(True,False)



Call profileDoc.Save(True,True)





End Sub







--------------------------------------------------------------------







Sooo....

Nun kann der User, dem Du diese Schaltfläche zusendest und dessen Einträge in der Domino-Directory anständig gepflegt sind über "Werkzeuge -> Signatur einfügen -> Aus Mailvorgabe" seine Signatur im "Corporate Design" unter jedes Mail flanschen...



Hoffe es klappt auch bei Dir, wenn nicht, schreib einfach hier rein :)

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: