Descargar adjuntos de Oultook cuando se reciba un correo con cierto asunto

0

 


Los siguientes códigos hay que copiar/pegar dentro de: thisOutlookSesion





Reiniciaremos Outlook y ya estará listo para utiliza. Ahora cada vez que se reciba un correo electrónico y en el asunto del mismo coincida total o parcialmente, se nos descargara el fichero adjunto en la carpeta que hayamos especificado previamente.

Código #1:


Private withEvents ortems As outlook.Items

    

Private Sub Application_Startup()

Dim OutlookApp As Outlook.Application

Dim oNameSpace As Outlook.NameSpace

Set OutlookApp = Outlook.Application

Set oNameSpace = Outlook.GetNamespace("MAPI")

Set oItems = oNameSpace.GetDefaultFolder(olFolderInbox).Items

Debug.Print "Desencadenador iniciado" & VBA.Now

End Sub


Código #2:


Private Sub oltems_ItemAdd(ByVal Item As Object)

Dim myMail As Outlook.MailItem

Dim oAtt As Outlook.Attachment

If VBA.TypeName(Item) = "MailItem" Then

    Set myMail = Item

    If myMail.Subject Like "*" & "Coincidencia con el Asusto" & "*" Then

        For Each oAtt In myMail.Attachments

            oAtt.SaveAsFile "Ruta Carpeta" & oAtt.FileName

        Next oAtt

    End If

End If

Set myMail = Nothing

End Sub

Entradas que pueden interesarte

Entradas más recientes Entradas antiguas

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel