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

Kako v Outlooku združiti in razvrstiti e-pošto po mesecih?

E-poštna sporočila so privzeto razvrščena po datumu prejema v mapi Prejeto v Outlooku. Vendar ni nobenega ukaza za razvrščanje ali razvrščanje vseh e-poštnih sporočil po prejetem mesecu. Tukaj bom predstavil način združevanja in razvrščanja vseh e-poštnih sporočil po mesecih v programu Outlook.

E-poštna sporočila v Outlooku združite ali razvrstite po mesecih s kodo VBA


E-poštna sporočila v Outlooku združite ali razvrstite po mesecih s kodo VBA

Ta metoda vas bo vodila do ustvarjanja novega stolpca, imenovanega mesec, nato uporabite makro VBA, da v novi stolpec izvlečete prejeti mesec, nato pa lahko vsa e-poštna sporočila razvrstite ali razvrstite po stolpcu mesec v programu Outlook.

1.  Odprite poštno mapo, v kateri boste razvrstili ali razvrstili e-poštna sporočila po mesecih, in kliknite Ogled nastavitev gumb na Poglej jeziček v programu Outlook 2010 in novejših različicah.

doc razvrsti e-pošto po 1. mesecu

Opomba: V programu Outlook 2007 lahko kliknete Poglej > Trenutni pogled > Prilagodite trenutni pogled.

2. V prihodnosti Napredne nastavitve pogleda / Prilagodi pogled pogovorno okno, kliknite na Stolpci gumb (ali Področja gumb).

doc razvrsti e-pošto po 2. mesecu

3. V Pokaži stolpec / polja pogovorno okno, kliknite na Nov stolpec gumb (ali Novo polje tipko), da odprete pogovorno okno Nov stolpec / polje, vnesite mesec v Ime škatla, obdrži Besedilo izbrano v obeh tip polje in oblikovana in nato kliknite OK . Oglejte si spodnji posnetek zaslona:

doc razvrsti e-pošto po 3. mesecu

4.  Zdaj se vrnete na Pokaži stolpce / polja v pogovornem oknu kliknite, da izberete mesec element v Pokaži te stolpce (ali Področja) v tem vrstnem redu in ga premaknite pod Prejeto s klikom na Premakni navzgor in končno kliknite OK gumb.

doc razvrsti e-pošto po 4. mesecu

5. Kliknite OK , da zaprete Napredne nastavitve pogleda / Prilagodi pogled pogovorno okno.

6. V začetni mapi izberite vsa e-poštna sporočila, tako da izberete poljubno e-pošto in nato pritisnete Ctrl + A tipke hkrati.

Opombe: Če je Bralno podokno se vklopi, zaprite ga s klikom na Poglej > Bralno podokno > off.

7. Odprite Microsoft Visual Basic za aplikacije okno s pritiskom na druga + F11 Medtem pritisnite tipke in nato kliknite Vstavi > Moduli.

8. V modul prilepite naslednji makro VBA:

VBA: razvrstite ali združite e-poštna sporočila po mesecih

Sub ListSelectionMonth()
	Dim aObj As Object
	Dim oProp As Outlook.UserProperty
	Dim sMonth
	
	On Error Resume Next
	
	For Each aObj In Application.ActiveExplorer.Selection
		Set oMail = aObj
		
		sMonth = Month(oMail.ReceivedTime)
		Set oProp = oMail.UserProperties.Add("Month", olText, True)
		oProp.Value = sMonth
		oMail.Save
		
		Err.Clear
	Next
	
End Sub

9. Pritisnite tipko F5 ključ za zagon tega makra VBA.

10. Zdaj je vsak prejeti mesec e-pošte razčlenjen v naslednje mesec stolpec. Če želite v tej uvodni mapi razvrstiti vsa e-poštna sporočila po mesecih, kliknite glavo stolpca mesec. Oglejte si posnetek zaslona:

doc razvrsti e-pošto po 5. mesecu

Opombe: Če želite v tej uvodni mapi zbrati vsa e-poštna sporočila po mesecih, z desno miškino tipko kliknite glavo stolpca mesecin nato izberite Razvrsti po tem polju v meniju z desnim klikom. Oglejte si posnetek zaslona:

