crear un objeto CDONTS para el envio de 3 correo a la vez??

Gaby_Corr · #1 (**permalink**) 15/10/2007, 09:49

Hola que tal, tengo una duda, estoy enviando un formulario por correo atravez de CDONTS, pero ahora tengo la situacion de enviar a 3 correos distintos con distintos cuerpo de mensajes al mismo tiempo, pero no se si deba crear 3 distintos Server.CreateOBject() o si con una vez que lo genere lo puede enviar las 3 veces o las que necesite

saludos

JuanRAPerez · #2 (**permalink**) 15/10/2007, 10:36

metelos en un for
y cuando sea 1 mandas em lmail 2
cuiando sea 2 mandas el mail 2
y cuando sea 3 mandas el mail 3

con un solo objeto seteado

syerte

Gaby_Corr · #3 (**permalink**) 15/10/2007, 12:57

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?

Shiryu_Libra · #4 (**permalink**) 15/10/2007, 13:27

y por que no lo conviertes a funcion parametrizada, y en ves de IF, utilizar el select case

por ejemplo, tus IF anidados, en select

Código PHP:

  for contador = 1 To 3 Step 1
    select case contador
        case 1
            sRecipient = "[email protected]"
            sAsunto = "Registro # " & nregistro & " " & NEmpresa & "-" & sNdistrib
            cuerpo = "<html><body><strong>Usted acaba de registrar:</strong> <br /><br /> "
            cuerpo = cuerpo ....
        case 2
            sRecipient = correo1
            sAsunto = "Oportunidad de Negocio # " & nregistro & " " & NEmpresa
        case 3 
            sRecipient = Email
    end select
next

ya que puede ser que no nomas sean 3, a lo mejor 4 o 6... etc, respecto a la funcion, algo asi

Código PHP:

  Function SendMails(para,asunto,mensaje)
Set objMail = Server.CreateOBject("JMail.Message")
with objMail
    .Logging = true
    .silent = true
    .From = "Correo-Generado-por-Website@asacom"
    .FromName = "Correo generado por Website"
    .AddRecipient para
    .Subject = asunto
    .HTMLBody = mensaje
    .Send("usuario")
end with
Set objMail = Nothing

End Function

y lo mandarias llamar cada ves que salga de la evaluacion del SELECT

Código PHP:

  for vueltas = 0 to 10 step 1
select case vueltas
case 1
....
case 2
.
.
.
end select
call SendMails(parametro1,parametro2,parametro3)
next

bueno, algo asi seria mas rapido

saludos

Gaby_Corr · #5 (**permalink**) 15/10/2007, 14:23

=O bueno intentare con el select case y luego ya con lo de la funcion, ya que eso de las funciones no se me dan mucho, aunque creo que seria lo mejor =)

gracias a los dos =) !!

un saludo

Gaby_Corr · #6 (**permalink**) 15/10/2007, 14:34

mm en la funcion, el orden de los parametros es como se los vas a mandar en la llamada y al momento en que los defines verdad??

Shiryu_Libra · #7 (**permalink**) 15/10/2007, 15:34

asi es, puedes modificar el como llamar, seria a creatividad tuya, solo es para hacer referencia entre variables para completar la funcion.

sale

Gaby_Corr · #8 (**permalink**) 15/10/2007, 16:46

ah ok ok, oye y al hacerlo funcion con parametros lo puedo poner en un archivo llamado funciones.asp y de ahi llamarlas donde las necesite solo agregando el include a cada pagina y llamarlas con call funcion , cierto?

Gaby_Corr · #9 (**permalink**) 15/10/2007, 17:31

ya me kedo! gracias!!

Gaby_Corr · #10 (**permalink**) 15/10/2007, 17:42

otra pregunta,

si en mi funcion asi la definí:
Function enviarMail(fnombre,para,asunto,mensaje)

y la mando llamar de esta forma:

call enviarMail(Nombre,Para,Asunto,Cuerpo)

asi esta bien, no importa si le cambio el nombre a las variables en la llamada a la funcion enviarMail() o si ?

Shiryu_Libra · #11 (**permalink**) 16/10/2007, 10:03

de hecho no, ya que lo que realmente importa, es la forma en que pones tus variables dentro de la funcion, y efectivamente, puedes poner tu funcion dentro de alguna pagina de tipo include, para su posterior uso

y que bueno que ya te quedo