1 votos

Crear regla en Outlook para copiar el correo electrónico a la carpeta remota?

Tenemos Outlook 2013 instalado en nuestras PC Windows 7 .

En mi bandeja de entrada recibiré un correo electrónico diario donde el asunto incluirá el texto "Excel Sales for today" e incluirá un archivo adjunto de Excel.

¿Puedo crear una regla, para ejecutar diariamente, que tome ese correo electrónico y guarde el archivo de Excel adjunto en una carpeta en una computadora remota? En mi caso, se copiaría a \\RemoteServer\c$\Temp , pero también puedo mapearlo si es necesario.

1voto

HackSlash Puntos 140

Sí, pero no el uso de una regla de Outlook. Hay muchos ejemplos de cómo hacerlo con una macro de VBA. Dentro de la "ThisOutlookSession" objeto puede hacer desencadenadores de eventos para procesar el correo como se llega, como una regla de Outlook.

La última vez que me respondió esta pregunta en StackOverflow era este: https://stackoverflow.com/questions/51637693/outlook-2016-select-script-window-in-rules-wizard-is-blank/51638058#51638058

La respuesta se parece a esto: Poner este código en el "ThisOutlookSession" Objeto. Sólo funciona a partir de ahí.

Option Explicit
Private WithEvents inboxItems As Outlook.Items

' Set up the listener on the Inbox
Private Sub Application_Startup()
    Dim outlookApp As Outlook.Application
    Dim objectNS As Outlook.NameSpace

    Set outlookApp = Outlook.Application
    Set objectNS = outlookApp.GetNamespace("MAPI")
    Set inboxItems = objectNS.GetDefaultFolder(olFolderInbox).Items
End Sub

' Send new mail to the attachment processor
Private Sub inboxItems_ItemAdd(ByVal Item As Object)
    If TypeName(Item) = "MailItem" Then
        Dim EMail As Outlook.MailItem
        Set EMail = Item
        Debug.Print "Incoming Data."
        SaveAttachmentsToDisk EMail
        Set EMail = Nothing
    End If
End Sub

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)  
    Dim oAttachment As Outlook.Attachment
    Dim sSaveFolder As String
    sSaveFolder = "\\RemoteServer\c$\Temp\"

    For Each oAttachment In MItem.Attachments
        oAttachment.SaveAsFile sSaveFolder & oAttachment.FileName
    Next
End Sub

EnMiMaquinaFunciona.com

EnMiMaquinaFunciona es una comunidad de administradores de sistemas en la que puedes resolver tus problemas y dudas.
Puedes consultar las preguntas de otros sysadmin, hacer tus propias preguntas o resolver las de los demás.

Powered by: