Arsipkan tanpa lampiran oleh VBA

Arsip tanpa lampiran oleh Kutools for Outlook

Metode ini akan memperkenalkan VBA untuk menghapus semua lampiran dari folder tertentu yang akan Anda arsipkan, lalu Anda dapat mengarsipkan tanpa lampiran. Harap lakukan sebagai berikut:

1. di surat lihat, pilih folder yang akan Anda arsipkan, dan tekan lain + F11 kunci untuk membuka jendela Microsoft Visual Basic for Applications.

2. Klik Menyisipkan > Modul, lalu tempelkan di bawah VBA ke jendela modul baru.

VBA: Hapus semua lampiran dari folder email yang dipilih di Outlook

Public Sub SaveDeleteAttachments()
Dim xMailItem As Outlook.MailItem 'Object
Dim xAttachments As Outlook.Attachments
Dim i As Long
Dim xFolder As Folder
Dim xFilePath As String
Dim xFldPath As String
Dim xDeletedFilePath As String
On Error Resume Next
xFldPath = CreateObject("WScript.Shell").SpecialFolders(16)
xFldPath = xFldPath & "\MyAttachments"
If Dir(xFldPath, vbDirectory) = "" Then
MkDir xFldPath
End If
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
For Each xMailItem In xFolder.Items
If xMailItem.Class = olMail Then
Set xAttachments = xMailItem.Attachments
While xAttachments.Count > 0
xFilePath = xAttachments.Item(1).FileName
xFilePath = xFldPath & "\" & xFilePath
xAttachments.Item(1).SaveAsFile xFilePath
xAttachments.Item(1).Delete
If xMailItem.BodyFormat <> olFormatHTML Then
xDeletedFilePath = xDeletedFilePath & vbCrLf & "<file://" & xFilePath & ">"
Else
xDeletedFilePath = xDeletedFilePath & "
" & "" & xFilePath & ""
End If
Wend
If xDeletedFilePath <> "" Then
If xMailItem.BodyFormat <> olFormatHTML Then
xMailItem.Body = "The file(s) were saved to: " & xDeletedFilePath & vbCrLf & xMailItem.Body
Else
xMailItem.HTMLBody = "
" & _
"The file(s) were saved to: " & xDeletedFilePath & "
" & xMailItem.HTMLBody
End If
xMailItem.Save
xDeletedFilePath = ""
End If
End If
Next
Exit Sub:
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

3. Tap F5 atau klik Run tombol untuk menjalankan kode. Kemudian semua lampiran segera dihapus dari folder email yang dipilih.

4. Klik File > Info > Tools > Bersihkan Item Lama (Atau File > Info > Alat Pembersih > arsip).

5. Pada kotak dialog Arsip, silakan klik untuk menyorot folder yang disalin, ketik HARI INI dalam Arsipkan item yang lebih lama dari kotak, dan kemudian klik Browse tombol. Lihat tangkapan layar:

6. Pada kotak dialog Buka File Data Outlook, silakan buka folder tempat Anda akan menyimpan file PST yang diarsipkan, beri nama file PST di Nama file kotak, dan kemudian klik OK tombol. Lihat tangkapan layar:

7. Sekarang Anda kembali ke kotak dialog Arsip, klik OK tombol untuk menyelesaikan pengarsipan.
Sejauh ini, Anda telah mengarsipkan folder email tanpa lampiran apa pun.

Jika Anda menginstal Kutools for Outlook, Anda dapat menerapkannya Lepaskan Semua fitur untuk dengan cepat menghapus semua lampiran dari folder tertentu yang akan Anda arsipkan, lalu mengarsipkan tanpa lampiran dengan mudah.

1. di surat lihat, buka folder email tertentu yang akan Anda arsipkan, pilih semua email dengan menekan Ctrl + A tombol, lalu klik Kutools > Lepaskan Semua. Lihat tangkapan layar:

2. Di kotak dialog Silakan pilih folder, klik Browse tombol  untuk menentukan folder tempat Anda menyimpan lampiran, tentukan gaya subfolder dari buat subfolder dengan gaya berikut daftar drop-down, dan klik Ok tombol. Lihat tangkapan layar:

3. Silahkan klik Yes Tombol dan OK tombol berturut-turut di kotak dialog yang muncul.

4. Lanjutkan untuk mengklik File > Info > Tools > Bersihkan Item Lama (Atau File > Info > Alat Pembersih > arsip).

5. Di kotak dialog Arsip, silakan klik untuk menyorot folder tertentu yang akan Anda arsipkan tanpa lampiran, ketik HARI INI dalam Arsipkan item yang lebih lama dari kotak, dan kemudian klik Browse tombol. Lihat tangkapan layar:

6. Pada kotak dialog Buka File Data Outlook, silakan buka folder tempat Anda akan menyimpan file PST yang diarsipkan, beri nama file PST di Nama file kotak, dan kemudian klik OK tombol. Lihat tangkapan layar:

7. Sekarang Anda kembali ke kotak dialog Arsip, klik OK tombol untuk menyelesaikan pengarsipan.

Sejauh ini, Anda telah mengarsipkan folder email tertentu tanpa lampiran.

Bagaimana cara mengarsipkan lampiran secara otomatis hanya di Outlook?

Bagaimana cara mengarsipkan email berdasarkan tahun / bulan / tanggal di Outlook?