FoxPro/Visual FoxPro - Internet

 
Vista:

Internet

Publicado por gustavo sagot (10 intervenciones) el 15/06/2001 19:04:30
Buenas ...necesito hacer una especie de link entre fox y el navegador de internet predeterminado... que al dar un click en una especie de boton con la direccion WEB se vaya a abrir este navegador y direccionarce a la pagina, asi mismo con los correos que al dar un click se vaya y habra el administrador de correos predeterminado y mande un correo..o por lo menos algo que se le prezca..de antemano les agradezco cualquier ayuda...gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Internet

Publicado por wences (457 intervenciones) el 15/06/2001 19:54:29
Enviar correo es bastante simple , ya se comento mas de una vez en el foro ...

cualquiera de estos codigos te valdria ...

* AM_BareBones.PRG
* ----------------
*
*Create a MAPI Session object then Logon. The Logon dialog can be
*bypassed by providing a valid ProfileName as the first parameter
*(as a string) to the Logon Method.
objSession = CREATEOBJECT("mapi.session")
objSession.Logon("wesanto")

*Create a new message in the Outbox
objMessage = objSession.Outbox.Messages.Add

*Populate a few basic properties of the message
objMessage.Subject = "wenceslao"
objMessage.Text = "Texto del mensaje"
objMessage.Attachments.Add("impresos.rtf", 0, 1, "c:\impresos.rtf")

*Add a Recipient to the message we just created and resolve
objRecip = objMessage.Recipients.Add
*Alias of who you are sending to
objRecip.name = "[email protected]"
objRecip.Resolve

*Send it
objMessage.Send

*Clean up then bail
objSession.Logoff
RELEASE objRecip, objMessage, objSession
*EOP: AM_BareBones.PRG

susp

* AM_Attachments.PRG
* ------------------
*
*Create a MAPI Session object then Logon. The Logon dialog can be
*bypassed by providing a valid ProfileName as the first parameter
*(as a string) to the Logon Method as seen below.
objSession = CREATEOBJECT("mapi.session")
objSession.Logon("YourProfileName")

*Create a new message in the Outbox and populate a few basic properties
objMessage = objSession.Outbox.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Internet

Publicado por DOCTOR(ROD) (184 intervenciones) el 16/06/2001 04:59:09
HOLA COMO ESTAS?
La solucion que yo te doy es mas simple
para cargar el Iexplorer y llamar una pagina utiliza el sigiente CODIGO:
! /N C:\Archivos de programa\Internet Explorer\IEXPLORE.EXE www.geocities.com/toledo_cl

y para enviar correo mediate Outlook usa lo sigiente:
oOutlook = CREA ("outlook.application")
oMail = oOutlook.createitem(0)
oMail.body = 'Aqui pones el mensaje que deseas enviar'
oMail.ATTACHMENTS.ADD (Aqui pones el nombre de algun acrhico adjunto)
oMail.RECIPIENTS.ADD('[email protected]')
oMail.Subject = 'Aquí pones el asunto (ejem) Citacion Reunion Jueves 12'
oMail.DISPLAY
oMail.send
oMail = .NULL.
RELEASE oMail
oOutlook = .NULL.
RELEASE oOutlook
Ojala te sirva

Atte ROD
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar