visualizar correo enviado |
Responder | Página <123> |
Autor | |
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
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. |
|
valencianoblaugrana
Asiduo Unido: 20/Junio/2014 Localización: Alicante Estado: Sin conexión Puntos: 493 |
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
|
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
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.
|
|
valencianoblaugrana
Asiduo Unido: 20/Junio/2014 Localización: Alicante Estado: Sin conexión Puntos: 493 |
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 |
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
Enviado: 23/Agosto/2020 a las 12:51 |
El método correcto es ese ... pero no le pasas el valor adecuado.
|
|
valencianoblaugrana
Asiduo Unido: 20/Junio/2014 Localización: Alicante Estado: Sin conexión Puntos: 493 |
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 |
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
Enviado: 23/Agosto/2020 a las 15:45 |
valencianoblaugrana
Asiduo Unido: 20/Junio/2014 Localización: Alicante Estado: Sin conexión Puntos: 493 |
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 |
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
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. |
|
valencianoblaugrana
Asiduo Unido: 20/Junio/2014 Localización: Alicante Estado: Sin conexión Puntos: 493 |
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
|
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
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? |
|
valencianoblaugrana
Asiduo Unido: 20/Junio/2014 Localización: Alicante Estado: Sin conexión Puntos: 493 |
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 |
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
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 ?
|
|
valencianoblaugrana
Asiduo Unido: 20/Junio/2014 Localización: Alicante Estado: Sin conexión Puntos: 493 |
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
|
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
Enviado: 28/Agosto/2020 a las 20:17 |
Pues con los datos que das bien poco podemos hacer desde aquí ...
|
|
Responder | Página <123> |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |