19/07/2005, 13:11
|
 | | | Fecha de Ingreso: mayo-2003 Ubicación: Panama city, Panama, Panama
Mensajes: 1.154
Antigüedad: 21 años, 10 meses Puntos: 5 | |
Código:
sub SendEmail(de, para, asunto, mensaje)
Set MyCDONTSMail2 = CreateObject("CDONTS.NewMail")
MyCDONTSMail2.From = de
MyCDONTSMail2.To = para
MyCDONTSMail2.Subject = asunto
MyCDONTSMail2.BodyFormat = 0
MyCDONTSMail2.MailFormat = 0
MyCDONTSMail2.Body = mensaje
MyCDONTSMail2.Send
set MyCDONTSMail2 = nothing
end sub
mira, esta función funciona perfectamente.
__________________
Saruman
One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them. |