Paano i-save lamang ang tiyak (excel) attachment sa Outlook?

Nagbibigay ang Outlook ng isang tampok na I-save ang Lahat ng Mga Attachment para mabilis mong i-save ang lahat ng mga attachment sa isang email sa isang partikular na folder nang sabay-sabay. Gayunpaman, kung gusto mong i-save lamang ang partikular na uri ng attachment sa isang email, tulad ng Excel attachment, Word na dokumento at iba pa, ano ang maaari mong gawin upang makamit ito? Narito nagbibigay kami ng isang paraan ng VBA upang malutas ang problema.

I-save lamang ang partikular na attachment sa Outlook

---

---

I-save lamang ang partikular na attachment sa Outlook

Ang nasa ibaba ng VBA code ay maaaring makatulong upang i-save lamang ang partikular na attachment sa isang email o maramihang mga email sa isang partikular na folder. Mangyaring gawin tulad ng sumusunod.

1. Ilunsad ang iyong Outlook, sa listahan ng mail, pumili ng isang email o maramihang mga email na iyong i-save ang partikular na attachment mula sa.

2. pindutin ang Alt + F11 key upang buksan ang Microsoft Visual Basic para sa Mga Application window. Sa pambungad na window, mag-click Isingit > Module, at pagkatapos ay kopyahin sa ibaba ang VBA code sa window ng Module.

VBA code: I-save lamang ang partikular na attachment sa isang email o maramihang mga email sa isang folder

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. click Kagamitan > Mga sanggunian, Sa Mga sanggunian - Proyekto dialog, lagyan ng tsek ang Microsoft Scripting Runtime kahon at i-click ang OK button.

4. pindutin ang F5 key upang patakbuhin ang code. Sa pop out Mag-browse para sa Folder dialog box, pumili ng isang folder upang i-save ang mga attachment.

5. At pagkatapos, mag-click OK, sa mga sumusunod Kutools para sa Outlook dialog box, ipasok ang extension ng file ng attachment na iyong i-save sa text box at i-click OK.

Pagkatapos lamang ang tinukoy na mga attachment ay nai-save.

Mga Tala:

1. Kung nais mong i-save ang iba't ibang uri ng mga attachment, mangyaring ipasok ang mga extension ng file sa text box at paghiwalayin ang mga ito sa pamamagitan ng kuwit.

2. Pagkatapos ng pag-save, ang isang path ng pag-save ng attachment ay ipinapakita sa katawan ng mensahe. Maaari mong buksan ang attachment sa pamamagitan ng pag-click nang direkta sa hyperlink.

---

Kaugnay na mga artikulo:

• Paano i-save ang lahat ng mga attachment mula sa mga mensaheng e-mail sa Outlook?
• Paano tanggalin ang lahat ng mga attachment mula sa email sa Outlook?

---

---

Kutools para sa Outlook

Higit sa 100 Advanced na Mga Function para sa Outlook 2010, 2013, 2016, 2019 at 365

Higit pang mga Tampok | Libreng pag-download | Tanging $ 39.00 para sa daan-daang mga pag-andar