Correo en VFP 7.0

brigi
28 de Enero del 2003
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

Eu
28 de Enero del 2003
intenta añadir:
.AttachmentPosition = lncontfiles-1
a mi esto funciona bién