Ինչպե՞ս ջնջել ընթացիկ խմբագրված սևագիրը՝ առանց Outlook-ում բնօրինակ նամակը ջնջելու:

Microsoft Outlook 2013 և ավելի ուշ տարբերակները լռելյայն բացում են էլփոստի պատասխանները ընթերցման վահանակում: Ենթադրենք, դուք պատասխանում եք նամակին և 3 րոպե անց Outlook-ը ավտոմատ կերպով պահպանում է պատասխանը որպես սևագիր: Բայց հետո որոշում ես չուղարկել այս պատասխանը և դրա հետ մեկտեղ ջնջել սևագիրը։ Outlook-ի որոշ օգտատերեր հակված են սեղմել «Ջնջել» կոճակը «Տուն» ներդիրի տակ՝ սևագիրը կարդալու վահանակից ջնջելու համար (տե՛ս ստորև ներկայացված սքրինշոթը): Բայց այս գործողությունը նաև ջնջում է բնօրինակ էլ.

Այս ձեռնարկում մենք տրամադրում ենք երկու VBA կոդ, որոնք կօգնեն ձեզ ավելացնել երկու հրաման Արագ մուտքի Գործիքադարակի վրա՝ արագ ջնջելու ընթացիկ խմբագրված սևագիրը՝ առանց Outlook-ում բնօրինակ նամակը ջնջելու:

Ջնջել ընթացիկ խմբագրված սևագիրը ընթերցման վահանակում
Ջնջել ընթացիկ խմբագրված սևագիրը նոր պատուհանում

Ջնջել ընթացիկ խմբագրման նախագիծը ընթերցման վահանակում

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

1. Գործարկեք ձեր Outlook- ը, սեղմեք այն ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք Project1 > Microsoft Outlook օբյեկտներ > ԱյսOutlookSession- ը բացելու համար ThisOutlookSession (ծածկագիր) պատուհան. Այնուհետև պատճենեք հետևյալ VBA կոդը կոդի պատուհանում:

VBA կոդը. Ջնջել ընթացիկ խմբագրված սևագիրը ընթերցման վահանակում

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220713
Public WithEvents GInlineMail As MailItem
Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GInlineMail = Item
End Sub
Sub InlineDiscard()
  On Error Resume Next
  If Not GInlineMail Is Nothing And Not GInlineMail.Sent Then
    GInlineMail.UnRead = False
    GInlineMail.Delete
  End If
  Set GInlineMail = Nothing
End Sub

3. Պահեք կոդը և սեղմեք կոճակը ալտ + Q ստեղները փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

Այժմ ձեզ հարկավոր է կոճակ՝ մակրո գործարկելու համար:

4: սեղմեք Անհատականացրեք Արագ մուտքի Գործիքադարակը > Ավելի շատ հրամաններ.

5. Մեջ Outlook տարբերակները երկխոսության տուփ, դուք պետք է կազմաձևեք հետևյալը.

5.1) Ի Ընտրեք հրամաններ բացվող ցուցակ, ընտրեք Մակրոներ;

5.2) Ընտրեք նախորդ քայլում ավելացրած մակրո;

5.3) Կտտացրեք այն Ավելացնել կոճակը ՝ այս մակրո-ն ավելացնելու համար Անհատականացրեք Արագ մուտքի Գործիքադարակը տուփ:

6. Ընտրված պահեք սկրիպտը աջ վանդակում, այնուհետև սեղմեք կոճակը Փոփոխել կոճակը: Մեջ Փոփոխել կոճակը երկխոսության տուփ, նոր կոճակ նշանակեք սցենարին և սեղմեք OK.

7: սեղմեք OK է Outlook տարբերակները երկխոսության տուփ ՝ փոփոխությունները պահելու համար:

Այնուհետև ավելացվում է կոճակը, որը դուք նշել եք 6-րդ քայլում Արագ մուտք Գործիքադարակը.

8. Վերագործարկեք Outlook-ը՝ կոդը ակտիվացնելու համար:

Այսուհետ, կարդալու վահանակում նամակին պատասխանելիս, կարող եք ջնջել պատասխանը սևագրի հետ մեկտեղ՝ սեղմելով Արագ մուտքի Գործիքադարակի վրա գտնվող կոճակը:

Նշում: Սցենարը գործարկելուց հետո դուք պետք է ընտրեք այլ էլ.

Ջնջել ընթացիկ խմբագրված սևագիրը նոր պատուհանում

Եթե ցանկանում եք պատասխանել նամակներին նոր պատուհանում: Հետևյալ VBA կոդը կարող է օգնել Outlook-ում հեշտությամբ ջնջել պատասխան նամակը սևագրի հետ միասին:

1. Գործարկեք ձեր Outlook- ը, սեղմեք այն ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլ. Այնուհետև պատճենեք հետևյալ VBA կոդը Module պատուհանում։

Sub DeleteDraftMessageWindow()
'Updated by Extendoffice 20220713
  Dim xInspector As Inspector
  Dim xMail As MailItem
  On Error Resume Next
  Set xInspector = Application.ActiveInspector
  If xInspector Is Nothing Then Exit Sub
  Set xMail = xInspector.CurrentItem
  If Not xMail.Sent Then
    xMail.UnRead = False
    xMail.Delete
  End If
End Sub

3. Սեղմեք ալտ + F11 փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

Այժմ ձեզ հարկավոր է կոճակ՝ մակրո գործարկելու համար:

4: սեղմեք Գլխավոր > Նոր էլ նոր էլփոստ ստեղծելու համար: Հաղորդագրության պատուհանում սեղմեք Անհատականացրեք Արագ մուտքի Գործիքադարակը > Ավելի շատ հրամաններ.

5. Այնուհետեւ կրկնել վերը նշված քայլերը 5-ից 7-ը՝ սցենարի համար կոճակ ստեղծելու համար և ավելացնել այն Արագ մուտք Գործիքադարակը հաղորդագրության պատուհանից:

Այսուհետ, երբ նոր հաղորդագրության պատուհանում նամակին պատասխանելիս կարող եք ջնջել այս պատասխանը սևագրի հետ մեկտեղ՝ սեղմելով Արագ մուտքի Գործիքադարակի կոճակը: