I'm not sure what you're actually after Creosote but here's the solution I ended up with which retrieves my WAN IP and then emails it to my Hotmail account thru Oulook Express. I then run it everyday in scheduled task.
----------------------------------------------------
Public My_IP As String
Public MY_date As Date
Private Sub Send_My_IP()
Dim b1 As Boolean
Call MessageCall
b1 = False
MAPISession1.SignOn
MAPISession1.DownLoadMail = False
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.Compose
.RecipAddress = "Smee@hotmail.com"
.AddressResolveUI = True
.ResolveName
.MsgSubject = "Home IP at " & Time & " on " & Date
.MsgNoteText = "My home IP is " & My_IP & " on " & Date
.Send False
End With
MAPISession1.SignOff
End Sub
Private Sub Form_Load()
Call Send_My_IP
End
End Sub
Sub MessageCall()
MY_date = Date + Time
My_IP = MessageLoad("www.showmyip.com/simple/")
End Sub
Function MessageLoad(URL As String) As String
Dim IEApp As Object
Dim IEDocument As Object
Dim i As Long
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate URL
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
MessageLoad = IEDocument.Body.innerText
IEApp.Quit
Set IEDocument = Nothing
Set IEApp = Nothing
End Function
--------------------------------------------------------
Outlook Express has to be setup to not prompt you for sending mail.
-Dave-