Արխիվացրեք առանց VBA- ի հավելվածների

Արխիվացրեք առանց Kutools- ի հավելվածների Outlook- ի համար

Այս մեթոդը կներկայացնի VBA ՝ բոլոր կցորդները ջնջելու համար նշված թղթապանակից, որը դուք արխիվացնելու եք, և ապա կարող եք արխիվացնել առանց հավելվածների: Խնդրում ենք անել հետևյալը.

1, Մեջ փոստ դիտեք, ընտրեք պահոցը, որը դուք արխիվացնելու եք և սեղմեք ալտ + F11 Microsoft Visual Basic հավելվածների համար պատուհանը բացելու ստեղները:

2: Սեղմեք Տեղադրել > Մոդուլներ, և ապա տեղադրեք VBA- ի ներքևում նոր մոդուլի պատուհանում:

VBA. Հեռացրեք բոլոր կցորդները 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. Սեղմեք F5 ստեղնը կամ սեղմել Վազում կոճակը՝ կոդը գործարկելու համար: Այնուհետև բոլոր հավելվածները անմիջապես հեռացվում են ընտրված փոստի թղթապանակից:

4: Սեղմեք Ֆայլ > Info > Գործիքներ > Մաքրել հին իրերը (Կամ Ֆայլ > Info > Մաքրման գործիքներ > Արխիվ).

5. Արխիվ երկխոսության վանդակում խնդրում ենք սեղմել՝ ընդգծելու պատճենված թղթապանակը, մուտքագրեք ԱՅՍՕՐ է Արխիվացրեք ավելի քան հին իրերը տուփը, ապա կտտացրեք Թերթել կոճակ Տեսեք,

6. Բաց Outlook Data Files երկխոսության դաշտում բացեք այն թղթապանակը, որտեղ կպահեք արխիվացված PST ֆայլը, անվանեք PST ֆայլը Ֆայլի անուն տուփը, ապա կտտացրեք OK կոճակ Տեսեք,

7, Այժմ դուք վերադառնում եք Արխիվ երկխոսության տուփ, սեղմեք այստեղ OK կոճակ՝ արխիվացումն ավարտելու համար:
Մինչ այժմ դուք արխիվացրել եք փոստի թղթապանակը առանց որևէ հավելվածի:

Եթե ​​Outlook- ի համար տեղադրված Kutools ունեք, կարող եք կիրառել այն Անջատել բոլորը հնարավորություն՝ արագ ջնջելու բոլոր հավելվածները նշված թղթապանակից, որը արխիվացնելու եք, այնուհետև հեշտությամբ արխիվացրեք առանց հավելվածների:

1, Մեջ փոստ դիտեք, բացեք նշված փոստի թղթապանակը, որը կարխիվացնեք, ընտրեք բոլոր նամակները սեղմելով Ctrl + A ստեղները, ապա կտտացրեք Կուտոլս > Անջատել բոլորը, Տեսեք,

2. Խնդրում ենք ընտրել թղթապանակ երկխոսության վանդակում սեղմեք կոճակը Թերթել կոճակ  նշեք այն թղթապանակը, որտեղ կպահեք հավելվածը, նշեք ենթաթղթապանակի ոճը ստեղծել ենթաթղթապանակներ հետևյալ ոճով բացվող ցուցակը և կտտացրեք այն Ok կոճակ Տեսեք,

3. Խնդրում ենք սեղմել այո կոճակը եւ OK կոճակը հաջորդաբար դուրս եկող երկխոսության տուփերում:

4, Անցեք կտտացնելու համար Ֆայլ > Info > Գործիքներ > Մաքրել հին իրերը (Կամ Ֆայլ > Info > Մաքրման գործիքներ > Արխիվ).

5. Արխիվ երկխոսության վանդակում խնդրում ենք սեղմել՝ նշելու նշված թղթապանակը, որը արխիվացնելու եք առանց հավելվածների, մուտքագրեք ԱՅՍՕՐ է Արխիվացրեք ավելի քան հին իրերը տուփը, ապա կտտացրեք Թերթել կոճակ Տեսեք,

6. Բաց Outlook Data Files երկխոսության դաշտում բացեք այն թղթապանակը, որտեղ կպահեք արխիվացված PST ֆայլը, անվանեք PST ֆայլը Ֆայլի անուն տուփը, ապա կտտացրեք OK կոճակ Տեսեք,

7, Այժմ դուք վերադառնում եք Արխիվ երկխոսության տուփ, սեղմեք այստեղ OK կոճակ՝ արխիվացումն ավարտելու համար:

Մինչ այժմ, դուք արդեն արխիվացրել եք նշված փոստի թղթապանակը առանց հավելվածների:

Ինչպե՞ս ինքնաբերաբար արխիվացնել հավելվածները միայն Outlook- ում:

Ինչպե՞ս արխիվացնել էլփոստը ըստ տարվա / ամսվա / ամսաթվի Outlook- ում: