FoxPro/Visual FoxPro - MANDAR E-MAILS. URGENTE!!!!

 
Vista:

MANDAR E-MAILS. URGENTE!!!!

Publicado por Yellow (2 intervenciones) el 11/06/2001 15:15:49
Alguien me puede ayudar por favor para mandar e-mails?.
Como puedo mandar e-mails con el Outlook Express y con el Nestcape, me hace mucha falta. 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

E-mails

Publicado por wences (457 intervenciones) el 11/06/2001 15:25:47
Esto mismo ya se respondio mas de una vez , al menos con el outlook ...
No estaria de mas que buscases en las respuestas ...

Este es el codigo de dos formas distintas:

* 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
____________________________________

* 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 popula
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:E-mails

Publicado por wences (457 intervenciones) el 19/06/2001 20:32:16
Otro cosigo seria :

oleMMess=createobject("msmapi.mapimessages")
oleMSess=createobject("msmapi.mapisession")
oleMSess.signon
OleMMess.sessionid=OleMSess.sessionid
OleMMess.msgindex=-1
OleMMess.compose
set default to "C:\encripta"
OleMMess.Recipdisplayname="[email protected]"
OleMMess.recipaddress=""
OleMMess.msgnotetext="Prueba de correo texto"
OleMMess.msgsubject="Comentario del corrreo"
OleMMess.attachmentindex=0
OleMMess.attachmentposition=0
OleMMess.attachmentpathname="c:\impresos.doc"
OleMMess.attachmentname=""
OleMMess.attachmenttype=0
OleMMess.send(0)
OleMSess.signoff

espero te sirva...
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