Mulți oameni speră să obțină rapid numărul total de sarcini și întâlniri astăzi în Outlook. Numărarea manuală una câte una este, evident, predispusă la erori și supărătoare. Acest articol va analiza această problemă și va introduce o metodă prin Outlook VBA.
Uneori, din cauza neglijenței sau uitării, mulți oameni pot lăsa deoparte unele sarcini sau întâlniri, care sunt salvate în Outlook. Dacă unele dintre ele sunt într-adevăr misiuni importante, consecințele pot fi dezastruoase. Așa că unii oameni ar dori să obțină rapid câte sarcini și întâlniri au astăzi. Sigur, le poți număra unul câte unul. Cu toate acestea, dacă numărul total este o sumă destul de mare, va fi susceptibil de erori și destul de greoaie. În acest caz, trebuie să doriți o abordare rapidă și convenabilă pentru a o obține rapid. Din fericire, cu Outlook VBA, îl puteți realiza fără a transpira. Iată coduri detaliate și pași.
Obțineți rapid numărul total de sarcini și programări de astăzi
- La început, start Aplicația Outlook.
- Apoi accesați fila „Dezvoltator” și faceți clic pe butonul „Visual Basic”.
- Se va deschide fereastra „Microsoft Visual Basic for Applications”. În el, trebuie să găsiți și să deschideți un nou modul.
- Apoi copiați și inserați următoarele coduri în noua fereastră de modul.
Sub GetTotalNumberTodayTaskAppt() Dim olTasks As Outlook.Items Dim olResultTasks As Outlook.Items Dim oIAppts As Outlook.Items Dim olResultAppts As Outlook.Items Dim strFilter As String Dim obj As Object Dim i, n As Long Dim As String In „Obțineți câte sarcini astăzi Set oITasks = Application.Session.GetDefaultFolder(olFolderTasks).Items strFilter = Format(Acum, „ddddd”) strFilter = „[Start Data] <= " & Chr(34) & strFilter & Chr(34) & " AND [Due Date] > " & Chr(34) & strFilter & Chr(34) Set olResultTasks = oITasks.Restrict(strFilter) Pentru fiecare obj În olResultTasks i = i + 1 Next 'Obțineți câte întâlniri astăzi Set oIAppts = Application.Session.GetDefaultFolder(olFolderCalendar).Items oIAppts.Sort "[Start]", False oIAppts.IncludeRecurrences = True strFilter = Format(Acum, "ddddd") strFilter = "[Start] <= " & Chr(34) & strFilter & " 11:59 PM" & Chr(34) & " AND [End] > " & Chr(34) & strFilter & " 00:00 AM" & Chr(34 ) Set olResultAppts = oIAppts.Restrict(strFilter) Pentru fiecare obiect în olResultAppts n = n + 1 Next 'Afișează o casetă de mesaj strMsg = "Avertisment:" & vbCrLf & "Aveți sarcini " & i & " și " & n & " întâlniri AZI, „ & i + n & „ misiuni în sumă.” & vbCrLf & „Nu uitați niciuna dintre ele!” nRes = MsgBox(strMsg, vbExclamation, „Today Schedule”) End Sub
- Ulterior, puteți închide fereastra curentă și puteți continua să setați nivelul macro Outlook la scăzut în „Setări macro”.
- După aceea, faceți clic pe săgeata în jos din Bara de instrumente Acces rapid și alegeți „Mai multe comenzi” din lista derulantă.
- Mai târziu, puteți adăuga noua macrocomandă la Bara de instrumente Acces rapid urmând pașii indicați în imaginea de mai jos:
- În sfârșit poți încerca. După ce ați revenit la fereastra principală Outlook, puteți face clic pe butonul nou din Bara de instrumente Acces rapid și imediat veți primi o casetă de mesaj, precum următoarea captură de ecran:
note: Mulți utilizatori doresc ca Outlook să îi avertizeze de îndată ce start aplicația. Pentru a îndeplini această cerință, puteți aplica „Application.Startup” eveniment. A inlocui "Sub GetTotalNumberTodayTaskAppt()” cu „Sub Aplicație_Starmârli()". Și apoi copiați codurile în fereastra proiectului „ThisOutlookSession”. De acum înainte, de fiecare dată când start Outlook, vi se va reaminti numărul total de sarcini și întâlniri de astăzi.
Faceți față problemelor frecvente cu Outlook
După cum știm cu toții, niciun program nu este sigur. Același lucru este valabil și pentru Outlook. Deci, dacă intenționați să utilizați Outlook de zeci de ani, trebuie să vă pregătiți pentru erorile sale frecvente, cum ar fi înghețarea bruscă, lipsa răspunsului, mesajele de eroare ocazionale și Deteriorarea e-mailului Outlook PST. Unul din eiost măsurile de precauție recomandate sunt să păstrați la îndemână un instrument puternic de remediere PST, cum ar fi DataNumen Outlook Repair, care vă va salva atunci când întâmpinați probleme serioase de perspectiva.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparați mdf SQL corupt și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com
Lasă un comentariu