Padoms. Citas valodas ir Google tulkotas. Jūs varat apmeklēt English šīs saites versiju.
Pieslēgties
x
or
x
x
Reģistrēties
x

or

Kā saglabāt kategoriju, atbildot vai pārsūtot e-pastu programmā Outlook?

Parasti, atbildot vai nosūtīt e-pastu, kuru esmu klasificējis, kategorija tiks automātiski noņemta nosūtītajā e-pastā. Ja jūs vēlaties saglabāt kategoriju izejošajiem e-pasta ziņojumiem, atbildot vai pārsūtot, šajā rakstā tiks ieviesta metode, kā to novērst.

Saglabājiet kategoriju, atbildot vai pārsūtot e-pastu ar VBA kodu


Saglabājiet kategoriju, atbildot vai pārsūtot e-pastu ar VBA kodu

1. Turiet nospiestu ALT + F11 taustiņi, lai atvērtu Microsoft Visual Basic for Applications logs.

2. Iekš Microsoft Visual Basic for Applications logu, veiciet dubultklikšķi ThisOutlookSession no Project1 (VbaProject.OTM) lai atvērtu režīmu, un pēc tam nokopējiet un ielīmējiet šādu kodu tukšajā modulī.

VBA kods: saglabājiet kategoriju, atbildot vai pārsūtot e-pastu:

Private WithEvents GExplorer Kā Outlook.Explorer Private WithEvents GInspectors Kā Outlook.Inspectors Private WithEvents GMailItem Kā Outlook.MailItem Privātās GCategories Kā String Private Sub Application_Startup () Dim xApp Kā Outlook. Pieteikšanās Set xApp = Outlook.Application Set GExplorer = xApp.ActiveExplorer Set GInspectors = xApp.Inspectors End Sub Private Sub GExplorer_SelectionChange () Pēc kļūda Atjaunot tālāk, ja TypeName (GExplorer.Selection.Item (1)) <> "MailItem" Tad iziet Sub Set GMailItem = GExplorer.Selection.Item (1) GCategories = GMailItem. Kategorijas End Sub Private Sub GInspectors_NewInspector (ByVal inspektors kā inspektors) Pēc kļūda Atjaunot tālāk, ja TypeName (Inspector.CurrentItem) <> "MailItem" Tad iziet Sub Set GMailItem = Inspector.CurrentItem GCategories = GMailItem.Categories End Sub Private Sub GMailItem_Forward (ByVal Forward Kā Object, Atcelt kā Būla) Zvanīt GetCategories (Pārsūtīt) Beigt Sub Private Sub GMailItem_Reply (ByVal Response kā objekts, atcelt kā Būla) Call GetCategories (Response) Beigas Sub Private Sub GMailItem_ReplyAll (ByVal Response kā objekts Atcelt kā Būla) Zvans GetCategories (Atbilde) Beigas Sub Private Sub GetCategories (ByVal NewMail kā Object) Ja NewMail.Class <> olMail Tad Iziet Sub NewMail.Categories = GKategories Beigt Sub

doc saglabāt kategoriju atbildi 1

3. Pēc tam saglabājiet un aizveriet šo koda logu, aizveriet un restartējiet programmu Outlook, tagad, kad atbildat vai pārsūtāt e-pastu ar kategoriju, kategorija tiks saglabāta izejošajā ziņojumā Nosūtītās ziņas, skatiet ekrānuzņēmumu:

doc saglabāt kategoriju atbildi 2



Kutools for Outlook

Vairāk nekā 100 papildu funkcijas Outlook 2010, 2013, 2016, 2019 un 365

ekrāns nošāva kutools, kas paredzēts maziem banneri 201812

Vairāk funkciju | Bezmaksas lejupielāde | Tikai $ 39.00 simtiem funkciju

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.