doc razvrsti e-pošto po 6. mesecu


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (14)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
To deluje za e-poštna sporočila, ki so že v mapi Prejeto, vendar NE ustvarja/vnaša podatkov v polje »Mesec« za NOVA e-poštna sporočila!
Ta komentar je moderator na spletnem mestu minimiziral
Nove pošte ne bomo prejeli v določeni kategoriji meseca. Nova pošta ni v nobeni kategoriji. Prosim popravite težavo
Ta komentar je moderator na spletnem mestu minimiziral
Ali ne obstaja način za samodejno izbiro vseh e-poštnih sporočil pred zanko for...next?
Ta komentar je moderator na spletnem mestu minimiziral
Ali je mogoče ustvariti makro VBA za združevanje in razvrščanje e-pošte po tednih?
Ta komentar je moderator na spletnem mestu minimiziral
Hočem :

1. Razvrstite sporočila po zadevi

2. Razvrstite jih po številu e-poštnih sporočil znotraj skupine

Kako lahko to dosežem?
Ta komentar je moderator na spletnem mestu minimiziral
Tudi jaz želim to
Ta komentar je moderator na spletnem mestu minimiziral
To pomeni, da želim združiti sporočila po zadevi in ​​postaviti skupino z največ e-poštnimi sporočili na vrh. Kako lahko to storim?
Ta komentar je moderator na spletnem mestu minimiziral
Uporabil sem zgornji vba in naj začnem s tem, da to pomaga pri mikro upravljanju, ki privzeto ni na voljo. to je koristno za arhiviranje in shranjevanje in ne nekaj, kar naj bi delovalo samodejno za dohodno e-pošto. To sem lahko nekoliko spremenil in dodal tudi stolpec za leto. Tako sem za vsa e-poštna sporočila lahko dobil mesec in leto, da sem lahko združil in nato ponovno združil (po letu in nato po mesecu). Vendar sem ugotovil, da obstaja nekakšna omejitev glede števila predmetov, skozi katere gre, in potem obstaja (ne vem zakaj). Na primer, če bi izbral mapo z 18-19 e-poštnimi sporočili, se bo ta vrstila samo skozi nekatere in nato na koncu zagona ne bo posodobila vseh e-poštnih sporočil z zahtevanimi. Če pa delate v manjših serijah, potem deluje popolnoma v redu. Boleče je, da nadaljujete z izbiro v serijah. To je bolečina za ljudi, kot sem jaz, ki želijo upravljati ali bolje urediti leta ali e-pošto, ki je sestavljena iz 6 številk. Je komu tukaj uspelo to ugotoviti ali je bil pripravljen na odpravljanje težav, da bi to popravil ali kako se to lahko reši?
Ta komentar je moderator na spletnem mestu minimiziral
Koda deluje kot v članku. Vendar to ne velja za nove črke. Vsakič, ko morate iti do ustvarjenega modula v Visual Basiku in pritisniti F5.
Ta komentar je moderator na spletnem mestu minimiziral
To bo tudi pomagalo.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni v Hamburgu, super Sache. Danke dafür. :)Kleines Problem nur.Ich hatte zuerst den Code so angepasst das er mir Jahr und Monat zusammensetzt.
PodseznamIzborLetoMesec()
Zatemni aObj kot predmet
Zatemni oProp kot Outlook.UserProperty
Zatemni oMail kot predmet
Temen mesec
Temno leto
Dim SYearMonth

On Error Resume Next

Za vsak aObj v Application.ActiveExplorer.Selection
Nastavite oMail = aObj

sMonth = Mesec (oMail.ReceivedTime)
sYear = Leto(oMail.ReceivedTime)

Če je mesec < 10 Potem
sMonth = 0 & sMonth
Else
sMesec = sMesec
Konec Če

sYearMonth = sYear & "/" & sMonth
Nastavi oProp = oMail.UserProperties.Add("JahrMonat", olText, True)
oProp.Value = letni mesec
oMail.Save

Err.Clear
Naslednji

End Sub

