Ako automaticky premenovať alebo odstrániť staršie e-maily s rovnakými predmetmi ako noví prichádzajúci

Niektorí ľudia dúfajú, že Outlook môže automaticky skontrolovať predmety starších e-mailov, keď prídu nové e-maily, a premenovať alebo odstrániť staršie e-maily, ak majú rovnaké predmety ako nové e-maily. To si vyžaduje použitie Outlooku VBA. Tento článok vám to pomôže dosiahnuť.

Určite ste už niekedy dostali veľa e-mailov s rovnakými témami. Je pre vás trochu problematické ich identifikovať a rozlíšiť v zozname e-mailov? Alebo si myslíte, že tie staršie emaily sú pre vás úplne zbytočné? Ak je to tak, musíte povoliť, aby program Outlook automaticky prehľadal a skontroloval všetky existujúce e-maily, keď prídu nové e-maily. Ak existujú e-mailové adresy, ktoré majú rovnaké predmety ako nové, Outlook sa vás opýta, či ich chcete premenovať alebo vymazať. Aplikácia Outlook nepochybne neposkytuje používateľom tento druh funkcií. Preto sa musíte uchýliť k VBA. Tu vám vystavíme podrobné kódy a operácie.

Automatické premenovanie alebo odstránenie starších e-mailov

  1. Spočiatku môžete start Outlook a prejdite na kartu „Vývojár“.
  2. Potom budete môcť nájsť a kliknúť na tlačidlo „Visual Basic“.
  3. Po stlačení sa dostanete do okna editora VBA. V ňom budete musieť otvoriť projekt „ThisOutlookSession“.
  4. Ďalej by ste mali skopírovať a prilepiť nasledujúce kódy VBA.
Verejné WithEvents olItems ako Outlook. Položky Sub Application_Startup () 'Zadajte e-mailové adresy v priečinku Doručená pošta Nastaviť olItems = Outlook.Application.Session.GetDefaultFolder (olFolderInbox). Položky Koniec Sub Sub Súkromné ​​Sub olItems_ItemAdd (ByVal položka ako objekt) Dim i As Long Dim obj Variant Ako Varianta Dim strMsg Ako reťazec Dim nRes As Integer For i = 1 To olItems.Count Set objVariant = olItems.Item (i) If TypeOf objVariant Is MailItem Then If objVariant.Subject = Item.Subject And objVariant.ReceivedTime <Item.ReceivedTime Then nDateDiff = DateDiff ("d", objVariant.ReceivedTime, Now) 'Pridajte príponu „(Old)“ k predmetom e-mailu objVariant.Subject = objVariant.Subject & „(Old)“ objVariant.Save' Ak boli staré e-maily prijímané 60 dní, opýtajte sa, či delete If nDateDiff> 60 Then strMsg = "Existujú niektoré staršie e-maily, ktoré majú rovnaký predmet s novým e-mailom a boli prijímané 2 mesiace. Chcete ich vymazať?" nRes = MsgBox (strMsg, vbExclamation + vbYesNo, "Nájsť staršie e-maily") Ak nRes = vbYes Potom objVariant.Delete Koniec Ak Koniec Ak Koniec Ak Koniec Ak Ďalej Koniec Sub

Kódy VBA - automatické premenovanie alebo odstránenie starších e-mailov s rovnakými predmetmi ako pre nových prichádzajúcich

  1. Následne by sa od vás vyžadovalo digitálne podpísanie tohto kódu. Kliknite na položky „Nástroje“> „Digitálny podpis“. V rozbaľovacom dialógovom okne potom môžete vybrať jeden existujúci certifikát. Ak nemáte pripravený certifikát, môžete vytvoriť nový pomocou digitálnych certifikátov pre projekty VBA.Podpíšte projekt ThisOutlookSession
  2. Potom môžete opustiť aktuálne okno a zmeniť nastavenia makra, čím povolíte iba digitálne podpísané makra.
  3. Nakoniec môžete restart Outlook aktivovať nové makro. Keď odteraz prídu nové e-maily do doručenej pošty, Outlook automaticky skontroluje všetky existujúce e-mailové adresy.
  • Ak majú staré e-maily rovnaký predmet ako nový, potom Outlook automaticky pridá k predmetu e-mailu príponu „(starý)“.
  • A ak sú staršie e-mailové správy uložené v Doručenej pošte dlhšie ako 2 mesiace, dostanete výzvu s otázkou, či ich chcete vymazať, ako na obrázku nižšie. Podľa vlastných potrieb môžete zvoliť „Áno“ alebo „Nie“.Okamžitá otázka, či chcete odstrániť staršie e-maily

 Poškodenie súborov programu Outlook z dôvodu veľkej veľkosti

Niektorí ľudia nemajú zvyky pravidelne mazať staré položky v Outlooku. Ich súbor Outlook bude teda vo veľkej veľkosti, čo sa presne nedoporučuje. Je to preto, že nadrozmerný súbor programu Outlook je oveľa zraniteľnejší ako súbor v malej veľkosti. Akonáhle sa súbor poškodí, zabudovaný nástroj na opravu Scanpst.exe bude v m bezmocnýost prípadoch. Váš jedinečný rezort môže byť pozoruhodný a osvedčený poškodený nástroj na opravu programu Outlook PST, Ako DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť poškodený SQL Server mdf databáza a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S

Nechaj odpoveď

Vaša e-mailová adresa nebude zverejnená. Povinné položky sú označené *