Ekler olmadan VBA ile arşivleyin

Outlook için Kutools tarafından eksiz arşivleyin

Bu yöntem, arşivleyeceğiniz belirtilen klasördeki tüm ekleri silmek için bir VBA sunacak ve ardından ek olmadan arşivleyebilirsiniz. Lütfen aşağıdaki işlemleri yapın:

1. In posta görüntüleyin, arşivleyeceğiniz klasörü seçin ve Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için tuşlar.

2. tıklayın Ekle > modülve ardından yeni modül penceresine VBA'nın altına yapıştırın.

VBA: Outlook'ta seçilen posta klasöründeki tüm ekleri kaldırın

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. basın F5 anahtarı veya tıklayın koşmak kodu çalıştırmak için düğmeye basın. Ardından, seçilen posta klasöründen tüm ekler hemen kaldırılır.

4. tıklayın fileto > Bilgi > Tools > Eski Öğeleri Temizle (Ya da fileto > Bilgi > Temizleme Araçları > Arşiv).

5. Arşiv iletişim kutusunda, lütfen kopyalanan klasörü vurgulamak için tıklayın, yazın BUGÜN içinde Şundan eski öğeleri arşivleyin: ve ardından Araştır buton. Ekran görüntüsüne bakın:

6. Outlook Veri Dosyalarını Aç iletişim kutusunda, lütfen arşivlenmiş PST dosyasını içine kaydedeceğiniz klasörü açın, PST dosyasını dosya adı ve ardından OK buton. Ekran görüntüsüne bakın:

7. Şimdi Arşiv iletişim kutusuna döndüğünüzde, lütfen OK Arşivlemeyi bitirmek için düğmesine basın.
Şimdiye kadar, posta klasörünü herhangi bir ek olmadan arşivlediniz.

Kutools for Outlook yüklüyse, uygulayabilirsiniz Tümünü Ayır Arşivleyeceğiniz belirtilen klasördeki tüm ekleri hızlı bir şekilde silme ve ardından eklentiler olmadan kolayca arşivleme özelliği.

1. In posta görüntüleyin, arşivleyeceğiniz belirtilen posta klasörünü açın, tüm e-postaları düğmesine basarak seçin Ctrl + A anahtarları ve ardından tıklayın Kutools > Tümünü Ayır. Ekran görüntüsüne bakın:

2. Lütfen bir klasör seçin iletişim kutusunda, Araştır düğmesine tıklayın  eki kaydedeceğiniz klasörü belirtmek için, listeden bir alt klasör stili belirtin. aşağıdaki stilde alt klasörler oluşturun açılır listeyi tıklayın ve Ok buton. Ekran görüntüsüne bakın:

3. lütfen tıklayın Evet düğmesi ve OK Açılan iletişim kutularında art arda düğmesine basın.

4. Tıklamaya git fileto > Bilgi > Tools > Eski Öğeleri Temizle (Ya da fileto > Bilgi > Temizleme Araçları > Arşiv).

5. Arşiv iletişim kutusunda, ekleri olmadan arşivleyeceğiniz belirtilen klasörü vurgulamak için tıklayın, yazın BUGÜN içinde Şundan eski öğeleri arşivleyin: ve ardından Araştır buton. Ekran görüntüsüne bakın:

6. Outlook Veri Dosyalarını Aç iletişim kutusunda, lütfen arşivlenmiş PST dosyasını içine kaydedeceğiniz klasörü açın, PST dosyasını dosya adı ve ardından OK buton. Ekran görüntüsüne bakın:

7. Şimdi Arşiv iletişim kutusuna döndüğünüzde, lütfen OK Arşivlemeyi bitirmek için düğmesine basın.

Şimdiye kadar, belirtilen posta klasörünü zaten ek olmadan arşivlediniz.

Ekleri yalnızca Outlook'ta otomatik olarak nasıl arşivleyebilirim?

Outlook'ta e-postaları yıl / ay / tarihe göre nasıl arşivleyebilirim?