问题描述
我对 Lotus Script 或 Notes/Domino 知之甚少，但我有一个程序，是很久以前从某个地方复制的，它允许我从 VBA 通过 Notes 发送电子邮件.我通常只将它用于格式并不重要的内部通知.
I have little Lotus Script or Notes/Domino knowledge but I have a procedure, copied from somewhere a long time ago, that allows me to email through Notes from VBA. I normally only use this for internal notifications where the formatting hasn't really mattered.
我现在想用它来向客户发送外部电子邮件，企业类型更希望电子邮件符合我们的风格指南(基本上是无衬线字体).
I now want to use this to send external emails to a client, and corporate types would rather the email complied with our style guide (a sans-serif typeface basically).
我正要告诉他们该代码仅适用于纯文本，但后来我注意到该例程确实引用了某种 CREATERICHTEXTITEM 对象.这是否意味着我可以将某种格式应用于正文字符串之后 已传递到邮件例程?除了维护我们宝贵的品牌价值外，这对我在电子邮件中突出显示某些段落非常方便.
I was about to tell them that the code only works with plain text, but then I noticed that the routine does reference some sort of CREATERICHTEXTITEM object. Does this mean I could apply some sort of formatting to the body text string after it has been passed to the mail routine? As well as upholding our precious brand values, this would be quite handy to me for highlighting certain passages in the email.
我对网络进行了深入研究，以查看是否可以修改此代码，但不熟悉 Notes 的对象模型，而且在线 Notes 资源似乎反映了应用程序自身的迟钝性，这意味着我没有"走得很远.
I've had a dig about the 'net to see if this code could be adapted, but being unfamiliar with Notes' object model, and the fact that online Notes resources seem to mirror the application's own obtuseness, meant I didn't get very far.
代码:
Sub sendEmail(EmailSubject As String, EMailSendTo As String, EMailBody As String, MailServer as String)
Dim objNotesSession As Object
Dim objNotesMailFile As Object
Dim objNotesDocument As Object
Dim objNotesField As Object
Dim sendmail As Boolean
'added for integration into reporting tool
Dim dbString As String
dbString = "mail" & Application.UserName & ".nsf"
On Error GoTo SendMailError
'Establish Connection to Notes
Set objNotesSession = CreateObject("Notes.NotesSession")
On Error Resume Next
'Establish Connection to Mail File
Set objNotesMailFile = objNotesSession.GETDATABASE(MailServer, dbString)
'Open Mail
objNotesMailFile.OPENMAIL
On Error GoTo 0
'Create New Memo
Set objNotesDocument = objNotesMailFile.createdocument
Dim oWorkSpace As Object, oUIdoc As Object
Set oWorkSpace = CreateObject("Notes.NotesUIWorkspace")
Set oUIdoc = oWorkSpace.CurrentDocument
'Create 'Subject Field'
Set objNotesField = objNotesDocument.APPENDITEMVALUE("Subject", EmailSubject)
'Create 'Send To' Field
Set objNotesField = objNotesDocument.APPENDITEMVALUE("SendTo", EMailSendTo)
'Create 'Copy To' Field
Set objNotesField = objNotesDocument.APPENDITEMVALUE("CopyTo", EMailCCTo)
'Create 'Blind Copy To' Field
Set objNotesField = objNotesDocument.APPENDITEMVALUE("BlindCopyTo", EMailBCCTo)
'Create 'Body' of memo
Set objNotesField = objNotesDocument.CREATERICHTEXTITEM("Body")
With objNotesField
.APPENDTEXT emailBody
.ADDNEWLINE 1
End With
'Send the e-mail
Call objNotesDocument.Save(True, False, False)
objNotesDocument.SaveMessageOnSend = True
'objNotesDocument.Save
objNotesDocument.Send (0)
'Release storage
Set objNotesSession = Nothing
Set objNotesMailFile = Nothing
Set objNotesDocument = Nothing
Set objNotesField = Nothing
'Set return code
sendmail = True
Exit Sub
SendMailError:
Dim Msg
Msg = "Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
sendmail = False
End Sub推荐答案
简短的回答是肯定的.长答案是痛苦的.没有任何优秀的类可以用来操作 Notes 中的富文本项.但是，您可以研究的几个是 NotesRichTextStyle、NotesRichTextParagraphStyle 和 NotesRichTextTable 等等.这些类帮助您定义一些富文本元素并以编程方式将它们添加到您的富文本字段中.
The short answer is Yes. The long answer is painful. There aren't any great classes exposed to manipulate rich text items in Notes. However a few that you can research are the NotesRichTextStyle, NotesRichTextParagraphStyle, and NotesRichTextTable to name a few. These classes help you define some rich text elements and add them programmatically to your rich text field.
另一种方法，因为您要发送电子邮件，所以使用 NotesMIMEEntity 类并使用 HTML 构建电子邮件(方法更简单).下面是一些示例代码:
Another approach, since you're sending email, is to use the NotesMIMEEntity classes and build the email using HTML (way way easier). Here's some sample code:
Set s = New NotesSession
Dim docMail As NotesDocument
Dim body As NotesMIMEEntity
Dim stream As NotesStream
Set db = s.CurrentDatabase
s.ConvertMIME = False ' Do not convert MIME to rich text
'Create email to be sent
Set docMail = db.CreateDocument
With docMail
.SendTo = SEND TO ADDRESS
.From = FROM ADDRESS
.Principal = FROM ADDRESS
.ReplyTo = REPLY TO ADDRESS
.Subject = SUBJECT
.Form = "Memo"
End With
Set stream = s.CreateStream
Set body = docMail.CreateMIMEEntity
Call stream.WriteText ("YOUR HTML CODE GOES HERE")
'ENC_IDENTITY_8BIT used because of technote found on notes.net
'http://www-10.lotus.com/ldd/nd6forum.nsf/55c38d716d632d9b8525689b005ba1c0/aeedaf28e47546ad85256f6a000a4b48?OpenDocument
Call body.SetContentFromText (stream, "text/html;charset=iso-8859-1",ENC_IDENTITY_8BIT)
Call docMail.Send(False)
Set docMail = Nothing
Set body = Nothing
Set stream = Nothing
s.ConvertMIME = True ' Restore conversion
基本上，您需要在 NotesSession 中关闭 ConvertMIME 设置.然后创建一个新文档，设置邮件属性等.该部分已经在您的 VBA 代码中.接下来，创建 MIMEEntity 和一个流来保存您的 HTML 文本.最后在您的 MIMEEntity 对象上调用 SetContentFromText 方法.然后发送您的电子邮件.请注意，最后一次调用是为 NotesSession 重新打开 ConvertMIME 功能.
Essentially you'll need to turn the ConvertMIME setting off in the NotesSession. Then create a new document, set the mail properties, etc. That part is already in your VBA code. Next, create the MIMEEntity and a stream to hold your HTML text. Finally call the SetContentFromText method on your MIMEEntity object. Then send your email. Note the last call is to turn the ConvertMIME feature back on for the NotesSession.
我不确定这是否都可以通过 COM 运行，但它在 Notes 中的 LotusScript 代理中运行良好.
I'm not sure if this will all work via COM, but it does work well in LotusScript agents in Notes.
我希望这会有所帮助！
这篇关于从 Excel VBA 发送格式化的 Lotus Notes 富文本电子邮件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！