Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս ջնջել ընթացիկ խմբագրված սևագիրը՝ առանց 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-ը՝ սցենարի համար կոճակ ստեղծելու համար և ավելացնել այն Արագ մուտք Գործիքադարակը հաղորդագրության պատուհանից:

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


Kutools Outlook- ի համար. 100 առաջադեմ առանձնահատկություններ է բերում Outlook- ին և շատ ավելի հեշտացնում աշխատանքը:

  • Auto CC / BCC կանոններով `էլ. նամակ ուղարկելիս; Ավտոմեքենաների փոխանցում Բազմաթիվ նամակներ ըստ սովորույթի; Ավտոմատ պատասխան առանց փոխանակման սերվերի և ավելի ավտոմատ հատկությունների ...
  • Նախազգուշացում BCC- ի համար - ցույց տալ հաղորդագրությունը, երբ փորձում ես պատասխանել բոլորին եթե ձեր փոստի հասցեն գտնվում է BCC ցուցակում; Հիշեցրեք հավելվածները բաց թողնելիսև ավելին հիշեցնում են հատկությունները ...
  • Պատասխանեք (բոլորը) փոստի խոսակցության բոլոր կցորդներով; Պատասխանեք շատ նամակների վայրկյանների ընթացքում; Ավտոմատ ավելացնել ողջույնները երբ պատասխանել; Ավելացնել ամսաթիվը վերնագրում ...
  • Կցման գործիքներ. Կառավարեք բոլոր կցորդները բոլոր փոստերում, Ավտոմատ անջատում, Սեղմել բոլորը, Վերանվանել բոլորը, պահպանել բոլորը ... Արագ զեկույց, Հաշվեք ընտրված նամակները...
  • Հզոր անպիտան նամակներ ըստ սովորույթի; Հեռացրեք կրկնօրինակ նամակները և կոնտակտները... Հնարավորություն տվեք Outlook- ում ավելի խելացի, արագ և լավ կատարել:
shot kutools Outlook kutools էջանիշ 1180x121
shot kutools Outlook kutools գումարած ներդիր 1180x121
 
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (0)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր