此脚本(使用 Outlook 发送电子邮件)如何工作?

2024-03-16

谁能帮助我了解 MAPI 的工作原理?我有一个简单的 vbscript,它使用 MAPI 发送电子邮件。它工作得很好,但是,我不知道它是如何做到的......后台发生了什么?

Const ForReading = 1

Set args = WScript.Arguments
sqlFile = args.Item(0)
logFile = args.Item(1)

Dim ToAddress
Dim FromAddress
Dim MessageSubject
Dim MyTime
Dim MessageBody
Dim MessageAttachment
Dim ol, ns, newMail
MyTime = Now

ToAddress = "[email protected] /cdn-cgi/l/email-protection"
MessageSubject = "Subject goes here"
MessageBody = "Body message goes here." 
MessageAttachment = ""&logFile&""
Set ol = WScript.CreateObject("Outlook.Application")
Set ns = ol.getNamespace("MAPI")
Set newMail = ol.CreateItem(olMailItem)
newMail.Subject = MessageSubject
newMail.Body = MessageBody & vbCrLf & MyTime
newMail.RecipIents.Add(ToAddress)
newMail.Attachments.Add(MessageAttachment)
newMail.Send

提前致谢...


您在上面的代码中所做的实际上是使用已安装的 Outlook 版本来发送邮件消息。 Outlook 很可能正在使用 MAPI,但您实际上在此处使用的 API 接口是基于 COM 的 Outlook 自动化。此类代码将利用 Outlook 通过 Outlook 可配置使用的任何邮件传输系统发送电子邮件。然而,仅仅发送一封电子邮件就需要大量的开销。根据您网络上本地的电子邮件服务器或通过的电子邮件服务器,可能有更有效的方式发送电子邮件。但是,如果这工作正常并且满足您当前的需求,请不要认为这意味着按照上面的方式执行此操作有任何问题。这一切都是为了了解您可以使用的工具以及如何最好地将它们应用到您的特定问题领域。

在您的代码中,您控制 Outlook 并告诉它创建电子邮件。您将邮件传递给 Outlook,然后 Outlook 实际上使用配置的配置文件来确定如何将邮件传递给配置的 Exchange 服务器或其他已安装/配置的邮件传输代理 (mta)。

本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)

此脚本(使用 Outlook 发送电子邮件)如何工作? 的相关文章

随机推荐