envio de correos por VFP

[Manuel Zevallos]

Estimados amigos, tengo un problema para lo cual expongo:
mi sistema puede enviar un correo via Outlook, pero cuando antes de enviar aparece un mensaje:

UN PROGRAMA ESTA INTENTANDO ENVIAR CORREO ELECTRONICO AUTOMATICAMENTE EN SU NOMBRE.
DESEA PERMITIRLO??
SI NO AYUDA.

El problema es que este programa lo hago para que cada cierto tiempo haga un barrido de datos y envie una informacion y, yo  no lo puedo enviar a menos que de un click en SI.

Que puedo hacer?
Como puedo evitar este mensaje o que salga el correo automaticamente>???

otra consulta...se puede enviar correos con adjuntos por vfp???

agradecere sus respuestas a  mi interrogante.
Muchas gracias!

--

Atte.,

Manuel Zevallos

[Luis Maria Guayan]

Esto es un tema de seguridad a partir de Outlook 2000, mira este articulo que alli esta explicado y las opciones para poder enviar. Una de ellas  es ClickYes que funciona siempre y cuando la PC no este bloqueada.

-- Enviar y leer correo con Outlook desde Visual FoxPro --
http://www.portalfox.com/article.php?sid=906

Como un consejo personal, si solo debes enviar correo, mira la opción de envio mediante CDO que funciona muy bien.

-- Mas sobre el envio de mensajes de correo electrónico desde Visual FoxPro --
http://www.portalfox.com/article.php?sid=2626

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[Manuel Zevallos]

Hola Luis...muchas gracias por tu respuesta.

La opcion CDO se parece mas a lo que necesito..solo que no necesito ni usuario ni contraseña-...solo tener el outlook abierto.

Mi pregunta

 

Mi pregunta final es....en donde coloco todo ese codigo?????!!!!!

GracIAS!

--

Atte.,

Manuel Zevallos

[Manuel Zevallos]

Estimado Luis...solo me falta saber cómo envio un archivo... (en este ejemplo)

 

*-- Ejecuto los métodos
*loNameSpace.Logon(lcPerfil , lcContrasenia)
loMailItem = loOutlook.CreateItem(0)
loMailItem.Recipients.ADD(lcDestinatario)
loMailItem.Subject = lcTema
loMailItem.Body = lcCuerpo
loMailItem.Send
loNameSpace.Logoff

 

 

El 14 de junio de 2010 06:53, Luis Maria Guayan <luis...@portalfox.com> escribió:

--

Atte.,

Manuel Zevallos

[Julio Rossi]

�Alguien ha probado enviar correos medianto CDO en alguna versi�n de
Windows 64Bits?
�Funciona?
Gracias!

Un saludo.

Julio Rossi
VFP9 -SP2

[Luis Maria Guayan]

loMensaje.Attachments.ADD("ruta_y_nombre_del_archivo.txt")

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[Luis Maria Guayan]

Con este código, se envia un correo (obviamente cambia los datos del servidor SMTP, usuario, contraseña, etc):

loCfg = CREATEOBJECT("CDO.Configuration")
WITH loCfg.Fields
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.com"
  .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") = "us...@mail.com"
  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
  .Update
ENDWITH

loMsg = CREATEOBJECT ("CDO.Message")
WITH loMsg
  .Configuration = loCfg
  .From = "us...@mail.com"
  .To = "us...@mail.com.ar"
  .Subject = "Prueba desde VFP"
  .TextBody = "Este es un mensaje de prueba con CDO desde Visual FoxPro."
  .Send()
ENDWITH

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[Manuel Zevallos]

TE PASASTE LUIS!!!!!!!!!!!!!!!!

MUCHIIIIIIIIISIMAS GRACIAS!!!!!

 

TE DEBO LA VIDA!

GRACIS!

--

Atte.,

Manuel Zevallos

[Victor Espina]

Amigo, excelente como siempre. Es el codigo para envio de correos mas
LIMPIO y SIMPLE que he visto hasta la fecha.

Victor Espina

