Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com desar només el fitxer adjunt específic (excel) a l'Outlook?

Outlook proporciona una funció Desa tots els fitxers adjunts perquè pugui desar ràpidament tots els fitxers adjunts en un correu electrònic a una carpeta específica alhora. Tanmateix, si voleu desar només un tipus específic de fitxer adjunt en un correu electrònic, com ara el fitxer adjunt d'Excel, el document de Word, etc., què podeu fer per aconseguir-ho? Aquí proporcionem un mètode VBA per resoldre el problema.

Deseu només fitxers adjunts específics a Outlook


Desa fàcilment tots els fitxers adjunts de diversos correus electrònics seleccionats a la carpeta:

Amb el Separar tots els fitxers adjunts utilitat de Kutools for Excel, podeu desar fàcilment tots els fitxers adjunts de diversos correus electrònics seleccionats a la carpeta especificada a Outlook tal com es mostra a la captura de pantalla.

Kutools per Outlook: amb més complements d'Outlook de 40, gratuïts per intentar sense limitacions en 45 dies. Baixada i prova gratuïta Ara!

Kutools per Outlook: 100 + Noves eines avançades per a Outlook.
Pestanya d'Office: Activa l'edició i la navegació amb pestanyes a l'oficina, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menú Classic: Porta menús antics i barres d'eines cap enrere a Office 2007, 2010, 2013, 2016 i 2019.

Deseu només fitxers adjunts específics a Outlook

El codi de sota de VBA pot ajudar a guardar només un fitxer adjunt específic en un correu electrònic o diversos missatges de correu electrònic a una carpeta específica. Feu el següent.

1. Inicieu el vostre Outlook, a la llista de correu, seleccioneu un correu electrònic o diversos missatges de correu electrònic que guardareu un fitxer adjunt específic.

2. Premeu el botó Alt + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra. A la finestra d'obertura, feu clic a Insereix > Mòduls, i després copieu el codi VBA per sota de la finestra Mòdul.

Codi VBA: desa només un fitxer adjunt específic en un correu electrònic o diversos missatges de correu electrònic a una carpeta

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20181130
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").BrowseforFolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        xFilesSavePath = ""
        For Each xAttachment In xItem.Attachments
            xFilePath = xSaveFolder & xAttachment.FileName
            xExt = "." & xFSO.GetExtensionName(xFilePath)
            xExtArr = VBA.Split(xExtStr, ",")
            xS = VBA.Filter(xExtArr, xExt)
            If UBound(xS) > -1 Then
                xAttachment.SaveAsFile xFilePath
                If xItem.BodyFormat <> olFormatHTML Then
                    xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
                Else
                    xFilesSavePath = xFilesSavePath & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next
        If xItem.BodyFormat <> olFormatHTML Then
            xItem.Body = vbCrLf & "The file(s) were saved to " & xFilesSavePath & vbCrLf & xItem.Body
        Else
            xItem.HTMLBody = "<p>" & "The file(s) were saved to " & xFilesSavePath & "</p>" & xItem.HTMLBody
        End If
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3. clic instruments > referències, A la Referències - Projecte diàleg, marqueu el Microsoft Scripting Runtime box i feu clic a la icona OK botó.

4. Premeu el botó F5 clau per executar el codi. En sortir Cerca la carpeta quadre de diàleg, seleccioneu una carpeta per guardar els fitxers adjunts.

5. I després, feu clic a OK, en els següents Kutools per Outlook quadre de diàleg, introduïu l'extensió del fitxer adjunt que guardareu al quadre de text i feu clic a OK.

A continuació, només es guarden els fitxers adjunts especificats.

notes:

1. Si voleu desar diferents tipus d'adjunts, introduïu les extensions de fitxer al quadre de text i separeu-les per coma.

2. Després d'desar, es mostrarà una ruta d'accés a l'adjunció al cos del missatge. Podeu obrir el fitxer adjunt fent clic directament a l'hipervincle.


Articles relacionats:



Kutools per Outlook

Més de 100 Advanced Functions for Outlook 2010, 2013, 2016, 2019 i 365

captura de pantalla kutools per a les minúscules perspectives per a l&#39;anunci 201812

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.