23/02/2005, 14:28
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 23 años, 4 meses Puntos: 4 | |
| incluso no es necesario que instales cdonts en win xp porque este ya trae un componente de envio de corrreos llamado cdosys,
la forma de usarla es esta
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "TITULO DEL EMAIL"
objMessage.Sender = "EL QUE MANDA EL MENSAJE"
objMessage.To = "EL QUE LO RECIBE"
ObjMessage.HTMLBody ="CUERPO DEL MENSAJE (EN ESTE CASO HTML)"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SERVIDOR SMTP"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
objMessage.Send
set objmessage=nothing |