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

时间:2012-07-30 16:55:31

标签: vbscript outlook

任何人都可以帮我理解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 = "my@email.com"
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

提前致谢...

1 个答案:

答案 0 :(得分:2)

您在上面的代码中所做的实际上是使用已安装的Outlook版本来发送邮件。 Outlook可能正在使用MAPI,但您实际使用的API接口是基于COM的Outlook自动化。诸如此类的代码将利用Outlook通过Outlook可以配置使用的任何邮件传输系统发送电子邮件。但是,发送电子邮件只需要很多开销。取决于您在网络上可能拥有的本地电子邮件服务器,或者可能有更有效的方式来发送电子邮件。但是,如果这种方法工作正常并且满足您当前的需求,请不要认为这样做会像上面那样做错。这一切都是为了理解可用的工具以及如何最好地将它们应用到您的特定问题空间。

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