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

最新推荐文章于 2025-04-21 14:48:43 发布

sh18

最新推荐文章于 2025-04-21 14:48:43 发布

阅读量1.9k

点赞数

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

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

版权

WSH 专栏收录该内容

3 篇文章

订阅专栏

不安装 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.