從Access 2003生成電子郵件時，如何在Lotus Notes中加粗字體？

Question

我正在運行Access 2003並創建了一個模塊，該模塊將電子郵件發送到Lotus Notes中的數據庫中的收件人。它工作得很好，但現在我被要求在電子郵件中「加粗」特定文本，以便更容易閱讀他們的黑莓。任何人都可以幫我格式化文本？我不知道如何做到這一點....這裏是我使用的代碼：

Public Sub SendQtrNotesMail(Subject As String, Recipient As String, WL As String, SQA As String, _ 
DC As String, ADR As String, TDR As String, SafetyNote As String, QualityNote As String, _ 
ProdNote As String, SaveIt As Boolean) 
'Set up the objects required for Automation into lotus notes 
Dim Maildb As Object 'The mail database 
Dim UserName As String 'The current users notes name 
Dim MailDbName As String 'The current users notes mail database name 
Dim MailDoc As Object 'The mail document itself 
Dim Session As Object 'The notes session 
Dim EmbedObj As Object 'The embedded object (Attachment) 
'Start a session to notes 
Set Session = CreateObject("Notes.NotesSession") 
'Get the sessions username and then calculate the mail file name 
'You may or may not need this as for MailDBname with some systems you 
'can pass an empty string or using above password you can use other mailboxes. 
UserName = Session.UserName 
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf" 
'Open the mail database in notes 
Set Maildb = Session.getdatabase("", MailDbName) 
If Maildb.ISOPEN = True Then 
'Already open for mail 
Else 
    Maildb.openmail 
End If 
'Set up the new mail document 
Set MailDoc = Maildb.createdocument 
MailDoc.Form = "Memo" 
MailDoc.sendto = Recipient 
MailDoc.Subject = Subject 
MailDoc.Body = WL & vbCrLf & SQA & vbCrLf & DC & vbCrLf & ADR & vbCrLf & TDR & vbCrLf &vbCrLf & _ 
SafetyNote & vbCrLf & QualityNote & vbCrLf & ProdNote 
MailDoc.SaveMessageOnSend = SaveIt 
'Send the document 
MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items folder 
MailDoc.Send 0, Recipient 
'Clean Up 
Set Maildb = Nothing 
Set MailDoc = Nothing 
Set Session = Nothing 
Set EmbedObj = Nothing 
End Sub 

和：

Sub SendEmail() 
Dim stTotw As String 
Dim HoldWL As String 
Dim HoldSQA As String 
Dim HoldDC As String 
Dim HoldADR As String 
Dim HoldTDR As String 
Dim HoldSafetyNotes As String 
Dim HoldQualityNotes As String 
Dim HoldProdNotes As String 
HoldWL = "WL: " & Forms!frmAMQtr!WL.Value 
HoldSQA = "SQA: " & Forms!frmAMQtr!SQA.Value 
HoldDC = "DC: " & Forms!frmAMQtr!DC.Value 
HoldADR = "A DR: " & Forms!frmAMQtr!ADR.Value 
HoldTDR = "Total DR: " & Forms!frmAMQtr!TDR.Value 
HoldSafetyNotes = "**Safety Issues & Details:"** & Forms!frmAMQtr![subfrmAMQtrNotes].Form!AMSafetyNote.Value 
HoldQualityNotes = "**Quality Issues & Details**: " & Forms!frmAMQtr![subfrmAMQtrNotes].Form!AMQualityNote.Value 
HoldProdNotes = "**Productivity Issues & Details**: " & Forms!frmAMQtr![subfrmAMQtrNotes].Form!AMProdNote.Value 
stTotw = "myboss@abc.com" 
Call SendQtrNotesMail("Test Email", stTotw, HoldWL, HoldSQA, HoldDC, HoldADR, HoldTDR, _ 
HoldSafetyNotes, HoldQualityNotes, HoldProdNotes, True) 

End Sub 

我有什麼粗體以上是我的管理層希望請參閱電子郵件中的粗體字。任何人都可以在正確的方向上指出我如何實現這一目標？

Answer 1

嗨試圖尋找到使用NotesRichTextStyle類，下面是來自設計師的幫助下，例如：

Sub Initialize 
    Dim session As New NotesSession 
    Dim db As NotesDatabase 
    Set db = session.CurrentDatabase 
    Dim doc As New NotesDocument(db) 
    Call doc.AppendItemValue("From", session.UserName) 
    Call doc.AppendItemValue("Subject", _ 
    "Meeting time changed") 
    Dim richStyle As NotesRichTextStyle 
    Set richStyle = session.CreateRichTextStyle 
    Dim richText As New NotesRichTextItem(doc, "Body") 
    Call richText.AppendText("The meeting is at ") 
    richStyle.Bold = True 
    Call richText.AppendStyle(richStyle) 
    Call richText.AppendText("3:00") 
    richStyle.Bold = False 
    Call richText.AppendStyle(richStyle) 
    Call richText.AppendText(" not 2:00") 
    Call doc.Save(True, False) 
End Sub 

這裏是爲了幫助一個鏈接 - >http://www-12.lotus.com/ldd/doc/domino_notes/7.0/help7_designer.nsf/2e73cbb2141acefa85256b8700688cea/7aebd0afd95906568525704a0040fc50?OpenDocument