不安装 SMTP 服务发送电子邮件[WSH][企业脚本]

最新推荐文章于 2025-08-08 21:58:17 发布

sh18

最新推荐文章于 2025-08-08 21:58:17 发布

阅读量1.9k

点赞数

CC 4.0 BY-SA版权

分类专栏： WSH 文章标签：脚本 microsoft scripting service server email

本文链接：https://blog.youkuaiyun.com/sh18/article/details/21394

WSH 专栏收录该内容

3 篇文章

订阅专栏

博客介绍了不安装 SMTP 服务发送电子邮件的方法，提供了使用 CDO 从未安装 SMTP 服务的计算机发送邮件的演示脚本，该脚本适用于微软企业网络，还给出了在线支持社区及反馈渠道。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

不安装 SMTP 服务发送电子邮件[WSH][企业脚本]

Send Email without Installing the SMTP Service

Description

Demonstration script that uses CDO to send email from a computer where the SMTP Service has not been installed. Designed to work on Microsoft's corporate network.

Script Code

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "admin1@fabrikam.com"
objEmail.To = "admin2@fabrikam.com"
objEmail.Subject = "Server down" 
objEmail.Textbody = "Server1 is no longer accessible over the network."
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
        "smarthost" 
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send

For online peer support, join the microsoft.public.windows.server.scripting community on the msnews.microsoft.com news server. To provide feedback or report bugs in sample scripts or the Scripting Guide, please contact Microsoft TechNet.