ברצוני להוסיף לקוד זה את האפשרות הבאה:

אחרי שהאיי פי החיצוני נבדק ואותר, שישלח למייל...

זה הקוד:

const URL = "http://xml.showmyip.com/"
set xmldoc = CreateObject("Microsoft.XMLDOM")
xmldoc.async=false
xmldoc.load(URL)

for each x in xmldoc.documentElement.childNodes
if x.NodeName = "ip" then
myip = x.text
end if
if x.NodeName = "host" then
myhost = x.text
end if
if x.NodeName = "timestamp" then
mytime = x.text
end if
next

myinfo = myip & vbCRLF & myhost & vbCRLF & mytime

למה שלא תנסה לעשות החזרה של הפעולה (במידה והצליחה)
לאיזשהו פקד נסתר בטופס ולשלוח אליך למייל?