Como obtener IP y enviar por correo?

[Fastlane]

Para obtener la ip es

cliente_ip = Me.Request.ServerVariables("REMOTE_ADDR")

Como seria para enviar este dato por correo?
Gracias Hasta Luego

[matias_up]

Const cdoOutlookExvbsss = 2
Const cdoIIS = 1

Dim Message

aTo="[email protected]"
Subject="asunto"
TextBody=ip
aFrom="[email protected]"

'Message=CreateObject("CDO.Message")

'Create CDO message object
Set Message = CreateObject("CDO.Message")
With Message
'Load IIS configuration
.Configuration.Load cdoIIS

'Set email adress, subject And body
.To = aTo
.Subject = Subject
.TextBody = TextBody

'Set sender address If specified.
If Len(aFrom) > 0 Then .From = aFrom

'Send the message
.Send
End With
if err.number=0 then
Response.Write "Enviado"
else
Response.Write "Falló"
end if