Adjuntar varios archivos a un mismo mail

Hola.
Con el siguiente codigo puedo colocar un mail en la bandeja de salida del
outlook con un archivo adjunto, pero como hago para poner dos?? Que tengo
que cambiar??

Local pcPara, pcAsunto, pcCuerpo, paFichEnviar, plMostrarDialogo

IF EMPTY(pcPara)
pcPara = "jrossi70@hotmail.com"
ENDIF

IF EMPTY(pcAsunto)
pcAsunto = "<Asunto>"
ENDIF

IF EMPTY(pcCuerpo)
pcCuerpo = "Prueba"
ENDIF

IF EMPTY(paFichEnviar)
paFichEnviar = ""
ENDIF

LOCAL oform
oform = CreateObject("form")
oform.addobject("Session1","olecontrol","MSMAPI.mapiSession")

IF TYPE('oform.Session1') <> 'O'
MESSAGEBOX('No se ha podido instanciar la aplicación de correo.', 64,
'Atención')
RELEASE oform
RETURN .F.
ENDIF

oform.addobject("Message1","olecontrol","MSMAPI.mapiMessages")

IF TYPE('oform.Message1') <> 'O'
MESSAGEBOX('No se ha podido instanciar la aplicación de correo.', 64,
'Atención')
RELEASE oform
RETURN .F.
ENDIF

oform.Session1.LogonUI = .t.

*- Si no se pone la propiedad a .F. y en OUTLOOK está puesto trabajar sin
conexión
*- se cuelga
oform.Session1.DownloadMail=.f.

oform.Session1.signon
oform.Message1.sessionid = oform.Session1.sessionid

oform.Message1.compose
oform.Message1.RecipDisplayName = pcPara
oform.Message1.msgsubject = pcAsunto
oform.Message1.msgnotetext = pcCuerpo

*- Si no es un array, lo crea
IF TYPE('paFichEnviar[1]') = 'U'
LOCAL lcFileEnviar
lcFileEnviar = paFichEnviar
DIMENSION paFichEnviar(1)
paFichEnviar(1) = lcFileEnviar
ENDIF

LOCAL lnContFiles
lnContFiles = 1

FOR lnCount = 1 TO ALEN(paFichEnviar,1)
*- Si existen los archivos
IF FILE(paFichEnviar(lnContFiles))
oform.Message1.AttachmentIndex = lnContFiles - 1
oform.Message1.AttachmentPathName = paFichEnviar(lnContFiles)
oform.Message1.AttachmentPosition = lnContFiles - 1
lnContFiles = lnContFiles + 1
ENDIF
ENDFOR

oform.Message1.send(plMostrarDialogo)
oform.Session1.signoff

release oform