Comment puis-je mettre en gras la police dans les notes Lotus lors de la génération d'un courrier électronique à partir d'Access 2003?

Question

Je cours Access 2003 et ai créé un module qui envoie un email aux destinataires de la base de données dans Lotus Notes. Cela fonctionne très bien, mais maintenant, on m'a demandé de "gras" texte spécifique dans l'e-mail afin qu'il soit plus facile à lire sur leurs BlackBerry. Quelqu'un peut-il m'aider à formater le texte? Je ne sais pas comment faire .... Voici le code que je utilise:

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 

Et:

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 

Ce que je ci-dessus est indiquée en gras ce qui veut ma direction à voir en gras dans l'email. Quelqu'un peut-il me diriger dans la bonne direction sur la façon dont je peux accomplir cela?

Answer 1

Salut essayez de regarder en utilisant la classe NotesRichTextStyle, ci-dessous est l'exemple de l'aide du concepteur:

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 

Voici un lien vers l'aide ->http://www-12.lotus.com/ldd/doc/domino_notes/7.0/help7_designer.nsf/2e73cbb2141acefa85256b8700688cea/7aebd0afd95906568525704a0040fc50?OpenDocument