On 14 jun, 16:26, Luis Maria Guayan <luisma...@portalfox.com> wrote:
> Con este código, se envia un correo (obviamente cambia los datos del servidor SMTP, usuario, contraseña, etc):
> loCfg = CREATEOBJECT("CDO.Configuration")
> WITH loCfg.Fields
>   .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.com"
>   .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") ="us...@mail.com"
>   .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
>   .Update
> ENDWITH
> loMsg = CREATEOBJECT ("CDO.Message")
> WITH loMsg
>   .Configuration = loCfg
>   .From ="us...@mail.com"
>   .To ="us...@mail.com.ar"
>   .Subject = "Prueba desde VFP"
>   .TextBody = "Este es un mensaje de prueba con CDO desde Visual FoxPro."
>   .Send()

> ENDWITHLuis María Guayán Tucumán, Argentina _________________________http://www.PortalFox.comNada corre como un zorro _________________________

> El 14/06/2010 11:00, Manuel Zevallos escribió:Hola Luis...muchas gracias por tu respuesta.
>
> La opcion CDO se parece mas a lo que necesito..solo que no necesito ni usuario ni contraseña-...solo tener el outlook abierto.
>
> Mi pregunta
>
>  
>
> Mi pregunta final es....en donde coloco todo ese codigo?????!!!!!
>
> GracIAS!
>
>
>  
>
> El 14 de junio de 2010 06:53, Luis Maria Guayan<luis...@portalfox.com>escribió:Esto es un tema de seguridad a partir de Outlook 2000, mira este articulo que alli esta explicado y las opciones para poder enviar. Una de ellas  es ClickYes que funciona siempre y cuando la PC no este bloqueada.

> -- Enviar y leer correo con Outlook desde Visual FoxPro --http://www.portalfox.com/article.php?sid=906

> Como un consejo personal, si solo debes enviar correo, mira la opción de envio mediante CDO que funciona muy bien.

> -- Mas sobre el envio de mensajes de correo electrónico desde Visual FoxPro --http://www.portalfox.com/article.php?sid=2626Luis María Guayán Tucumán, Argentina _________________________http://www.PortalFox.comNada corre como un zorro _________________________

[Manuel Zevallos]

Asi es...felicito a Luis.

--

Atte.,

Manuel Zevallos

[Luis Maria Guayan]

Hola Victor, desde hace ya 4 años que utilizo CDO para el envio de correos con VFP y estoy muy satisfecho. Me funciona con mis cuentas de Gmail, Hotmail, Google Apps, y mis ISP locales.

 

Puedes enviar solo texto, HTML, adjuntos, imagenes incrustadas, con aviso de recepción, etc. y todo con una clase de solo 150 líneas de codigo.

 

Una ventaja con las cuentas de Gmail y Google Apps, es que los correos que salen por el servidor SMTP de Gmail, te quedan guardados en los elementos enviados.

 

 

Luis María Guayán

Tucumán, Argentina

_________________________

http://www.PortalFox.com

Nada corre como un zorro

_________________________ 

 

[Victor Espina]

Yo tambien uso CDO desde hace mas o menos el mismo tiempo, pero mi
codigo no es tan limpio como el tuyo :) Tambien uso gmail como
servidor SMTP justamente por esa ventaja que mencionas, ademas del
tema de que el servidor SMTP de gmail usa un puerto distinto al 25, lo
que me evita problemas con los ISP de venezuela que normalmente
restringen el uso de ese puerto para ser usado unicamente con sus
servidores SMTP.

Saludos

Victor Espina

On 15 jun, 09:45, Luis Maria Guayan <luisma...@portalfox.com> wrote:
>  Hola Victor, desde hace ya 4 años que utilizo CDO para el envio de correos
> con VFP y estoy muy satisfecho. Me funciona con mis cuentas de Gmail,
> Hotmail, Google Apps, y mis ISP locales.
>
> Puedes enviar solo texto, HTML, adjuntos, imagenes incrustadas, con aviso de
> recepción, etc. y todo con una clase de solo 150 líneas de codigo.
>
> Una ventaja con las cuentas de Gmail y Google Apps, es que los correos que
> salen por el servidor SMTP de Gmail, te quedan guardados en los elementos
> enviados.
>
> Luis María Guayán
> Tucumán, Argentina

> _________________________http://www.PortalFox.com<http://www.portalfox.com/>

> Nada corre como un zorro
> _________________________
>

