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

Tema cerradovisualizar correo enviado

 Responder Responder Página  <123>
Autor
Mensaje
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 22/Agosto/2020 a las 18:20
Si.

Estos son los asuntos de varios correos de 1&1:

RE: Prórroga del periodo de validez de su(s) dominio(s), C835607418
RE: C278148624 Re: CSCF_ES_info(CSCF_ES_info)
Re: RE: Attacks originating from your 1&1 Server [Ticket AB40583151]

Como ves son respuestas, y lo remarcado es el 'código' único del hilo de correos.


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
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: 22/Agosto/2020 a las 20:04
Buenas tardes
Acabo de poner el siguiente codigo en el botón de visualizar el mensaje identificando el asunto del mismo.

Private Sub Visualizar_Click()
Dim f As Outlook.Folder
Dim Msg2 As Outlook.MailItem
Dim rs As DAO.Recordset
Dim Ns As Outlook.NameSpace
Dim OutLookApp  As Outlook.Application
Dim strSQL As String

strSQL = "SELECT * FROM Tdatos"

    Set OutLookApp = CreateObject("Outlook.Application")
     
    Set Ns = OutLookApp.GetNamespace("MAPI")
    
    Set rs = CurrentDb.OpenRecordset(strSQL)
    
    Set f = Ns.GetDefaultFolder(olFolderSentMail)
    
                
     While Not rs.EOF
    
       ' Debug.Print rs("EntryID")
        
     
           If Me.txtAsunto_vis = rs!txtAsunto Then
           Debug.Print rs!txtAsunto
            Set Msg2 = Ns.GetItemFromID(rs!txtAsunto)
            ' visualizamos el correo
            Msg2.Display
            Exit Sub
           Else
           rs.MoveNext
           End If
        
        
     Wend
   
End Sub

Me da el error de que  no puede abrir el elemento, a pesar de identificarlo correctamente.

Muchas gracias
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 22/Agosto/2020 a las 22:03
No creo que lo estés identificando correctamente, estás recuperando un correo usando el asunto, no el Id del mismo.


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
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: 23/Agosto/2020 a las 11:37
Buenos días,

Cual seria el método correcto. Estoy buscando dentro de las alternativas de los método de outlook y no encuentro la adecuada.

Muchas gracias
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 23/Agosto/2020 a las 12:51
El método correcto es ese ... pero no le pasas el valor adecuado.
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
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: 23/Agosto/2020 a las 15:10
Buenas tardes
Cuál sería el valor adecuado?
Llevo mirando todas las propiedades y métodos del objeto y no lo encuentro. De ahí mi consulta

Gracias
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 23/Agosto/2020 a las 15:45
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
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: 23/Agosto/2020 a las 16:18
Muchas gracias
Pero quiero que busque por el asunto, no por el entryID, así es como lo tenía montado antes.
Saludos
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 23/Agosto/2020 a las 17:50
Por eso te he pasado ese enlace. Tienes que abrir directamente la carpeta de correos de Outlook y hacer un barrido de los correos hasta que encuentres el que necesitas. No te vale guardar el EntryID en un recorset propio porque cambia con las distintas acciones que realizas en el correo (p.ej. cuando cambias el correo de una carpeta a otra).

Y por cierto, para entendernos, estás intentando abrir un registro del fichero de clientes buscando en el campo código del mismo usando el nombre y los apellidos, eso no podría funcionar nunca.


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
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: 27/Agosto/2020 a las 20:29
He puesto el siguiente codigo pero  me sigue dando error de bloque with
Private Sub Visualizar_Click()
Dim f As Outlook.Folder
Dim Msg2 As Object
Dim rs As DAO.Recordset
Dim Ns As Outlook.NameSpace
Dim OutLookApp  As Outlook.Application
Dim strSQL As String

