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