如果我的软件包中出现警告消息,我想向人们发送邮件,当我要求smtp配置详细信息时,有人帮助我如何使用smtp任务组件。
我刚刚在这里提供了以下代码..
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "poorni@xyz.com"
objEmail.To = "poorni@xyz.com
objEmail.Subject = "load processing started"
objEmail.Textbody = "load processing started."
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"tac-mailgate.prod.ds.xyz.com"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
是否可以帮助我配置上面的代码以更简单地发送邮件..
...谢谢
答案 0 :(得分:0)
你的意思是“发送邮件任务”? 你为什么要使用代码?您只需将组件添加到控制流并进行配置即可。它相当紧张。
如果要发送错误电子邮件,可以创建e错误事件处理程序并将任务添加到其中。