Cookies membantu kami menyampaikan perkhidmatan kami. Dengan menggunakan perkhidmatan kami, anda bersetuju dengan penggunaan cookies.
Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar
x

or

Bagaimana untuk menyimpan hanya lampiran khusus (excel) dalam Outlook?

Outlook menyediakan ciri Simpan Semua Lampiran untuk anda dengan cepat menyimpan semua lampiran dalam e-mel ke folder tertentu sekaligus. Bagaimanapun, jika anda ingin menyimpan hanya jenis lampiran tertentu dalam e-mel, seperti lampiran Excel, dokumen Word dan sebagainya, apa yang boleh anda lakukan untuk mencapainya? Di sini kami menyediakan kaedah VBA untuk menyelesaikan masalah ini.

Simpan hanya lampiran tertentu dalam Outlook


Mudah simpan semua lampiran dari beberapa e-mel terpilih ke folder:

Dengan Tanggalkan semua lampiran utiliti Kutools untuk Excel, anda boleh menyimpan semua lampiran daripada beberapa e-mel terpilih dengan mudah ke folder tertentu dalam Outlook seperti yang ditunjukkan dalam tangkapan di bawah.

Kutools untuk Outlook: dengan lebih daripada 40 Outlook tambahan berguna, bebas untuk mencuba tanpa had pada hari 45. Muat turun dan percubaan percuma Sekarang!

Kutools untuk Outlook: 100 + Alat Advanced Baru untuk Outlook.
Tab Pejabat: Dayakan Pengeditan dan Penyemakan Tab di Pejabat, Sama seperti Chrome, Firefox, IE 8 / 9 / 10.
Menu Klasik: Bawa Menu Lama dan Bar Alat Kembali ke Office 2007, 2010, 2013, 2016 dan 2019.

Simpan hanya lampiran tertentu dalam Outlook

Kod di bawah VBA boleh membantu menyimpan hanya lampiran tertentu dalam e-mel atau beberapa e-mel ke folder tertentu. Sila buat seperti berikut.

1. Lancarkan Outlook anda, dalam senarai mel, pilih e-mel atau berbilang e-mel yang anda akan menyimpan lampiran khusus dari.

2. Tekan butang Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap. Dalam tetingkap pembukaan, klik Memasukkan > Modul, dan kemudian salin di bawah kod VBA ke dalam tetingkap Modul.

Kod VBA: Simpan hanya lampiran khusus dalam e-mel atau beberapa e-mel ke 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. klik Alatan > Rujukan, Dalam Rujukan - Projek dialog, periksa Microsoft Scripting Runtime kotak dan klik OK butang.

4. Tekan butang F5 kunci untuk menjalankan kod. Dalam keluar Semak imbas untuk Folder kotak dialog, pilih satu folder untuk menyimpan lampiran.

5. Dan kemudian, klik OK, dalam perkara berikut Kutools untuk Outlook kotak dialog, masukkan lanjutan fail lampiran yang akan anda simpan ke dalam kotak teks dan klik OK.

Kemudian hanya lampiran yang dinyatakan disimpan.

Nota:

1. Jika anda ingin menyimpan jenis lampiran yang berlainan, sila masukkan sambungan fail ke dalam kotak teks dan sisihkannya dengan koma.

2. Selepas menyimpan, laluan penjimatan lampiran dipaparkan pada badan mesej. Anda boleh membuka lampiran dengan mengklik pautan hyperlink secara langsung.


Related articles:



Kutools untuk Outlook

Lebih daripada Fungsi Lanjutan 100 untuk Outlook 2010, 2013, 2016, 2019 dan 365

kutools pukulan skrin untuk outlook kecil untuk sepanduk 201812

Lebih Ciri-ciri | Muat turun percuma | Hanya $ 39.00 untuk beratus-ratus fungsi

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.