Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

create lotus notes mail with smarticon

Status
Not open for further replies.

jimlee

Programmer
Jan 27, 2001
213
GB
Hi,

I am trying to create and edit memo's using smarticons. I have done this before but unfortunately my computer died and I lost my work.

The frustrating thing is that I found a good example of what i needed to do last time (on this site) but this time I can't find one for love nor money, can't find anything on the net either.

If anyone can point me to a decent link I will be very appreciative.

Thanks in advance

jimlad

"There's this thing called being so open-minded your brains drop out." - Richard Dawkins
 
Ok, I figured it out myself so I thought i'd post it incase it's of use to anyone....

This code is for a simple smarticon which creates a document and adds a signature to the body....

Code:
@Command([MailComposeMemo]) ;
@Command([EditGotoField]; "Body");
@Command([EditInsertText];@NewLine);
@Command([EditInsertText];@NewLine);
@Command([EditInsertText];@NewLine);
@Command([EditInsertText];"Many Thanks") ;
@Command([EditInsertText];@NewLine);
@Command([EditInsertText];@NewLine);
@Command([TextSetFontSize];"14");
@Command([TextSetFontFace]; "Albertus MT");
@Command([EditInsertText];"Your Name Here") ;
@Command([EditInsertText];@NewLine);
@Command([TextSetFontColor];[Blue]);
@Command([TextSetFontSize];"10");
@Command([TextSetFontFace]; "Default Sans Serif");
@Command([EditInsertText];"--------------------------------------------------------------");
@Command([TextSetFontSize];"5");
@Command([EditInsertText];@NewLine);
@Command([TextSetFontColor];[Gray]);
@Command([EditInsertText];"Worldwide Your company department / name") ;
@Command([EditInsertText];@NewLine);
@Command([TextSetFontColor];[Blue]);
@Command([TextSetFontSize];"10");
@Command([EditInsertText];"--------------------------------------------------------------")

jimlad

"There's this thing called being so open-minded your brains drop out." - Richard Dawkins
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top