Enviar correo desde otra cuenta de Outlook

[Ingrid Quiroz Muñoz]

Hola a todos :)

Vengo con una duda nueva, con vfp6 envío cierta cantidad de correos, el hecho es que yo tengo que enviarlos desde el correo de la oficina en la cual trabajo, a la cual entro vía web con el OWA (Outlook Web App) pero yo estoy logeada con mi usuario de windows propio.

Lo que usaba para simplificarme la vida por ahora era el siguiente código:

oOutlook = CREATEOBJECT("Outlook.Application")

oMail=oOutlook.createitem(0)

oMail.Subject="ALERTA DIARIA DE TIEMPOS DE PRODUCCIÓN  :"

oMail.body = "Buenos días, se adjunta información concerniente al "+fecha_01

oMail.attachments.ADD(lcFile)

oMail.to = "oficina...@midominio.gov.pe"

oMail.Bcc= "practi_...@midominio.gov.pe"

 **  oMail.Display

oMail.send()

Mi sesión es practi-iquiroz, y se está enviando al correo de la oficina, porque lo que hacia luego de eso era entrar por el owa y reenviarlo a las personas correspondientes, pero la idea es que salga de frente u.u intenté  con smtp, pero no me sale tampoco:

loCfg = CREATEOBJECT("CDO.Configuration")

WITH loCfg.Fields

  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.midominio.gov.pe"

  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "oficina...@midominio.gov.pe"

  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "miclave"

  .Update

ENDWITH

loMsg = CREATEOBJECT ("CDO.Message")

WITH loMsg

  .Configuration = loCfg

  .From = "oficina...@midominio.gov.pe"

  .To = "practi_...@midominio.gov.pe"

  .Subject = "Probando...1,2,3..."

  .TextBody = "Probando :)"

  .Send()

ENDWITH

Si alguien supiera como ayudarme sería genial :)

Gracias de antemano.

[Héctor Bernal]

Ingrid,

Buenas tardes. El siguiente link tiene muy buenas cosas sobre el envío de correo-e desde foxpro. Al final encontrarás diversos ejemplos que te pueden ayudar. Por cuestiones de trabajo, no puedo checar más a detalle, pero esto me ha servido cuando lo necesitaba.

http://www.sweetpotatosoftware.com/spsblog/SearchView.aspx?q=send%20email

Espero te sea de aydua.

Saludos desde México, D.F.

[Ingrid Quiroz Muñoz]

Probaré con todo lo que hay ahí 

Gracias :)

[Luis Maria Guayan]

A ver, tu 1er. trozo de código envía correos mediante automatización de Microsoft Office Outlook, y lo que tu deseas es enviar desde otra cuenta mediante CDO (2do. trozo de código).

Si es así, mira estos artículos de PortalFox y el Blog de la Comunidad VFP que te ayudarán

http://comunidadvfp.blogspot.com/search/?q=CDO

Luis María Guayán
Tucumán, Argentina
_____________________________
http://comunidadvfp.blogspot.com

[Ingrid Quiroz Muñoz]

Sr Luis María, gracias por la info, y acabo de probar con un trozo de código, pero verificando la configuración de mi correo, recién caigo en cuenta de que no usa el SMTP sino el servidor Exchange, no sé si tenga que ver :$

El miércoles, 15 de octubre de 2014 09:01:31 UTC-5, Luis Maria Guayan escribió:

A ver, tu 1er. trozo de código envía correos mediante automatización de Microsoft Office Outlook, y lo que tu deseas es enviar desde otra cuenta mediante CDO (2do. trozo de código).

Si es así, mira estos artículos de PortalFox y el Blog de la Comunidad VFP que te ayudarán

http://comunidadvfp.blogspot.com/search/?q=CDO

Luis María Guayán
Tucumán, Argentina
_____________________________
http://comunidadvfp.blogspot.com

El 13/10/2014 a las #4, Ingrid Quiroz Muñoz escribió:

Hola a todos :)

Vengo con una duda nueva, con vfp6 envío cierta cantidad de correos, el hecho es que yo tengo que enviarlos desde el correo de la oficina en la cual trabajo, a la cual entro vía web con el OWA (Outlook Web App) pero yo estoy logeada con mi usuario de windows propio.

Lo que usaba para simplificarme la vida por ahora era el siguiente código:

oOutlook = CREATEOBJECT("Outlook.Application")

oMail=oOutlook.createitem(0)

oMail.Subject="ALERTA DIARIA DE TIEMPOS DE PRODUCCIÓN  :"

oMail.body = "Buenos días, se adjunta información concerniente al "+fecha_01

oMail.attachments.ADD(lcFile)

oMail.to = "oficin...@midominio.gov.pe"

oMail.Bcc= "practi...@midominio.gov.pe"

 **  oMail.Display

oMail.send()

Mi sesión es practi-iquiroz, y se está enviando al correo de la oficina, porque lo que hacia luego de eso era entrar por el owa y reenviarlo a las personas correspondientes, pero la idea es que salga de frente u.u intenté  con smtp, pero no me sale tampoco:

loCfg = CREATEOBJECT("CDO.Configuration")

WITH loCfg.Fields

  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.midominio.gov.pe"

  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "oficin...@midominio.gov.pe"

  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "miclave"

  .Update

ENDWITH

loMsg = CREATEOBJECT ("CDO.Message")

WITH loMsg

  .Configuration = loCfg

  .From = "oficin...@midominio.gov.pe"

  .To = "practi...@midominio.gov.pe"

  .Subject = "Probando...1,2,3..."

  .TextBody = "Probando :)"

  .Send()

ENDWITH