Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Reporte por e-mail
Message
 
To
02/12/2002 15:01:26
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
00728713
Message ID:
00728766
Views:
28
Aqui tienes un ejemplo
set printer to name "WinFax"
** si utilizas el fax del Win2000, set printer to name "Fax"

report form YourReport noconsole to file "somefile.tif"

** ahora ya tienes el fichero. Aqui tienes una muestra como mandar esto
** utilizando MAPI por ejemplo. Tienes que meter en tu pantalla un 
** control MAPISession ( le llamaremos oleSession ) y otro MAPIMessage
** ( le llamaremos oleMessage )
with ThisForm
   .oleMessage.Compose
   .oleMessage.MsgSubject = "Subject of your message"
   .oleMessage.MsgNoteText = "Lo que quieras escribir en tu email body"
   .oleMessage.AttachmentPosition = 0
   .oleMessage.AttachmentType = 0
   .oleMessage.AttachmentName = "Un nombre descriptivo del Fichero"
   .oleMessage.AttchmentPathName = "C:\YourDir\somefile.tif"
   .oleMessage.RecipIndex = 0
   .oleMessage.RecipAddress = "jaime@solutions.co.il"
   .oleMessage.Send(0)
endwith
*** no te olvides de poner en el init de tu pantalla el codigo 
*** para iniciar el oleSession, algo asi:
with ThisForm
   .oleSession.SignOn
   if .oleSession.SessionId > 0
      .oleMessage.SessionId = .oleSession.SessionId
   else
      MessageBox ( "No se puede mandar emails", 16, "Problema Monumental" )
   endif
endwith
Ahi esta, si tienes cualquier problema, pues pregunta

Chao
Jaime

>Hola Jaime, Gracias por mostrar interes respecto a mi inquietud.. Seguro que estoy interesado.. si puedes enviame mas informacion al respecto...
>
>Gracias
Why do programs stop working correctly as soon as you leave the Fox?
Previous
Reply
Map
View

Click here to load this message in the networking platform