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