Enviar correo Outlook

[jparada]

Hola,

Tengo la necesidad de extraer/imprimir los adjuntos del correo (solamente archivos pdf), tengo algo como esto:

Code: Select all

for each oItem in oSubfolder:Items
     for each oAttch in oItem:attachments
         if hb_dtoc ( oItem:ReceivedTime ) = hb_dtoc( frmMain.dFecha.VALUE )
             cFilename := alltrim( cPath ) + oAttch:filename
             oAttch:SaveAsFile( cFilename )
             i := i + 1
         endif
     next
next
	
PrintFiles()
	
procedure PrintFiles( )
   aEval( directory(  alltrim( frmMain.txtcPath.VALUE ) + hb_ps() + "*.pdf"), {| aFile | PrintFile( aFile[F_NAME] ) } )
return

procedure PrintFile( cFileName )
   shellexecute(0, "print", alltrim( frmMain.txtcPath.VALUE ) + hb_ps() + alltrim( cFileName), 0, 0)
return

Esto funciona bien para el tema de extraer los adjuntos, el tema ahora es que una vez que los archivos están en el folder, debo tomar un par de archivos pdf/xml y enviarlos por correo..., cada par de archivos pdf/xml tienen siempre el mismo nombre de archivo, cómo hacer el ciclo para que de todo el contenido del folder vaya tomando el par de archivos y enviarlo por correo.

Alguna idea...?.

Gracias.

Saludos,
Javier