Denisse
06 de Enero del 2004

Urgente.... D贸nd epuedo encontrar informaci贸n completa acerca de las propiedades de los comtroles MAPI, en especial el utilizado para enviar correos electr贸nicos con archivos djuntos

sgomez
06 de Enero del 2004

Debes insertar los controles MAPISESSION, y MAPIMESSAGES asignandole el Nombre Sesi贸n y mensajes respectivamente.

El c贸digo adjuntado lo copias en el BOTON de comandos y env铆as tu email.

Es necesario tener configurado el OUTLOOK para que funcione correctamente.

Adem谩s crea la tabla Destin.DBF con el campo EMAIL en donde especificar谩s las direcciones a las que le enviar谩s el archivo.

Suerte ...

rutsal="c:/" && Directiorio archivo="nombre_de_tu_archivo.ext"

mi_archivo=rutsal+archivo

mi_asunto= "Envio de Mi_Archivo FECHA "+dtoc(date())


if !file(mi_archivo) then

mensaje="No se Encontro Archivo"

ntipo= 0 + 48 + 0

messagebox(mensaje,ntipo,gtitulo)

return

endif

ctexto = "Aqu铆 va el Texto." && Cuerpo del Mensaje

oldpath= sys(5)+Sys(2003)


*************

*Especificacndo Datos de Sesion

*------------*

thisform.mensajes.AddressResolveUI= .f.

thisform.sesion.LogonUI = .T.

thisform.sesion.DownloadMail= .F.

thisform.sesion.NewSession= .T.

thisform.sesion.signon

thisform.mensajes.sessionid = thisform.sesion.sessionid


thisform.mensajes.compose

thisform.mensajes.msgsubject = mi_asunto

thisform.mensajes.msgnotetext = ctexto && Cuerpo

selec destin

scan

thisform.mensajes.recipindex=recno()-1

thisform.mensajes.RecipAddress= allt(email)

endscan

*thisform.mensajes.ResolveName


* Adjuntando Archivos

If Type("mi_archivo") =="C" .and. ! Empty(mi_archivo)

dimension lcAttachment(1)

lcAttachment(1)= mi_archivo

FOR lnCount = 1 TO ALEN(lcAttachment)

thisform.mensajes.AttachmentIndex = lnCount - 1

thisform.mensajes.AttachmentPathName = mi_archivo &&

thisform.mensajes.AttachmentPosition = lnCount - 1

ENDFOR

Endif

close database

thisform.mensajes.send(.t.)

thisform.sesion.signoff

set defa to &oldpath