Vbscript 从MSXML2.XMLHTTP发送的结果抛出SMTP
我有2个脚本1检索我的公共ip并将其显示为MSGBOX 第二次发送邮件时抛出SMTPVbscript 从MSXML2.XMLHTTP发送的结果抛出SMTP,vbscript,smtp,Vbscript,Smtp,我有2个脚本1检索我的公共ip并将其显示为MSGBOX 第二次发送邮件时抛出SMTP Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Home PC IP" objMessage.From = "***********@gmail.com" objMessage.To = "***********@gmail.com" objMessage.TextBody = "*I WANT TO ADD HERE
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Home PC IP"
objMessage.From = "***********@gmail.com"
objMessage.To = "***********@gmail.com"
objMessage.TextBody = "*I WANT TO ADD HERE THE o.responseText From the First Scrip*"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "***********"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "************"
objMessage.Configuration.Fields.Update
objMessage.Send
我希望SMTP将第一个脚本的结果发送给我,无论如何,如何将两者混为一谈
这是为了获得我的公共IP(工作正常)
这是发送邮件抛出SMTP
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Home PC IP"
objMessage.From = "***********@gmail.com"
objMessage.To = "***********@gmail.com"
objMessage.TextBody = "*I WANT TO ADD HERE THE o.responseText From the First Scrip*"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "***********"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "************"
objMessage.Configuration.Fields.Update
objMessage.Send
谢谢只需将响应文本分配给消息正文:
objMessage.TextBody = o.responseText
可以将日期和时间添加到主题中,如下所示:
objMessage.Subject = "Home PC IP (" & Now & ")"
我可以在这个脚本的消息名上添加日期和时间吗?像家庭PC IP(日期-时间)如何添加呢?