【发布时间】:2017-05-30 17:21:51
【问题描述】:
我需要向单个/多个用户发送 SMS,以防在执行 UFT 自动化脚本时出现任何故障。 我已使用以下代码并将 smtp 服务器名称更新为我在 Outlook 帐户设置中找到的名称。以下代码失败并出现错误“至少需要一个收件人,但没有找到”。
请帮我解决这个问题。另请注意,由于访问限制,我无法使用任何免费的 SMS API
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Test Failed"
objMessage.Sender = "test@domain.com"
objMessage.To = "+91XXXXXXXXXX"
objMessage.TextBody = "Test XYZ failed at: " & Now
'Configuration information for the remote SMTP server.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Server
name"
'Server port
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.Send
Set objMessage = Nothing
【问题讨论】:
-
有没有办法从 vbscript 中的 office communicator API 发送短信?
标签: vba vbscript outlook qtp hp-uft