> El 14 de junio de 2010 19:51, Victor Espina <vespi...@gmail.com> escribió:
>
>
>
> > Amigo, excelente como siempre. Es el codigo para envio de correos mas
> > LIMPIO y SIMPLE que he visto hasta la fecha.
>
> > Victor Espina
>
> > On 14 jun, 16:26, Luis Maria Guayan <luisma...@portalfox.com> wrote:
> > > Con este código, se envia un correo (obviamente cambia los datos del
> > servidor SMTP, usuario, contraseña, etc):
> > > loCfg = CREATEOBJECT("CDO.Configuration")
> > > WITH loCfg.Fields
> > >   .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "
> > smtp.mail.com"
> > >   .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")

> > ="u...@mail.com"

> > >   .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
> > "password"
> > >   .Update
> > > ENDWITH
> > > loMsg = CREATEOBJECT ("CDO.Message")
> > > WITH loMsg
> > >   .Configuration = loCfg

> > >   .From ="u...@mail.com"

> > >   .To ="us...@mail.com.ar"
> > >   .Subject = "Prueba desde VFP"
> > >   .TextBody = "Este es un mensaje de prueba con CDO desde Visual FoxPro."
> > >   .Send()
> > > ENDWITHLuis María Guayán Tucumán, Argentina _________________________

> >http://www.PortalFox.comNada<http://www.portalfox.comnada/> corre como un

> > zorro _________________________
> > > El 14/06/2010 11:00, Manuel Zevallos escribió:Hola Luis...muchas gracias
> > por tu respuesta.
>
> > > La opcion CDO se parece mas a lo que necesito..solo que no necesito ni
> > usuario ni contraseña-...solo tener el outlook abierto.
>
> > > Mi pregunta
>
> > > Mi pregunta final es....en donde coloco todo ese codigo?????!!!!!
>
> > > GracIAS!
>

> > > El 14 de junio de 2010 06:53, Luis Maria Guayan<luisma...@portalfox.com>escribió:Esto

> > es un tema de seguridad a partir de Outlook 2000, mira este articulo que
> > alli esta explicado y las opciones para poder enviar. Una de ellas  es
> > ClickYes que funciona siempre y cuando la PC no este bloqueada.
> > > -- Enviar y leer correo con Outlook desde Visual FoxPro --
> >http://www.portalfox.com/article.php?sid=906
> > > Como un consejo personal, si solo debes enviar correo, mira la opción de
> > envio mediante CDO que funciona muy bien.
> > > -- Mas sobre el envio de mensajes de correo electrónico desde Visual

> > FoxPro --http://www.portalfox.com/article.php?sid=2626LuisMaría Guayán
> > Tucumán, Argentina _________________________http://www.PortalFox.comNada<http://www.portalfox.comnada/>corre como un zorro _________________________

[Manuel Zevallos]

Estimados...estoy usando la primera parte para poder enviar un correo por gmail.

 

loCfg = CREATEOBJECT("CDO.Configuration")
WITH loCfg.Fields

  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 (segun indica la pagina web)

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

  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "man...@gmail.com"
  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "1234567"

  .Update
ENDWITH

loMsg = CREATEOBJECT ("CDO.Message")
WITH loMsg
  .Configuration = loCfg

  .From = "man...@gmail.com"
  .To = "man...@hotmail.comr"

  .Subject = "Prueba desde VFP"
  .TextBody = "Este es un mensaje de prueba con CDO desde Visual FoxPro."
  .Send()
ENDWITH

Estimados..he cambiado eso..pero me sale el mensaje:

CODIGO DE EXCEPCION OLE IDISPATCH 0 DE CDO.MESSAGE.1: ERRORE DE TRANSPORTE EN LA CONEXION AL SERVIDOR.

 

Tendré limitaciones desde mi servidor??

Tendré que probar desde mi casa para quee funcione?

 

Entiendo que esta rutina abre el correo de gmail..y desde ahi envia un correo a donde yo desee??

Agradeceré sus comentarios..

--

Atte.,

Manuel Zevallos

[Luis Mata]

Acabo de probar el CDO en W7 64 Bits
Funciona correctamente

Luis Mata

[Manuel Zevallos]

Ya sé...me indican que tienen mi red tiene bloqueado el puerto 465 para envios fuera de mi lan.

El 15 de junio de 2010 12:39, Luis Mata <lm...@cclf.com.pe> escribió:

