Estoy enviando archivos adjuntos usando TCDOMail.
Cuando envio un solo mail, funciona bien, pero cuando envio un bloque de mails con sus archivos adjuntos, el cliente del primer mail recibe 1 archivo adjunto, el cliente del segundo mail, recibe 2 archivos adjuntos, (el suyo y el anterior), el tercer cliente recibe 3 archivos adjuntos (el suyo y los anteriores) y asi con todos.
No se porque lo hace, adjunto el codigo que estoy usando de pruebas.
Código: Seleccionar todo
Local aArchivo
Local cRutaPDF:= "C:\PDF\"
Local i
aArchivo:= { {"VF11-220900001.pdf","mailcliente1@hotmail.com"},+;
{"VF11-220900003.pdf","mailcliente2@hotmail.com"},+;
{"VF11-220900004.pdf","mailcliente3@hotmail.com"} }
WITH OBJECT TCDOMail():New():Create()
// Datos de la conexion
// --------------------------
:cFrom:= "mimail@dominio.com"
:cServer:= "smtp.dominio.com"
:cUser:= "mimail@dominio.com"
:cPassword:= "123456"
:nPort:= 587
:lAuthenticate:= .t.
:cSubject:= "Envio documentacion"
:cMessage:= "Saludos"
// Envio de mail/s
// --------------------------
FOR i=1 TO Len(aArchivo)
// Destinatario
:cTO:= aArchivo[i,2]
// Archivo adjunto
:aAttachments:= {}
:aAttachments:= { cRutaPDF+aArchivo[i,1] }
// Enviando
IF !:Send()
MsgAlert( "No se pudo enviar el mail","Aviso" )
EXIT
ENDIF
NEXT i
:Destroy() // Elimina el objeto MAIL
END WITH
MsgInfo("Proceso terminado","Aviso")