Cookies matulungan kaming ihatid ang aming mga serbisyo. Sa pamamagitan ng paggamit sa aming mga serbisyo, sumasang-ayon ka sa aming paggamit ng cookies.
Tip: Iba pang mga wika ay isinaling-Google. Maaari mong bisitahin ang English bersyon ng link na ito.
mag-log in
x
or
x
x
Magrehistro
x

or

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


Madaling i-save ang lahat ng mga attachment mula sa maraming napiling mga email sa folder:

Kasama ang Tanggalin ang lahat ng mga kalakip utility ng Kutools para sa Excel, madali mong mai-save ang lahat ng mga attachment mula sa maraming napiling mga email sa tinukoy na folder sa Outlook habang nagpakita ang screenshot sa ibaba.

Kutools para sa Outlook: may higit sa 40 madaling gamiting Outlook add-in, libre upang subukan nang walang limitasyon sa 45 na araw. I-download at libreng pagsubok Ngayon!

Kutools para sa Outlook: 100 + Bagong Advanced na Mga Tool para sa Outlook.
Tab ng Tanggapan: Paganahin ang Pag-edit ng Tab at Pag-browse sa Opisina, Tulad ng Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu: Dalhin ang mga Old Menu at Toolbars Bumalik sa Office 2007, 2010, 2013, 2016 at 2019.

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:



Kutools para sa Outlook

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

screen shot kutools para sa pananaw maliit na maliit para sa banner 201812

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

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.