Acabo de probar el CDO en W7 64 Bits
Funciona correctamente

Luis Mata
----- Original Message ----- From: "Julio Rossi" <jro...@sys-ilt.com.ar>
To: <publice...@googlegroups.com>
Sent: Monday, June 14, 2010 12:01 PM
Subject: Re: [vfp] envio de correos por VFP

¿Alguien ha probado enviar correos medianto CDO en alguna versión de Windows 64Bits?

¿Funciona?
Gracias!

Un saludo.

Julio Rossi
VFP9 -SP2

--

Atte.,

Manuel Zevallos

[Luis Mata]

Prueba con el Pto 25, mejor configura el Gmail en tu outlook express y trata de enviar correos si sale y no hay problemas fijate que puertos utiliza y usa esos.

 

Si funciona en el outlok funciona en vfp

 

Luis

[Manuel Zevallos]

Ok Luis..muchas gracias por tu tiempo.

Ahora llegando a mi casa hago la prueba.

--

Atte.,

Manuel Zevallos

[Julio Rossi]

Gracias Luis por la respuesta.
Yo estoy teniendo problemas en un Windows Server 2008 R2, pero si en W7
64 funciona es posible que sea problemas de la instalaci�n en ese Server.
Voy a reinstalar y probar nuevamente.
Un saludo cordial

Julio Rossi
VFP9 -SP2

Luis Mata escribi�:

[Luis Mata]

Pero que tiene que ver CDO Y sql? yo creo que el problema es por otro lado

[Luis Mata]

Acabo de probar este codigo CDO en W7 64 Bits y funciona correctamente:
cambia tu correo y pon tu clave y deberia de funcionar y si no usa el pto 25
sino en 465 y usa SSL