strSQL = "SELECT * FROM Tdatos"

    Set OutLookApp = CreateObject("Outlook.Application")
     
    Set Ns = OutLookApp.GetNamespace("MAPI")
    
    Set rs = CurrentDb.OpenRecordset(strSQL)
    
    
    Set f = Ns.GetDefaultFolder(olFolderSentMail)
    
   
     
          
     While Not rs.EOF
    
If Me.txtAsunto_vis = rs!txtAsunto Then
           
            Set Msg2.Subject = rs!txtAsunto
            ' visualizamos el correo
            Msg2.Display
            Exit Sub
           Else
           rs.MoveNext
End If
        
 Wend
 
  
End Sub

Muchas gracias
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 27/Agosto/2020 a las 21:41
Es el mismo código del otro día ¿no?


... por cierto, analicemos el código que has escrito (repetido del otro día)

    Set OutLookApp = CreateObject("Outlook.Application")
... abres una app Outlook, bien
     
    Set Ns = OutLookApp.GetNamespace("MAPI")
... abres el espacio de trabajo, bien     
    
    Set rs = CurrentDb.OpenRecordset(strSQL)
... abres el recordset con los mensajes, vale    
    
    Set f = Ns.GetDefaultFolder(olFolderSentMail)
... seleccionas la carpeta de correos enviados, bien (si es ahí dónde quieres buscar)     

If Me.txtAsunto_vis = rs!txtAsunto Then
           
            Set Msg2.Subject = rs!txtAsunto
            ' visualizamos el correo
            Msg2.Display
            Exit Sub
           Else
           rs.MoveNext
End If
        
 Wend
- Haces un bucle en el recordset, hasta que encuentras un registro con el campo asunto igual que un campo de texto llamado asunto, vale (hay otras formas de hacerlo más eficiente)
- una vez encontrado, creas un objeto igual al campo asunto del recordset y le dices que lo muestre (suponiendo que tuviera el método Display)
    - lo que has hecho es decir que el objeto Msg2 es un campo de texto (probablemente, no me atrevería a jurarlo, porque eso del Msg2.Subject a saber como se lo va a tomar access)
    - no tiene ninguna relación con nada de lo declarado perteneciente a Outlook
    - y por cierto, para hacer eso te valdría con hacer:
          Set Msg2.Subject = me.txtAsunto_vis
      y te ahorras el recordset y el bucle

La verdad es que para mi no tiene ni pies ni cabeza, vamos, que estas copiando trozos de código de varios sitios, poniéndolos juntos y a ver si funciona.

Empecemos de nuevo:
  - ¿Te has mirado el enlace que te puse el otro día?


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
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: 28/Agosto/2020 a las 13:10
Buenos días,

Si me estuve mirando el enlace, donde venia un ejemplo de como buscar un determinado mensaje de correo a través de su EntryID. Así es como lo tenia yo montado desde un principio y me funcionaba hasta que volví a reinstalar Outlook y perdió su funcionalidad ya que los EntryID cambian. Ahora lo que deseo es hacer es la búsqueda del mensaje a través del ASUNTO tal y como me comentaste.

Un saludo
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 28/Agosto/2020 a las 13:59
Perfecto, en el enlace que te he puesto hay un ejemplo de como barrer una carpeta de outlook buscando 'algo'.

¿ Puedes poner aquí lo que has hecho basándote en ese ejemplo ?
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
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: 28/Agosto/2020 a las 19:34
Buenas tardes,
He probado con el ejemplo que me pusiste, copiándolo en un módulo para intentar hacerlo funcionar y seguirlo para ver cada cosa que es. Pero me esta dando error constantemente. Seguramente hay variables que declarar o cosas que faltan, alguna referencia. Me supera, comprendo que es algo complejo para mi lo que pretendo hacer y no me gustaría alargar el hilo de manera indefinida sin llegar a una solución.

Muchas gracias

Saludos
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 28/Agosto/2020 a las 20:17
Pues con los datos que das bien poco podemos hacer desde aquí ...

Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
 Responder Responder Página  <123>
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable