Cuando envío un email por outlook quiero que sea desde una cuenta determinada

287 views
Skip to first unread message

avazq...@gmail.com

unread,
Mar 7, 2022, 6:31:03 AM3/7/22
to oo...@googlegroups.com

Buenas.

No sé cómo hacerlo.

 

Utilizo lo siguiente

 

OL:= TOleAuto():New('Outlook.Application')

oMail:=('Outlook.Mailitem') //Inicia un Objeto OLE de OutLook

oMail:=OL:CreateItem(0) //Crea un Nuevo Mail

oAt := oMail:Attachments //Esta linea te permiten adjuntar Archivos

IF LEN(AaDJUNTOS)>0

   for nadjuntos:=1 to len(aAdjuntos)

       if file(aAdjuntos[nadjuntos])  // Compruebo que exista el fichero

          oAt :Add(aAdjuntos[nadjuntos]) //Aqui adjuntas un archivo

       endif

   next

endif  

oMail:To:= cDestino //Dirección de Mail del Destinatario

oMail:Subject:=cAsunto //Asunto del Mail

oMail:BodyFormat := 2

if lhtml

              oMail:HtmlBody := cCuerpo

else

              oMail:Body := ccuerpo

endif

*oMail:Body:FontSize:="Courier New"

if lEnviaDirectamente

   oMail:Send() //Envío del Mail

else

   oMail:Display(.t.)

endif

release oMail //Cierra la conexion con el OutLook

release OL //Cierra el objeto OLE

 

Puedo poner los destinatarios, pero no sé poner la cuenta desde la que quiero enviar.

 

Gracias

Saludos.

 

Antonio Vázquez

avazq...@gmail.com

 

Jorge Gárate

unread,
Mar 7, 2022, 9:05:12 AM3/7/22
to oo...@googlegroups.com

--
Has recibido este mensaje porque estás suscrito al grupo "[oohg]" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a oohg+uns...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/oohg/004a01d83216%24d2d91120%24788b3360%24%40gmail.com.

avazq...@gmail.com

unread,
Mar 7, 2022, 10:41:23 AM3/7/22
to oo...@googlegroups.com

Perfecto.

Mil gracias

Saludos

 

Antonio Vázquez

avazq...@gmail.com

Sergio Castellari

unread,
Mar 8, 2022, 10:17:37 AM3/8/22
to oo...@googlegroups.com

Hola gente,

 

Aprovechando el tema EMAILS, que se puede hacer desde Harbour ya que aparentemente GMAIL, no permitirá mas accesos con SOLO Cuenta/Contraseña, sino que requerirá una segunda validación. Esto en principio inhabilitaría a CDO.

Hace unos días, recibí una comunicación directa de GMAIL, donde decía:

 

….

El 30 de mayo puede que pierdas acceso a aplicaciones que utilizan una tecnología de inicio de sesión menos segura

 

Para proteger tu cuenta, Google ya no permitirá el uso de aplicaciones o dispositivos de terceros que te pidan iniciar sesión en tu cuenta de Google solo con el nombre de usuario y la contraseña. En su lugar, tendrás que iniciar sesión mediante Iniciar sesión con Google u otras tecnologías más seguras, como OAuth 2.0. Más información

….

 

Pregunto:

1)    ¿Se puede “deshabilitar” esta protección adicional? Por lo que vi en los Links, no será posible.

2)    ¿Existe alguna forma para Iniciar sesión Con Google de Harbour o utilizar la tecnología OAuth 2.0?

 

Desde ya gracias por todos los aportes.

Creo que es algo que nos interesa a todos los que enviamos MAILS directamente desde nuestras aplicaciones.

 

Saludos,

Sergio

 

 

 

 

Jorge Gárate

unread,
Mar 8, 2022, 1:54:46 PM3/8/22
to oo...@googlegroups.com

--

Has recibido este mensaje porque estás suscrito al grupo "[oohg]" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a oohg+uns...@googlegroups.com.

Sergio Castellari

unread,
Mar 8, 2022, 2:12:40 PM3/8/22
to oo...@googlegroups.com

Hola Jorge y grupo!!!

 

Un colega me paso los pasos que debemos hacer en la Cuenta de GMAIL que usamos en nuestra aplicación para utilizar la “famosa” verificación en DOS pasos (que aparentemente va a ser obligatoria después del 30 de Mayo) y que a su vez nos permita seguir usando el correo en nuestras aplicaciones que usan validación NombredeUsuario/Contraseña:

 

El tema es deshabilitar el acceso a aplicaciones menos seguras para simular lo que va a suceder a partir del 30 de mayo.

 

 

 

 

 

 

Ingresar a la cuenta de Google.

 

 

 

Ir a GESTIONAR TU CUENTA DE GOOGLE.

 

 

 

Ir a SEGURIDAD.

 

 

 

 

Deshabilitar el ACCESO A APLICACIONES MENOS SEGURAS. (Se deshabilitará automáticamente a partir del 30 de mayo)

 

Habilitar la VERIFICACION EN 2 PASOS.

 

 

 

Ir a CONTRASEÑA DE APLICACIONES y crear las aplicaciones necesarias (pedirá la contraseña algunas veces), por ejemplo:

     Para Outlook (2016 o inferior) elegir la aplicación CORREO y en Seleccionar Dispositivo, elegir ORDENADOR CON WINDOWS, luego GENERAR la contraseña.

Para sistemas o aplicaciones de terceros, elegir OTRA (NOMBRE PERSONALIZADO) y describir la aplicación (por ej. SISTEMA VENTAS), luego generar la contraseña.

Solamente se coloca la nueva contraseña sea en outlook como en la aplicación de terceros.

 

En mi caso no hizo falta tocar los puertos ni los servidores.

 

 

 

 

 

 

 

Espero te sirva, saludos.

 

 

 

 

 

 

 

 

 

Adrián Fernández

 

 

 

 

Obviamente que habilite el acceso en DOS pasos, desabilite aplicaciones menos seguras y luego de configurar la Contraseña de Aplicaciones (aquí Google genera una contraseña de 16 caracteres) que debemos utilizarla en lugar de la contraseña actual…y VUALA….sale andando de una sin quejarse!!!!

 

Saludos,

Sergio Castellari

 

PD: Por supuesto, pedí al colega compartirlo al grupo. Es algo que seguramente nos tocará en algún momento configurar en nuestros clientes.

Jorge Gárate

unread,
Mar 8, 2022, 3:06:47 PM3/8/22
to oo...@googlegroups.com

Que bien, ojalá no de problemas, porque en un equipo con Windows 8 no resultó nunca habilitar el Outlook para leer correos Gmail. Habrá que probar en Mayo

Robinson Rodriguez

unread,
Jul 4, 2022, 8:35:56 PM7/4/22
to oo...@googlegroups.com
Hola Sergio y grupo.

Logre hacerlo en gmail pero en Hotmail lo intente sin poder resolver. Me pueden colaborar con los pasos específicos para Hotmail.
De antemano muchas gracias.

Saludos.


Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/oohg/01f101d83320%2479d98c20%246d8ca460%24%40com.
Reply all
Reply to author
Forward
0 new messages