מאכן א פאלדער פאר אלע אימעלס אין OUTLOOK פאר אלע אקונטס. Unified Inbox


מאכן א פאלדער פאר אלע אינבאק"ס אין OUTLOOK פאר אלע אקונטס, מייקראסאפט האט נישט קיין אפציע דערפאר אפי' אין 2019 ווערסיע און זייער א נערווערינדע זאך אבער זיי האבן נאך אלץ נישט געמאכט איינס, אבער ס'איז דא געוויסע אפציעס וואס די קענסט טהון.


די גרינגע וועג.

צו זעהן אלע אימעלס פון אלע אקונטס וואס די האסט נאכנישט געליינט, קענסטו מיט די אפציע פון מאכן א search מיט CTRL+ALT+A. און ס'וועט זוכן אין אלע פאלדער'ס.

מיט מאכן isread:no אדער קליקן די אייקאן UNREAD וועסטו זעהן אלע אום-געליינטע


אדער אויב די ווילסט "אלע אימעלס" אפי' געליינטע פון אלע אינבאקס'ס, טייפ למשל folder:inbox, און די קענסט אויך לייגען פון ווי לאנג א וואך אדער וואס ס'זאל זוכן וכו'



און דערנאך קליק די search צו קענען מאכן די טעסק נאכאמאל שנעלער אן טארפן טייפן.

די קענסט יעצט נעמען די און עס פינען צו די ribbon אזוי


די פראבלעם מיט דעם איז אז ס'איז זייער נישט באטעמעט און די קענסט נישט מאכן קיין STARTUP צו די search, און אויב האסטו מער ווי 10 queries וועט עס מער נישט זיין אין די ליסט אבער מייקראסאפט געט נישט קיין אפציע דערפאר.



אדער קענסטו מאכן א RULE אז די אימעל'ס זאלן ווערן MOVED צו א אנדערע אקונט די פראבלעם איז אז ס'ווערט באמת געריקט צו די אנדערע אקונט און ווערט א צומישעניש.

סאוי ס'איז נישט עכט קיין מהלך אבער די קענסט.



די בעסטע און אפשר אביסל שווער איז מיט א Macro.


ס'איז דא א Macro וואס העלפט ארויס און אזוי קענסטו יא האבן א ALL INBOX און אלע SEND שיין גרינג, די Macro מאכט נישט קיין נייע פאלדער, נאר די זעלבע search ווערט א באטען וואס די קענסט מסדר זיין מער שענער און ווערט נשיט אויסגעמעקט.


צו מאכן די Macro עפען די VBA פראגרעם מיט Alt+F11 דאבעל קליק די ThisOutlookSession און פעסיט אריין דאס

Sub UnifiedInbox()

Dim myOlApp As New Outlook.Application

txtSearch = "folder:Inbox "

myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders

Set myOlApp = Nothing

End Sub

Sub UnifiedSentbox()

Dim myOlApp As New Outlook.Application

txtSearch = "folder:Sent "

myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders

Set myOlApp = Nothing

End Sub

און סעוו די מעקראוי .


די קענסט לייגן נאר איינס אויב די ווילסט .


די קענסט נאכדעם סעוון די Macro צו די ריבן אין קליקן איינס פון די מעקראוי'ס צו מאכן די search



יעצט צו מאכן ראנען די Macro אין די trust center די דארפסט קליקען די נאטיפיקעשענ'ס פאר ALL די דיפאלט איז nonfictions for digitally signed, all other macros disable


די נעקסטע מאל די מאכסט צו אוטלאק מאך יא צו סעוון די מעקראוי.




די גייסט באקומען אזא פראמפט די נעקסטע מאל


אויב די ווילסט זיין מער סעקיאר און נישט דריקן יא אויף א אנדערע בטעות דארפסו אדער מאכן א certificate אדער אויסלעשען די אפציע וואס איז נישט קיין גיטע עצה.


די גייסט מאכן קודם א certificate און עס לייגן פאר די Macro.


די לאקציע פון די פראגרעם צו מאכן די certificate ווען זיך אין דיין ווערסיע סאוי זיך עס אליינס אויף

https://support.office.com/en-us/article/obtain-a-digital-certificate-and-create-a-digital-signature-e3d9d813-3305-4164-a820-2e063d86e512

קליק די פראגרעם און געב א נאמען פאר די certificate


דערנאך קליק די TOOLS אין די VBA און קליק די סיגנעטשער


און לייג דיין פריש געמאכטע certificate און קליק סעוו


אויב האסטו די certificate קענסטו לאזן די דיפאלט סעטינגס אין די TRUS CENTER


פערטיג.



דא קענסטו זעהן צוטיילט די Macro

Sub UnifiedInbox()

Dim myOlApp As New Outlook.Application

txtSearch = "folder:Inbox "

myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders

Set myOlApp = Nothing

End Sub

צו מאכן די SEND זיך


Sub UnifiedSentbox() Dim myOlApp As New Outlook.Application txtSearch = "folder: (Sent Mail) sent: (this week)" myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders Set myOlApp = Nothing End Sub


די קענסט מאדעפעצירן די קאוד לויט דיין געשמאק למשל דא איז מיט די צייט פון די לעצטע וואך.


Sub UnifiedInbox()

Dim myOlApp As New Outlook.Application

txtSearch = "folder:Inbox received: (this week)"

myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders

Set myOlApp = Nothing


347-857-8211

48 Bakertown Rd. Monroe 

Copyright © 2020