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