Hat wunderbar geklappt.Nun ist mir in einem Ordner aufgefallen das eine Gruppierung zuersnach Jahr und dann nach Monat die Übersichtlichkeit noch erhöht.Habe als den ursprünglichen Code le Space genomen.Dort.
PodlistekSelectionMonth()
Zatemni aObj kot predmet
Zatemni oProp kot Outlook.UserProperty
Zatemni oMail kot predmet
Temen mesec

On Error Resume Next

Za vsak aObj v Application.ActiveExplorer.Selection
Nastavite oMail = aObj

sMonth = Mesec (oMail.ReceivedTime)

Če je mesec < 10 Potem
sMonth = 0 & sMonth
Else
sMesec = sMesec
Konec Če

Nastavi oProp = oMail.UserProperties.Add("Monat", olText, True)
oProp.Value = sMonth
oMail.Save

Err.Clear
Naslednji

End Sub

Macht mich grad etwas ratlos.
Freue mich über jeden Rat
VGArmin
Ta komentar je moderator na spletnem mestu minimiziral
Oprosti. Nisem videl, da je stran izvor v angleščini. #sramežljiv
Google translate postaja vse boljši. :D
Pozdravljeni iz Hamburga,
dobre stvari. Hvala za to. :)
Samo majhen problem.
Najprej sem prilagodil kodo tako, da mi sestavlja leto in mesec.

PodseznamIzborLetoMesec()
Zatemni aObj kot predmet
Zatemni oProp kot Outlook.UserProperty
Zatemni oMail kot predmet
Temen mesec
Temno leto
Dim SYearMonth

On Error Resume Next

Za vsak aObj v Application.ActiveExplorer.Selection
Nastavite oMail = aObj

sMonth = Mesec (oMail.ReceivedTime)
sYear = Leto(oMail.ReceivedTime)

Če je mesec < 10 Potem
sMonth = 0 & sMonth
Else
sMesec = sMesec
Konec Če

sYearMonth = sYear & "/" & sMonth
Nastavi oProp = oMail.UserProperties.Add("YearMonth", olText, True)
oProp.Value = letni mesec
oMail.Save

Err.Clear
Naslednji

End Sub

To je delovalo čudovito.
Zdaj sem v mapi opazil, da razvrščanje najprej po letih in nato po mesecih poveča jasnost.
Uporabil sem originalno kodo.
Vendar stolpec tam ostaja prazen.

PodlistekSelectionMonth()
Zatemni aObj kot predmet
Zatemni oProp kot Outlook.UserProperty
Zatemni oMail kot predmet
Temen mesec

On Error Resume Next

Za vsak aObj v Application.ActiveExplorer.Selection
Nastavite oMail = aObj

sMonth = Mesec (oMail.ReceivedTime)

Če je mesec < 10 Potem
sMonth = 0 & sMonth
Else
sMesec = sMesec
Konec Če

Nastavi oProp = oMail.UserProperties.Add("Month", olText, True)
oProp.Value = sMonth
oMail.Save

Err.Clear
Naslednji

End Sub

Trenutno sem malo zmeden.

Vesela vsakega nasveta

VG
Armin


Prevedeno z http://www.DeepL.com/Translator (brezplačna različica)
Ta komentar je moderator na spletnem mestu minimiziral
Čudno.
Naredil ponovni zagon. Zdaj deluje. Oprostite za motenje.
Hvala še enkrat :) <3
Ta komentar je moderator na spletnem mestu minimiziral
Imam Outlook 2007 in moram preizkusiti ta VBA. Najprej sem imel težavo, da je samo 1 e-pošta od vseh prejela mesečni prikaz.
Najprej sem moral označiti vsa e-poštna sporočila in nato pritisniti VBA F5, da se prikaže v vseh e-poštnih sporočilih v mesecu.

slab del te kode je, da se ves mesec (1, 2, 3, 4, 5, 6, 7, 8, 9) razvrsti na napačno mesto pred 10, 11, 12
ali obstaja kakšno dodatno zaporedje VBA, ki bi dodalo prvih 9 mesecev a 0? torej 01, 02, 03 itd?

ker imam v nekaterih mapah več let, je smiselno te e-pošte najprej razvrstiti po letih in nato po mesecih.
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije