vba - VB宏无需打开Lotus notes即可发送邮件
问题描述
我想在不打开 Lotus Notes UI 的情况下使用 vbscript 发送邮件。我设法编写了一个脚本,允许发送带有附件的电子邮件,一切正常。但是,当我运行宏时会启动应用程序,并且我希望它静默工作(不启动应用程序)。
这是我的代码:
Dim noSession As Object
Dim noDatabase As Object
Dim noDocument As Object
Dim paths() As String
'Instantiate the Lotus Notes COM's Objects.
Set MailSession = CreateObject("Notes.NotesSession")
Set MailDatabase = MailSession.GetDatabase("", "")
'If Lotus Notes is not open then open the mail-part of it.
If MailDatabase.IsOpen = False Then MailDatabase.OPENMAIL
'Create the list of recipients.
vaRecipients = VBA.Array(EmailTo)
vaCCRecipients = VBA.Array(EmailCC)
vaBCCRecipients = VBA.Array(EmailBCC)
Set MailDoc = MailDatabase.CreateDocument
MailDoc.Form = "Memo"
MailDoc.sendTo = vaRecipients
MailDoc.CopyTo = vaCCRecipients
MailDoc.BlindCopyTo = vaBCCRecipients
MailDoc.Subject = Subject
MailDoc.Body = Body
MailDoc.SAVEMESSAGEONSEND = True
MailDoc.ReplyTo = Sender
MailDoc.SMTPOriginator = Sender
MailDoc.Sender = Sender
MailDoc.principal = Sender
MailDoc.inetprincipal = Sender
MailDoc.from = Sender
MailDoc.inetfrom = Sender
MailDoc.displayfrom = Sender
paths = Split(AttachmentPaths, ";")
Dim richTextItem As Object
Dim AttachmentPath As String
For i = LBound(paths()) To UBound(paths())
AttachmentPath = paths(i)
Set richTextItem = MailDoc.CreateRichTextItem("Attachment" & i)
Call richTextItem.EmbedObject(1454, "", AttachmentPath)
Next i
MailDoc.Send 0, vaRecipients
'Release objects from memory.
Set noDocument = Nothing
Set noDatabase = Nothing
Set noSession = Nothing
MsgBox "The e-mail has successfully been created and distributed", vbInformation
问题是每次我运行宏时都会启动 Lotus notes UI,因为这行:
If MailDatabase.IsOpen = False Then MailDatabase.OPENMAIL
解决方案
您认为 OPENMAIL 是客户端打开的原因是错误的。
真正的问题是您对基于 OLE 的对象类“Notes.NotesSession”的使用。如果你真的想在不打开 notes-Client 的情况下离开,你需要使用基于 COM 的对象类“Lotus.NotesSession”或“Domino.NotesSession”。
问题是:使用 Lotus.NotesSession 时,您需要自己使用密码初始化会话(您的密码必须在代码中),否则黑色 DOS 提示符会询问您的 Notes-密码。使用“Notes.NotesSession”时,客户端本身用于身份验证。这就是为什么它在运行代码时打开的原因。如果它已经打开,则不会发生任何事情。
您可以查看此旧帖子以获取更多详细信息,其原理仍然正确。
代码几乎与其他类相同,您还需要一个正确安装的 Notes 客户端。你只需要初始化会话而不是仅仅使用它:
Set MailSession = CreateObject("Lotus.NotesSession")
MailSession.Initialize( "yourpassword" )
如果您不输入密码,则会提示您输入密码。
推荐阅读
- django - 如何在 Django 中创建共享模型?
- macos - 运行:打开服务器:打开服务:监听 tcp:8086:绑定:地址已在启动 influxdb 时使用
- angular - 使用 --prod --aot 使用相同的代码库构建两个单独的构建
- android - How retrieve data from firebase using query according value?
- c# - 不同视觉树之间的 Caliburn.Micro 动作绑定
- azure - 如何使用现有密钥对从 Azure CLi 创建 VM?
- python - 如何在熊猫中将数组更改为数据框
- javascript - 从 JavaScript 调用 PHP 会阻止 grid.js 工作
- regex - BASH - 替换文件中的正则表达式匹配
- sql-server - then 子句中的空值检查和比较