** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Vincular correos Access Outlook
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoVincular correos Access Outlook

 Responder Responder Página  <12
Autor
Mensaje Invertir el orden de clasificación
valencianoblaugrana Ver desplegable
Asiduo
Asiduo


Unido: 20/Junio/2014
Localización: Alicante
Estado: Sin conexión
Puntos: 493
Enlace directo a este mensaje Enviado: 15/Septiembre/2019 a las 17:50
Muchas gracias Happy, 
Pero el problema se presenta en como almaceno en el campo correspondiente de la tabla "ENVIADOS" el elemento "EntryID" al enviar un correo electrónico para posteriormente localizarlo a través del código de ejemplo que me indicas.


Saludos
Arriba
happy Ver desplegable
Moderador
Moderador


Unido: 29/Enero/2005
Localización: España
Estado: Sin conexión
Puntos: 3192
Enlace directo a este mensaje Enviado: 15/Septiembre/2019 a las 11:36
Los mensajes de correo de Outlook tienen una propiedad llamada EntryID, que es un identificador único del elemento. A través de un objeto NameSpace puedes acceder a un elemento cualquiera a través con esa propiedad. Eso sí, primero deberás almacenar esa propiedad en tu tabla de mensajes y luego podrás a ese correo de nuevo

Ejemplo simple de código para hacerlo:

Set OL = CreateObject("Outlook.Application")
    Set Ns = OL.GetNamespace("MAPI")
   
    Set rs = CurrentDb.OpenRecordset("TuTabla")
   
    While Not rs.EOF
        ' referenciamos el mensaje de correo mediante su EntryID
        Set oMail = Ns.GetItemFromID(rs("EntryID"))
        ' visualizamos el correo
        oMail.display
       
        rs.MoveNext
    Wend

Sustituye los nombres y el procedimiento según te convenga ...

Otra cosa más: si los correos se mueven a otra ubicación u otra carpeta de Outlook  esa propiedad EntryID cambiará, así que le perderás de nuevo el rastro ... pero supongo que ese es otro tema



Editado por happy - 15/Septiembre/2019 a las 11:39
Saludos,

Juan M. Afan de Ribera
Arriba
jilo Ver desplegable
Colaborador
Colaborador


Unido: 19/Diciembre/2004
Localización: TAFALLA
Estado: Sin conexión
Puntos: 959
Enlace directo a este mensaje Enviado: 15/Septiembre/2019 a las 08:40
Hola.

Mira este codigo que te lista los asuntos de los emails de la bandeja enviados, por sí te sirve...
Sub ListaBandejaEnviadosDeOutllok()
Dim objOL As Outlook.Application
   Dim objNS As NameSpace
   Set objOL = New Outlook.Application
   Set objNS = objOL.GetNamespace("MAPI")
   Set objfolder = objNS.GetDefaultFolder(olFolderSentMail)
   For Each correo In objfolder.Items
       Debug.Print correo
   Next
End Sub

Espero te sirva !!!!!!
Iñaki
Arriba
valencianoblaugrana Ver desplegable
Asiduo
Asiduo


Unido: 20/Junio/2014
Localización: Alicante
Estado: Sin conexión
Puntos: 493
Enlace directo a este mensaje Enviado: 14/Septiembre/2019 a las 17:13
Buenos días,

He creado una base de datos a través de la cual envío correos a través de Microsoft Outlook, todos los correos se me quedan almacenados en una tabla. ¿Hay alguna manera de vincular éstos registros de esta tabla con la bandeja de correos enviados de Outlook?, es decir, que yo pueda, con un enlace y con un clic, ir al correo que envié en su día en Outlook. Conectar la bandeja de enviados de Outlook y Access. Agradecería sugerencias o ejemplos.

Muchas gracias de antemano

Saludos
Arriba
 Responder Responder Página  <12
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable