Correo en VFP 7.0
Hola tengo el siguiente bucle para mandar datos por mail. Solo me funciona cuando tengo un solo fichero a enviar. Cuando tengo varios me falla la instruccion .send
¿me podeis ayudar??
gracias
LOCAL lnContFiles
lnContFiles = 1
FOR lnCount = 1 TO ALEN(xArchivo,1)
If !Empty(xarchivo)
.AttachmentIndex = lncontfiles-1
.AttachmentPathName = xArchivo(lncount)
EndIf
lncontfiles= lncontfiles+1
ENDFOR
.send
Endwith
¿me podeis ayudar??
gracias
LOCAL lnContFiles
lnContFiles = 1
FOR lnCount = 1 TO ALEN(xArchivo,1)
If !Empty(xarchivo)
.AttachmentIndex = lncontfiles-1
.AttachmentPathName = xArchivo(lncount)
EndIf
lncontfiles= lncontfiles+1
ENDFOR
.send
Endwith
