Aqui tienes un ejemplo
set printer to name "WinFax"
report form YourReport noconsole to file "somefile.tif"
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
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?