Lotus Notes Tutorial - Lotus Notes et Domino Enterprise Education

J'ai eu des fonctions de bibliothèque LotusScript et des exemples de code que j'ai trouvé utile et utilisé dans tous les ce projet. Certains simple et certains ne sont pas. Ou très peu de recherches et de travail avant que je vienne travailler. Dans cet article, à titre d'exemples. La signature de courriels de LotusScript.

Problèmes.
Quand un enregistrement de la Lotusscript backend affiche alors l'utilisateur frontend / classe d'assurance-chômage, la signature électronique de l'utilisateur. (Si elle est activée) sera inséré dans la partie supérieure du document sous forme de texte à la baisse des attentes pour le compte du Nord.

Solution:.
Désactiver la signature et l'ouvrir. Travailler comme indiqué dans l'exemple de code suivant.

Limitations.
Ceci est juste un exemple de. Désactiver la signature électronique de l'utilisateur. Pour insérer la fin. Contenu de votre e-mail. (Dans cet exemple "Bonjour tout le monde!"), Vous pouvez modifier les exemples et de lire la signature de Lotus notes doc Profil puis insérez

Pré-requis:.
Cela a été testé dans Lotus Notes 6.5.3 mais devrait fonctionner dans les versions antérieures, telles que R5 et plus tard ND7 communiqué.
Ecrire un commentaire si vous avez ce travail de vérification. (Ou le travail) dans d'autres modèles.

Voici un exemple de code.
1) Créer un Lotusscript backend dossier scolaire,.
2) désactiver la signature électronique de l'utilisateur.
3) Les dossiers montrent l'interface utilisateur Lotusscript apprentissage et
4) re-activer la signature électronique de l'utilisateur.

S'il vous plaît noter que. NotesRichTextItem. Amélioration dans cet exemple dans ND6.

' ------------------------------------------------

Espace de travail As New NotesUIWorkspace
Dim dbmail Comme NotesDatabase
DocMail As NotesDocument
Dim rtitem Comme NotesRichTextItem

DocProfile As NotesDocument
StrProfileEnableSignature Dim As String

«Base de données ouverte courrier des utilisateurs
Réglez dbmail = New NotesDatabase ("", "")
Appelez dbMail.OpenMail
Si Non dbMail.IsOpen Puis
Appelez MessageBox ("Impossible d'ouvrir base de données électronique.", 48, "Erreur")
Exit Sub
End If

«Créer un nouveau mémo de back-end
Réglez docMail = dbMail.CreateDocument
docMail.Form = "Memo"
docMail.Subject = "Bonjour"
Réglez rtitem = New NotesRichTextItem (docMail, "Corps")
Appelez rtitem.AppendText ("Bonjour tout le monde!")
Appelez rtitem.AddNewline (1)
Appelez la méthode Update rtitem.Update 'est nouveau dans ND6

«Désactiver la signature dans le courrier des utilisateurs profil
Réglez docProfile = dbMail.GetProfileDocument ("CalendarProfile")
strProfileEnableSignature = docProfile.EnableSignature (0)
Si strProfileEnableSignature = "1" Puis
docProfile.EnableSignature = ""
Appelez docProfile.Save (True, False)
End If

«Voir note de service à l'assurance-chômage / frontal
Réglez uidoc = workspace.EditDocument (True, docMail,,, True, True)

«Réactiver la signature dans le courrier des utilisateurs profil
Si strProfileEnableSignature = "1" Puis
docProfile.EnableSignature = "1"
Appelez docProfile.Save (True, False)
End If

Vue 13570 fois par 4290 spectateurs

Il note

Masquer Sites