Archivo adjunto duplicado en Mail
Publicado: Mié Ene 26, 2022 12:05 pm
Hola a todos:
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.
Gracias de antemano por vuestra ayuda
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")