Vbscript 从MSXML2.XMLHTTP发送的结果抛出SMTP

Vbscript 从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

我有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 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(日期-时间)如何添加呢?