Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Reporte por e-mail
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Divers
Thread ID:
00728713
Message ID:
00728766
Vues:
29
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?
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform