Envio de Mail con mas de una direccion

17/12/2003 - 20:05 por Ezequiel | Informe spam
Hola grupo, estoy haciendo un programa que envia unos mail
automaticamente, pero si coloca las direcciones de mail de
esta forma ver ejemplo, solo le llega a la primera
direccion de mail y no a las demas.

Ej --> direcc1@hotmail.com;direcc2@hotmail.com;etc

Conocen como seria la forma de separar las direcciones
muchas gracias.
 

Leer las respuestas

#1 Luis María Guayán
17/12/2003 - 20:29 | Informe spam
No aclaras como envias el mai, si mediante los controles MAPI,
Automatización, etc..

Si es Automatizanzo Outlook, puedes mirar este artículo de PortalFox donde
el ejemplo tiene la forma de enviar a "n" destinatarios:
Enviado por: LuisMaria
http://www.portalfox.com/article.php?sid6


Si es con los controles MAPI.Messages, te pongo un pedazo de código de
ejemplo:

Debes ir incrementando la propiedad RecipIndex de 0 (cero) al numero de
destinatarios - 1

Por ejemplo lleno un vector con cada uno de los destinatarios y tipos:
* Datos de los destinatarios
* TO (Destino)
lnDesde = 0
DIMENSION laTO(3)
laTO(1) = ""
laTO(2) = ""
laTO(3) = ""
FOR lnI = 1 TO ALEN(laTO)
THISFORM.oMensajes.RecipIndex= lnI - 1 + lnDesde
THISFORM.oMensajes.RecipAddress = laTO(lnI)
THISFORM.oMensajes.RecipDisplayName = laTO(lnI)
THISFORM.oMensajes.ResolveName
THISFORM.oMensajes.RecipType = 1
ENDFOR
lnDesde = lnDesde + ALEN(laTO)

* CC (Con Copia)
DIMENSION laCC(2)
laCC(1) = ""
laCC(2) = ""
FOR lnI = 1 TO ALEN(laCC)
THISFORM.oMensajes.RecipIndex= lnI - 1 + lnDesde
THISFORM.oMensajes.RecipAddress = laCC(lnI)
THISFORM.oMensajes.RecipDisplayName = laCC(lnI)
THISFORM.oMensajes.ResolveName
THISFORM.oMensajes.RecipType = 2
ENDFOR
lnDesde = lnDesde + ALEN(laCC)

* BCC (Con Copia Oculta)
DIMENSION laBCC(2)
laBCC(1) = ""
laBCC(2) = ""
FOR lnI = 1 TO ALEN(laBCC)
THISFORM.oMensajes.RecipIndex= lnI - 1 + lnDesde
THISFORM.oMensajes.RecipAddress = laBCC(lnI)
THISFORM.oMensajes.RecipDisplayName = laBCC(lnI)
THISFORM.oMensajes.ResolveName
THISFORM.oMensajes.RecipType = 3
ENDFOR
lnDesde = lnDesde + ALEN(laBCC)

Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos

"Ezequiel" escribió en el mensaje
news:003a01c3c4d0$c00b6600$
Hola grupo, estoy haciendo un programa que envia unos mail
automaticamente, pero si coloca las direcciones de mail de
esta forma ver ejemplo, solo le llega a la primera
direccion de mail y no a las demas.

Ej --> ;;etc

Conocen como seria la forma de separar las direcciones
muchas gracias.

Preguntas similares