从 Excel VBA 发送格式化的 Lotus Notes 富文本电子邮件
声明：本页面是StackOverFlow热门问题的中英对照翻译，遵循CC BY-SA 4.0协议，如果您需要使用它，必须同样遵循CC BY-SA许可，注明原文地址和作者信息，同时你必须将它归于原作者（不是我）：StackOverFlow
原文地址: http://stackoverflow.com/questions/686384/
Warning: these are provided under cc-by-sa 4.0 license. You are free to use/share it, But you must attribute it to the original authors (not me):
StackOverFlow
Sending formatted Lotus Notes rich text email from Excel VBA
提问by Lunatik
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.
我对 Lotus Script 或 Notes/Domino 知之甚少，但我有一个程序，是很久以前从某个地方复制的，它允许我通过 VBA 中的 Notes 发送电子邮件。我通常只将它用于格式并不重要的内部通知。
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).
我现在想用它来向客户发送外部电子邮件，公司类型更愿意电子邮件符合我们的风格指南（基本上是无衬线字体）。
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 afterit 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.
我正要告诉他们该代码仅适用于纯文本，但后来我注意到该例程确实引用了某种 CREATERICHTEXTITEM 对象。这是否意味着我可以在将正文字符串传递给邮件例程后对其应用某种格式？除了维护我们宝贵的品牌价值外，这对我在电子邮件中突出显示某些段落非常方便。
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.
我已经对“网络”进行了深入研究，以查看是否可以修改此代码，但不熟悉 Notes 对象模型，而且在线 Notes 资源似乎反映了应用程序自身的迟钝性，这意味着我并没有很了解远的。
The code:
编码：
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
回答by Ken Pespisa
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.
简短的回答是肯定的。长答案是痛苦的。没有任何优秀的类可以用来操作 Notes 中的富文本项。但是，您可以研究的几个是 NotesRichTextStyle、NotesRichTextParagraphStyle 和 NotesRichTextTable 等等。这些类帮助您定义一些富文本元素并以编程方式将它们添加到您的富文本字段中。
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:
另一种方法，因为您要发送电子邮件，所以使用 NotesMIMEEntity 类并使用 HTML 构建电子邮件（方式更简单）。这是一些示例代码：
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
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.
本质上，您需要在 NotesSession 中关闭 ConvertMIME 设置。然后创建一个新文档，设置邮件属性等。该部分已经在您的 VBA 代码中。接下来，创建 MIMEEntity 和一个流来保存您的 HTML 文本。最后在您的 MIMEEntity 对象上调用 SetContentFromText 方法。然后发送您的电子邮件。请注意，最后一次调用是为 NotesSession 重新打开 ConvertMIME 功能。
I'm not sure if this will all work via COM, but it does work well in LotusScript agents in Notes.
我不确定这是否都可以通过 COM 工作，但它在 Notes 中的 LotusScript 代理中工作得很好。
I hope this helps!
我希望这有帮助！
回答by Dan Newton
I like it just the way it is. However, I had to change
dbString = "mail\" & Application.UserName & ".nsf"to
dbString = "mail\" & Application.CurrentUser & ".nsf"
我喜欢它本来的样子。但是，我不得不更改
dbString = "mail\" & Application.UserName & ".nsf"为
dbString = "mail\" & Application.CurrentUser & ".nsf"
First comment: I wish I didn't have to have Lotus Notes open at the time of sending.
第一条评论：我希望我在发送时不必打开 Lotus Notes。
Second comment: I wish I could change who the e-mail is from (ie, if I'm sending a report to 50 people, I want it to be from a generic address, rather than my work address)
第二条评论：我希望我可以更改电子邮件的发件人（即，如果我要向 50 人发送报告，我希望它来自通用地址，而不是我的工作地址）
回答by Greg
To change who it's from, create a generic Notes ID (eg Auto Send/YourCompany) and save the agent with that ID.
要更改它的来源，请创建一个通用的 Notes ID（例如 Auto Send/YourCompany）并使用该 ID 保存代理。
