Microsoft
Software
Hardware
Network
Question : Need VB code to send out a Lotus Notes e-mail in monospaced font, such as COURIER NEW, not COURIER
How do I set "Courier New" as the font for richStyle.FontNotes?
richStyle.NotesFont=COURIE
R works but COURIER_NEW is not defined.
What I am looking for is a way to set a monospaced font when
composing a Lotus Notes email programmatically in VB. It doesn't
have to be using RichStyle, just the end result is I need a piece
of VB code that sends out a Lotus Notes email in a monospaced
font like COURIER NEW. Any help on this is greatly appreciated.
This almost works but cannot set a monospaced font:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As New NotesDocument(db)
Dim richStyle As NotesRichTextStyle
Dim richText As New NotesRichTextItem(doc, "Body")
Set db = session.CurrentDatabase
Call doc.AppendItemValue ("From", session.UserName)
Call doc.AppendItemValue ("Subject", Inputbox("Subject?"))
Set richStyle = session.CreateRichTextStyl
e
richStyle.NotesFont = FONT_COURIER
richStyle.FontSize = 14
Call richText.AppendStyle(richS
tyle)
newPara = Inputbox ("Paragraph of text for ""Body"" item")
firstPara = True
While newPara <> ""
If firstPara Then
firstPara = False
Else
Call richText.AddNewLine(2)
End If
Call richText.AppendText(newPar
a)
newPara = Inputbox ("Paragraph of text for ""Body"" item")
Wend
End of problem description.
Answer : Need VB code to send out a Lotus Notes e-mail in monospaced font, such as COURIER NEW, not COURIER
You need to use a GetNotesFont call:
richStyle.NotesFont = richText.GetNotesFont("Cou
rier New", True)
Random Solutions
Configuring Incoming Mail to SharePoint w/o Exchange on-site
Secondary Graphics card for PhysX processing with current 9800GTX
My documents folder is missing from profile folder in explorer in Windows 7 Pro 32-bit.
RHCE Exam
Oracle 11g "Alter Session" Error
Windows 7 profile won't delete completely
Order points in rectangle
Dell Poweredge 1800 SBS 2003 reboots at 'Applying Computer Settings'
Building a Where Clause based on Check Box
Forefront TMG source IP address spoofed issue