Public Sub SendMail(IPstr)
Dim oMSG
Dim oConfig
Dim CFields
Dim strBody
'создаем объект Message это наше письмо
Set oMSG = CreateObject("CDO.Message")
'создаем объект Configuration это настройки соединения
Set oConfig = CreateObject("CDO.Configuration")
Set CFields = oConfig.Fields
Set oMSG.Configuration = oConfig
CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") =  2 
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxx.xx" 'адрес SMTP сервера
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =  1 
CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxxxxx" 'Login
CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxxxx" 'пароль
CFields("urn:schemas:mailheader:content-language") = "windows-1251"
CFields.Update
oMSG.To = " xxxx@xx.xx" 'адрес получателя
oMSG.From = "xxx <xxxxx@xxxx.xx>;" 'адрес отправителя
oMSG.Subject = "Пороверка CDO" ' тема письма
oMSG.BodyPart.Charset = "windows-1251" ' кодировака письма
'oMSG.AddAttachment "c:\xxx.xxx" 'путь к вложенному файлу
'формируем HTML текст который будет телом письма
strBody = "Дата/Время-" & Now & VbCrLf & "IP аддресс=" & IPstr

oMSG.HTMLBody = strBody 'тело письма
oMSG.send 'отправляем
'обнуляем переменные
Set CFields = Nothing
Set oConfig = Nothing
Set oMSG = Nothing
end sub

DIM IPaddress
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = False
objIE.Navigate "http://www.ip-adress.com"
While objIE.Busy
    WScript.Sleep  200 
Wend

Set TAG = objIE.Document.getElementByID("location")
ST = TAG.innerHTML
IPaddress = Mid(ST, InStr( 1 , ST, "My IP address:") +  19 ,  18 )
IPaddress = Mid(IPaddress,  5 , InStr( 1 , IPaddress, "<") -  5 )

Call SendMail(IPaddress)