15/10/2007, 12:57
|
 | | | Fecha de Ingreso: junio-2005
Mensajes: 672
Antigüedad: 19 años, 11 meses Puntos: 0 | |
| Re: crear un objeto CDONTS para el envio de 3 correo a la vez??
asi lo hice
Código:
dim contador, sRecipient, objMail
Set objMail = Server.CreateOBject("JMail.Message")
objMail.Logging = true
objMail.silent = true
for contador = 1 To 3 Step 1
if contador = 1 then
sRecipient = "[email protected]"
sAsunto = "Registro # " & nregistro & " " & NEmpresa & "-" & sNdistrib
cuerpo = "<html><body><strong>Usted acaba de registrar:</strong> <br /><br /> "
cuerpo = cuerpo ....
end if
if contador = 2 then
sRecipient = correo1
sAsunto = "Oportunidad de Negocio # " & nregistro & " " & NEmpresa
end if
if contador = 3 then
sRecipient = Email
end if
next
objMail.From = "Correo-Generado-por-Website@asacom"
objMail.FromName = "Correo generado por Website"
objMail.AddRecipient sRecipient
objMail.Subject = sAsunto
objMail.HTMLBody = cuerpo
objMail.Send("usuario")
Set objMail = Nothing
algo esta mal?
__________________
" Recuerda , estas donde debes estar ..." |