usactual = 'ADMIN'
TIENDA = 'lIMA'
*!* =SQLEXEC(cscom, "SELECT * FROM sitabusr WHERE txdeslgn =
?usactual","sitabusr")
*!* SELECT sitabusr
*IF this.Caption = 'Enviarme Clave por Correo'
local m.ObjetoMail as CDO.message, m.co as Integer, m.listas(2), m.cadena as
string
m.listas(1) = "lm...@cclf.com.pe"
m.listas(2) = ALLTRIM(sitabusr.mail)
*
vclave = ALLTRIM(STR(INT(SECONDS())*999,12,0))
=SQLEXEC(cscom, "update sitabusr set TXDESPWD = ?vclave,lgestusr =
'true',logexp='false',FECCAMB = ?DATE() where txdeslgn = ?usactual")
m.cadena = "http://schemas.microsoft.com/cdo/configuration/"
*
m.ObjetoMail = CreateObject("CDO.Message")
m.ObjetoMail.Configuration.Fields.Item(m.cadena + "smtpserver").Value =
"smtp.gmail.com"
m.ObjetoMail.Configuration.Fields.Item(m.cadena + "smtpserverport").Value =
465
m.ObjetoMail.Configuration.Fields.Item(m.cadena + "sendusing").Value = 2
m.ObjetoMail.Configuration.Fields.Item(m.cadena + "sendusername").Value =
"lma...@gmail.com"
m.ObjetoMail.Configuration.Fields.Item(m.cadena + "sendpassword").Value =
"xxxxxxx"
m.ObjetoMail.Configuration.Fields.Item(m.cadena + "smtpauthenticate").Value
= 1
m.ObjetoMail.Configuration.Fields.Item(m.cadena + "smtpusessl").Value = .t.

m.ObjetoMail.Configuration.Fields.Update()
*
for m.co = 1 to 2
*wait window str(m.co) nowait
m.direccion = mod(m.co, 2) + 1
m.ObjetoMail.To = m.listas(m.direccion)
m.ObjetoMail.From = "lma...@gmail.com"
m.ObjetoMail.Subject = "Clave del Scom Autogenerada"
m.ObjetoMail.HTMLBody = "Usuario: "+usactual+" Su nueva clave es: " + vclave
+ " ,De la Bade de Datos de: "+tienda
m.ObjetoMail.Attachments.DeleteAll
*m.ObjetoMail.AddAttachment(GETENV("SystemDrive") + "\logping.txt")
m.ObjetoMail.Organization = "Centro Cermico Las Flores S.A.C."
m.ObjetoMail.Send
next m.co
release m.ObjetoMail, m.configura
wait clear
*thisform.cambiar.Enabled = .T.
*thisform.tmpmail.enabled = .F.
MESSAGEBOX("Revise su correo asociado para ver su clave
autogenerada.",32,"")
*endif

--------------------------------------------------
From: "Julio Rossi" <jro...@sys-ilt.com.ar>
Sent: Tuesday, June 15, 2010 11:05 AM
To: <publice...@googlegroups.com>

Subject: Re: [vfp] envio de correos por VFP

> Gracias Luis por la respuesta.
> Yo estoy teniendo problemas en un Windows Server 2008 R2, pero si en W7 64
> funciona es posible que sea problemas de la instalaci�n en ese Server.
> Voy a reinstalar y probar nuevamente.
> Un saludo cordial
>
> Julio Rossi
> VFP9 -SP2
>
>
>
> Luis Mata escribi�:
>> Acabo de probar el CDO en W7 64 Bits
>> Funciona correctamente
>>
>> Luis Mata
>> ----- Original Message ----- From: "Julio Rossi" <jro...@sys-ilt.com.ar>
>> To: <publice...@googlegroups.com>
>> Sent: Monday, June 14, 2010 12:01 PM
>> Subject: Re: [vfp] envio de correos por VFP
>>
>>
>>> �Alguien ha probado enviar correos medianto CDO en alguna versi�n de
>>> Windows 64Bits?
>>> �Funciona?
>>> Gracias!
>>>
>>> Un saludo.
>>>
>>> Julio Rossi
>>> VFP9 -SP2
>>>
>>>
>>>
>>
>>
>>
>
>
>

> __________ Informaci�n de ESET NOD32 Antivirus, versi�n de la base de
> firmas de virus 5199 (20100615) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>

__________ Informaci�n de ESET NOD32 Antivirus, versi�n de la base de firmas de virus 5199 (20100615) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com

[Luis Mata]

AH.. y debes crear un archivito TXT con el nombre logping.txt en c:

[Luis Maria Guayan]

Si estas probando con Gmail, mira este artículo:

 

-- Envío de correo electrónico por el servidor SMTP de Gmail --
http://www.portalfox.com/article.php?sid=2413

 

Ten en cuenta que el servidor de Gmail utiliza autentificación y cifrado y los valores son lógicos, no numéricos

 

 

Luis María Guayán

Tucumán, Argentina

_________________________

http://www.PortalFox.com

Nada corre como un zorro

_________________________ 

Yo estoy teniendo problemas en un Windows Server 2008 R2, pero si en W7 64 funciona es posible que sea problemas de la instalación en ese Server.

Voy a reinstalar y probar nuevamente.
Un saludo cordial

Julio Rossi
 VFP9 -SP2

Luis Mata escribió:

Acabo de probar el CDO en W7 64 Bits
Funciona correctamente

Luis Mata
----- Original Message ----- From: "Julio Rossi" <jro...@sys-ilt.com.ar>
To: <publice...@googlegroups.com>
Sent: Monday, June 14, 2010 12:01 PM
Subject: Re: [vfp] envio de correos por VFP

¿Alguien ha probado enviar correos medianto CDO en alguna versión de Windows 64Bits?

¿Funciona?
Gracias!

Un saludo.

Julio Rossi
VFP9 -SP2

__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5199 (20100615) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com

__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5199 (20100615) __________

[Mario Dal Degan]

Estimados amigos:
Estoy utilizando automatización de Word para realizar una corrección
ortográfica. Todo funciona bien en Win XP con Word 2003 y también con 2007.
Cuando hago las pruebas en máquinas con Win Vista o 2007 los resultados no
son tan buenos. Se abre el Word correctamente pero no hay forma que quede en
primer plano además de no respetar el diccionario predeterminado. Ya probé
con visible, maximizado, etc. pero siempre tengo que clickear en el Word
para activarlo.
¿Alguien tiene idea como resolver esto?.
Muchas gracias.

Mario Andrés Dal Degan
     Depto. Desarrollo
   Servicios & Sistemas
Manuel Artigas 5106 9º 3
        Buenos Aires
  Tel (011) 4635-5947
     www.sesi.com.ar

[Julio Rossi]

SQL? Yo me refer�a a problemas de env�o de correo mediante CDO en un
Windows Server 2008 R2, que es de 64 bits.

[David Arenas]

Hace un tiempo use estas lineas:


oWsh = CREATEOBJECT ("WScript.Shell")
oWsh.Run("winword", 2, .T.)

No recuerdo si el parametro va en True o False


David Arenas
Lima - Perú

"Mario Dal Degan" <marioand...@gmail.com> Sent by: publice...@googlegroups.com 15/06/2010 02:42 p.m. Please respond to publice...@googlegroups.com

To <publice...@googlegroups.com> cc Subject [vfp] Automatización de Word

[Luis Mata]

Ah ok

Luis

[David Arenas]

Perdón:

Se usa 2 para ventana minimizada y 3 para ventana maximizada  que es lo que tu buscas.

El valor .T. es para que el programa espere la finalización del aplicativo llamado (en este caso winword) y .F. para que no lo espere.

oWsh = CREATEOBJECT ("WScript.Shell")

oWsh.Run("winword", 3, .T.)

David Arenas
Lima - Perú

David Arenas <dar...@stefanini.com> Sent by: publice...@googlegroups.com 15/06/2010 03:20 p.m. Please respond to publice...@googlegroups.com

To publice...@googlegroups.com cc Subject Re: [vfp] Automatización de Word

[Manuel Zevallos]

Gracias Luis..ahora lo pruebo.

--

Atte.,

Manuel Zevallos

[Manuel Zevallos]

Estimado Luis, perdona mi ignorancia...pero en donde "tomo en cuenta la autentificacion y cifrado"?

Yo entiendo que a partir del CDO se conecta al smtp de gmail y envia el correo como si yo estuviera dentro de gmail.

Agradeceré me des una explicacion por favor, no quiero la solucion sino entender este tema.

Muchas gracias.

--

Atte.,

Manuel Zevallos

[Mario Alfredo Oviedo]

david abri otro teme, no confundas los frijoles con el arroz

&& segundo parametro posicion ventana 0-10
&& tercer parametro .t. espera a que termine, ,f, no espera

[Luis Mata]

En el correo, en el ejemplo que te mande ya esta adicionado

busca estas lineas

 

m.ObjetoMail.Configuration.Fields.Item(m.cadena + "smtpauthenticate").Value = 1
m.ObjetoMail.Configuration.Fields.Item(m.cadena + "smtpusessl").Value = .t.

 

[Luis Maria Guayan]

Las configuraciones de los correos de Gmail y/o Google Apps estan en:

 

http://mail.google.com/support/bin/answer.py?answer=13287

 

Las líneas de autentificacion y cifrado SSL en el código del ejemplo son:

 

    .ITEM(lcSchema + "smtpauthenticate") = .T.
    .ITEM(lcSchema + "smtpusessl") = .T.

Saludos,

 

 

 

Luis María Guayán

Tucumán, Argentina

_________________________

http://www.PortalFox.com

Nada corre como un zorro

_________________________ 

 

[Manuel Zevallos]

AHh ok!!!

Ya decia...en donde esta eso..

Ahora por la noche pruebo..,muchas gracias Luis..y disculpa mi insistencia.

--

Atte.,

Manuel Zevallos

[Manuel Zevallos]

Estimado Luis....ha pasado algo raro...

te envio dos archivos en excel...uno antes del envio..es decir, el original que envio con CDO y luego el que intento abrir desde las cuentas a las que envie....el destino no puedo abrirlo...que puede estar pasando??

--

Atte.,

Manuel Zevallos

[Mario Dal Degan]

Gracias por responder a todos.

Creo que no expliqué correctamente lo que sucede: La automatización ya la hice y funciona bien. En Windows 7 o Windows Vista sucede que el word, si bien se ejecuta, no se pone en primer plano, es decir, queda mi sistema en pantalla y el Word abierto atrás realizando la revisión. Esto provoca una confusión en el usuario ya que el sistema parece colgado simplemente porque se está esperando una respuesta desde Word. El usuario debería, simplemente, clickear el botón de la barra de tareas para seleccionar el Word y concluir la revisión. Claro que, para realizar esto último debe darse cuenta que el Word está abierto.

Saludos.