Dear Rony,

as you asked, I will send you the 2 ideas that Milos and I had and how we realized it:

The first one was: a code for a random inspirational message in word and after a note on Notepad as well with the message “How do you feel?” after the inspirational message.

When you run it in tryrexx in virtual pc, it creates a doc in PC/Documents with a random name and inspirational message and a note on Notepad.

/* Array of random funny names */
names = .array~of("Goofy McGoofface", "Wacky Willy", "Silly Sally", "Jokester Joe", "Quirky Quinn")

/* Array of random funny messages */
messages = .array~of("Wishing you a day full of smiles!", "Stay quirky, it suits you!", "You're a joy to be around!", "Keep spreading the laughter!", "You're one of a kind, and that's awesome!")

/* Pick a random name and message */
nameIndex = random(1, names~size)
msgIndex = random(1, messages~size)
name = names[nameIndex]
msg = messages[msgIndex]

/* Create the greeting */
greeting = "Hey " || name || "!"

/* Create an OLE object for Word */
wordObj = .OLEObject~new("Word.Application")
wordObj~Visible = 1

/* Create a new document */
doc = wordObj~Documents~Add()
selection = wordObj~Selection

/* Add Greeting Text */
selection~TypeText(greeting)
selection~ParagraphFormat~Alignment = 1 /* Center alignment */
selection~Font~Size = 36
selection~Font~Bold = 1

/* Add Message Text */
selection~TypeParagraph()
selection~TypeText(msg)
selection~Font~Size = 24
selection~Font~Italic = 1

/* Save the document */
doc~SaveAs("Funny_Greeting_Card.docx")

/* Create another OLE object */
shellObj = .OLEObject~new("WScript.Shell")
shellObj~Run("notepad.exe")

/* Pause briefly to ensure Notepad is open before sending keys */
call SysSleep 1

/* Write text in Notepad */
shellObj~SendKeys("How do you feel in the moment?")

/* Clean up */
wordObj~Quit()

The second one arrives with the next e-mail.

Cheers!

Milos and Giorgia