Πώς να αντιγράψει NotesRichTextItem ως Variant

Lotus Notes λογισμικό δίνει στους χρήστες μια σειρά από εργαλεία για τη δημιουργία e-mail , τον προγραμματισμό , τη διαχείριση των πληροφοριών και custom εφαρμογές άμεσων μηνυμάτων. Περιλαμβάνει LotusScript γλώσσα προγραμματισμού με λειτουργίες παρόμοιες με Visual Basic γλώσσα . Ο έλεγχος NotesRichTextItem σε LotusScript αντιπροσωπεύει ένα στοιχείο του Lotus Notes που περιέχει το πλούσιο τύπο κειμένου των δεδομένων . Εάν ένα έγγραφο δεν έχει αποθηκευτεί , το αντικείμενο εμπλουτισμένου κειμένου δεν μπορεί να αντιγραφεί από άλλο πεδίο εμπλουτισμένου κειμένου . Μπορείτε να δημιουργήσετε ένα αντίγραφο του παρόντος εγγράφου άνοιξε με τα πλούσια στοιχεία κειμένου αντιγράφοντας το NotesRichTextItem ως παραλλαγή . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί " Έναρξη " των Windows και στη συνέχεια κάντε κλικ στο κουμπί " Lotus Notes . " 2

Κάντε κλικ στην καρτέλα "Εργαλεία" στο μενού και στη συνέχεια κάντε κλικ στο κουμπί " LotusScript Εκδότης ".
εικόνων 3

Εισάγετε τον παρακάτω κωδικό στο ανοιχτό παράθυρο :

Dim doc Όπως NotesDocument

Dim rtitem Όπως Παραλλαγή

« ... που την αξία του doc ...

Set rtitem = doc.GetFirstItem ( " ProductDescription " )

Εάν rtitem.Type = richtext τότε

Καλέστε rtitem . AddNewLine ( 1 )

Call rtitem.AppendText _

( "Short - sleeved πουκάμισο , πράσινο χρώμα . " )

End If

Καλέστε doc . Αποθήκευση (Ψευδές , Αληθές)

να αντιγράψετε το " Productdescription " στοιχείο εμπλουτισμένου κειμένου από τη βάση δεδομένων του Lotus Notes

ως παραλλαγή .
Η

4 Κάντε κλικ στο " Αρχείο "και στη συνέχεια κάντε κλικ στο κουμπί " Αποθήκευση " για να αποθηκεύσετε το σενάριο με το Lotus Notes εφαρμογή σας .
Η
εικόνων