Enviar correo Outlook
Posted: Thu Apr 24, 2014 6:42 am
Hola,
Tengo la necesidad de extraer/imprimir los adjuntos del correo (solamente archivos pdf), tengo algo como esto:
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
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
Alguna idea...?.
Gracias.
Saludos,
Javier