Enviar Archivo Adjunto x email

[mundo visual foxpro]

Hola, como estan colegas lo q necesito es enviar un archivo adjunto x
correo y estoy renegando ya q me baje varios ej y no logro hacerlo
andar, la idea es no usar outlook, ni nada q deba instalar, solo
necesito enviar el adjunto. si alguien conoce el proceso mas sencillo
se lo agradeceria ...Muchas Gracias...

Mario A- Becerra
A. de Sistemas

[sergio alejandro garcia mendez]

oOutlook =

CREATEOBJECT('outlook.application')

oItem = oOutlook.CreateItem(0)

oItem.Subject = 'Sendig email With VFP'

oItem.

to = 'tayi...@hotmail.com'

oItem.Body = 'Funciona este envio'

oItem.Attachments.

Add('c:\02.jpg')

oItem.send

2009/3/11 mundo visual foxpro <marioa...@hotmail.com>

--
Sergio A. Garcia
mail tayi...@gmail.com
alt. tayi...@yahoo.com

[Efrain]

Hola Mario yo Utilizo Jmail para enviar correos desde fox así

omail=CREATEOBJECT("jmail.SMTPmail")
oMail.ServerAddress = "mail.MiServidor.com" && Servidor de Correo
oMail.Sender = "MarioB...@Hotmail.com.com && cuenta de quien envia
el mail
oMail.SenderName = "Mario Becerra" && Nombre de quien envía
el mail
oMail.AddRecipient("destin...@servidor.com") && Destinatario del
email
oMail.HtmlBody = "Cuerpo del email que puede estar en un campo memo"
&& Cuerpo del Mensaje en HTML
oMail.AddAttachment( "Archivo.ext" ) && Archivo Adjunto

nRet = oMail.Execute()
If !nRet
=Messagebox(Transform(oMail.errorCode))
endif

puedes bajar la versión free desde http://dimac.net/Products/w3JMail/start.htm

Saludos

Efraín Hernández


On 11 mar, 11:21, mundo visual foxpro <marioabece...@hotmail.com>
wrote: