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
Revisa:
VBA: Enviar email desde cuenta específica de Outlook | EXCEL FORO: Un blog de Excel
Saludos,
Jorge
--
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.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/oohg/003e01d8322c%2412170d00%2436452700%24%40wados.cl.
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
Servirá de ayuda esto?
Habilitar API OAuth 2 para usar con tu plugin Mail SMTP de WordPress – Centro de Ayuda (dreamhost.com)
Saludos,
Jorge
--
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/019201d832ff%24a3d0f7a0%24eb72e6e0%24%40com.
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.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/oohg/000601d8331d%24b09802d0%2411c80870%24%40wados.cl.
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
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/oohg/01f101d83320%2479d98c20%246d8ca460%24%40com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/oohg/01f101d83320%2479d98c20%246d8ca460%24%40com.