Macro que busca palabras en outlook
Por ejemplo, se me ocurre que en un excel ponga en una columna (columna A) la lista de las palabras o frase a buscar y esta extraiga la ubicación del correo (En columna b).
Se que escribiendo la palabra en outlook veo los correos que coinciden con la palabra, pero necesito buscar muchos correos y es super tardado buscar uno por uno. Spero me puedan ayudar con este tema que me tiene perdida.
2 respuestas
H o l a:
Prueba lo siguiente:
Sub LeerCorreo()
'Por.Dante Amor
'Fuente: http://stackoverflow.com/questions/8322432/using-visual-basic-to-access-subfolder-in-inbox
'fuente: http://www.snb-vba.eu/VBA_Outlook_external_en.html
Dim olApp As Outlook.Application
Dim objNS As Outlook.Namespace
Dim olFolder As Outlook.MAPIFolder
Dim msg As Outlook.MailItem
'
Application.ScreenUpdating = False
Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
'
carpeta = "Respaldo 2016 1 semestre"
Set olFolder = objNS.Folders(carpeta)
Set MyItems = olFolder.Items
i = 2
Columns("B:C").Clear
NumItems = olFolder.Items.Count
f = 1
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
For n = 1 To NumItems
asunto = MyItems(n).Subject
cuerpo = MyItems(n).body
If InStr(1, UCase(asunto), UCase(Cells(i, "A"))) > 0 Then
Cells(f, "B") = asunto
Cells(f, "C") = cuerpo
f = f + 1
End If
Next
Next
Columns("B:C").WrapText = False
Application.ScreenUpdating = True
MsgBox "Fin"
End SubTienes que cargar tu archivo .pst nuevamente en outlook
Por ejemplo, yo le puse a mi carpeta "Respaldo 2016 1 semestre", carga tu archivo y cambia en la macro por el nombre de tu archivo.
En una hoja nueva en la columna A, pon las palabras que deseas buscar, la macro buscará cada palabra en el asunto y en el cuerpo del correo, si encuentra la palabra, entonces en la columna B te pondrá el asunto y en la C el cuerpo del correo.
Prueba la macro y después agregamos lo que te haga falta.
Sal u dos
I. Hola María, ¿de qué versión de Outlook se trata?, creo que esto se aproxima bastante a lo que necesitas
http://computerhoy.com/paso-a-paso/software/trucos-office-2013-busca-guarda-mensajes-adjuntos-4637
No lo sé con seguridad pero creo que otra opción es activar el modo programador, y desde el activar el buscador que propones.
https://msdn.microsoft.com/es-es/library/office/ff867632.aspx