win8 计划任务 显示消息(已弃用) 怎么开启呀，还有邮件发送的也是显示已弃用。求大神帮忙。谢谢了

发布网友 发布时间：2022-04-24 04:29

我来回答

共1个回答

热心网友 时间：2023-10-28 03:15

可以使用脚本来发送，将如下代码保存为vbs脚本
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "发件人邮箱地址"
Email.To = "收件人邮箱地址"
Email.Subject = "邮件主题"
Email.Textbody = "邮箱内容"
With Email.Configuration.Fields
.Item(NameSpace&"sensing") = 2
.Item(NameSpace&"smtpserver") = "smtp.xxx.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sensername") = "请填写邮箱登录名"
.Item(NameSpace&"sendpassword") = "邮箱密码"
.Update
End With
Email.Send

热心网友 时间：2023-10-28 03:15

可以使用脚本来发送，将如下代码保存为vbs脚本
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "发件人邮箱地址"
Email.To = "收件人邮箱地址"
Email.Subject = "邮件主题"
Email.Textbody = "邮箱内容"
With Email.Configuration.Fields
.Item(NameSpace&"sensing") = 2
.Item(NameSpace&"smtpserver") = "smtp.xxx.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sensername") = "请填写邮箱登录名"
.Item(NameSpace&"sendpassword") = "邮箱密码"
.Update
End With
Email.Send

热心网友 时间：2023-10-28 03:15

可以使用脚本来发送，将如下代码保存为vbs脚本
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "发件人邮箱地址"
Email.To = "收件人邮箱地址"
Email.Subject = "邮件主题"
Email.Textbody = "邮箱内容"
With Email.Configuration.Fields
.Item(NameSpace&"sensing") = 2
.Item(NameSpace&"smtpserver") = "smtp.xxx.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sensername") = "请填写邮箱登录名"
.Item(NameSpace&"sendpassword") = "邮箱密码"
.Update
End With
Email.Send

热心网友 时间：2023-10-28 03:15

可以使用脚本来发送，将如下代码保存为vbs脚本
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "发件人邮箱地址"
Email.To = "收件人邮箱地址"
Email.Subject = "邮件主题"
Email.Textbody = "邮箱内容"
With Email.Configuration.Fields
.Item(NameSpace&"sensing") = 2
.Item(NameSpace&"smtpserver") = "smtp.xxx.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sensername") = "请填写邮箱登录名"
.Item(NameSpace&"sendpassword") = "邮箱密码"
.Update
End With
Email.Send