文章编号: 197920 - 最后修改: 2007年8月8日 - 修订: 3.6

为发送电子邮件的 HOWTO： Windows 脚本宿主脚本

逐句中英文参照视图点击这里查看逐句中英文对照机器翻译
机器翻译查看机器翻译免责声明
查看本文应用于的产品
系统提示此文章适用于与您所使用的操作系统不同的操作系统。文章内容可能与您无关，并且已被禁用。
展开全部 | 关闭全部

概要

这是如何自动执行通过 Microsoft Outlook 发送邮件的一个简单的 VBScript 示例。
回到顶端

更多信息

本示例将工作活动服务器页面 (ASP) 页中或在 Windows 脚本宿主 (WSH)，只要在系统上没有有效的 Outlook 用户配置文件。此用户配置文件将出现在该字段中的生成的邮件。它就可能设置仅用于发送自动的消息一个配置文件。

使用 WSH 使用以下步骤：

将下面列出带有.vbs 扩展名的文件到代码保存。若要测试，双击该文件在 Windows 资源管理器中。

如果使用的 Windows 95，您需要从下面的 Web 站点，以启用 Windows 脚本宿主安装 Wsh.exe：
http://msdn2.microsoft.com/en-us/library/ms950396.aspx (http://msdn2.microsoft.com/en-us/library/ms950396.aspx)
与 ASP 一起使用以下步骤：

假设您正在使用活动服务器页面扩展服务器安装在 Web 上保存它，您可以只是直接插入一个 ASP 页包含代码或将其保存在文件中，您需要邮寄的能力的任何 ASP 页中包含该文件。

使用以下两种方法为：

不要忘记更改收件人和登录信息。该登录必须是有效的 Outlook 用户配置文件。 

   'Body of email message
   Dim msgBody
   msgBody="A mail from the Windows Script Host!"

   'Call our function with recipient, message and subject
   MySendMail "someone@example.microsoft.com",msgBody,"Automated Message."

   Sub MySendMail(recipient,msg,subject)
       Dim objSession, oInbox, colMessages, oMessage, colRecipients

       Set objSession = CreateObject("MAPI.Session")
       objSession.Logon "A Valid User Profile"

       Set oInbox = objSession.Inbox
       Set colMessages = oInbox.Messages
       Set oMessage = colMessages.Add()
       Set colRecipients = oMessage.Recipients

       colRecipients.Add recipient
       colRecipients.Resolve

       oMessage.Subject = subject
       oMessage.Text = msg
       oMessage.Send

       objSession.Logoff
       Set objSession = nothing

   End Sub
注： 如果要从一个服务的上下文中运行这些脚本，查看文章 Q177851 在下面的参考部分中。
回到顶端

参考

191430? (http://support.microsoft.com/kb/191430/EN-US/ ) NT 计划程序从运行 WSH 文件
177851? (http://support.microsoft.com/kb/177851/EN-US/ ) 生成要运行的服务的消息 VB/应用
有关这里讨论的技术的详细信息，请参阅"入门教程与 ASP 消息"MSDN Online 中的文章：

http://msdn.microsoft.com/en-us/library/ms972348.aspx (http://msdn.microsoft.com/en-us/library/ms972348.aspx)
回到顶端
这篇文章中的信息适用于:
  • Microsoft Windows Scripting Host 2.5
  • Visual Basic，Scripting Edition 3.0
  • Microsoft Windows NT 4.0
  • Microsoft Windows 95
  • Microsoft Windows 98 Standard Edition
回到顶端
关键字：?
kbmt kbautomation kbhowto kbscript KB197920 KbMtzh
回到顶端
机器翻译机器翻译
注意：这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇，语法或文法的问题，就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量，但是我们不保证机器翻译的正确度，也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版： 197920? (http://support.microsoft.com/kb/197920/en-us/ )
回到顶端
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性，不作任何声明。 所有该等文件及有关图形均"依样"提供，而不带任何性质的保证。Microsoft和/或其各供应商特此声明，对所有与该等信息有关的保证和条件不负任何责任，该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下，在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中，Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。