Slik får du raskt det totale antallet dagens oppgaver og avtaler med Outlook VBA

Mange håper å raskt få det totale antallet oppgaver og avtaler i dag i Outlook. Å telle en etter en manuelt er åpenbart feilutsatt og plagsomt. Denne artikkelen vil se på dette problemet og introdusere en metode via Outlook VBA.

Noen ganger, på grunn av uforsiktighet eller glemsel, kan mange mennesker legge noen oppgaver eller avtaler, som er lagret i Outlook, til side. Hvis noen av dem virkelig er viktige oppdrag, kan konsekvensene bli katastrofale. Så noen vil gjerne raskt få hvor mange oppgaver og avtaler de har i dag. Jada, du kan telle dem en etter en. Men hvis det totale antallet er ganske mye, vil det være mottakelig for feil og ganske tungvint. I dette tilfellet må du ønske deg en rask og praktisk tilnærming for raskt å få den. Heldigvis, med Outlook VBA, kan du oppnå det uten å svette. Her er detaljerte koder og trinn.

Få raskt det totale antallet dagens oppgaver og avtaler

1. Først, start Outlook-applikasjonen.
2. Gå deretter til "Utvikler"-fanen og klikk på "Visual Basic" -knappen.
3. Vinduet "Microsoft Visual Basic for Applications" åpnes. I den må du finne og åpne en ny modul.
4. Kopier og lim deretter inn følgende koder til det nye modulvinduet.

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 Integer As String Dimger 'Få hvor mange oppgaver i dag Sett oITasks = Application.Session.GetDefaultFolder(olFolderTasks).Items strFilter = Format(Nå, "ddddd") strFilter = "[Start Date] <= " & Chr(34) & strFilter & Chr(34) & " AND [Forfallsdato] > " & Chr(34) & strFilter & Chr(34) Sett olResultTasks = oITasks.Restrict(strFilter) for hver obj I olResultTasks i = i + 1 Neste 'Få hvor mange avtaler i dag Sett oIAppts = Application.Session.GetDefaultFolder(olFolderCalendar).Items oIAppts.Sort "[Start]", False oIAppts.IncludeRecurrences = True strFilter = Format(Nå, "ddddd") strFilter = "[Start] <= " & Chr(34) & strFilter & " 11:59 PM" & Chr(34) & " AND [End] > " & Chr(34) & strFilter & " 00:00 AM" & Chr(34 ) Sett olResultAppts = oIAppts.Restrict(strFilter) For Hver obj I olResultAppts n = n + 1 Neste 'Vis en meldingsboks strMsg = "Advarsel:" & vbCrLf & "Du har " & i & " oppgaver og " & n & " avtaler I DAG, " & i + n & " oppdrag i sum." & vbCrLf & "Ikke glem noen av dem!" nRes = MsgBox(strMsg, vbExclamation, "Today Schedule") End Sub

5. Deretter kan du lukke det gjeldende vinduet og fortsette å sette Outlook-makronivået til lavt i "Makroinnstillinger".
6. Deretter klikker du på pil ned i hurtigtilgangsverktøylinjen og velger "Flere kommandoer" fra rullegardinlisten.
7. Senere kan du legge til den nye makroen til Quick Access Toolbar ved å følge trinnene vist i bildet nedenfor:
8. Endelig kan du prøve. Etter å ha sikkerhetskopiert til hovedvinduet i Outlook, kan du klikke på den nye knappen i Quick Access Toolbar og umiddelbart får du en meldingsboks, som følgende skjermbilde:

Merknader: Mange brukere ønsker at Outlook kan advare dem så snart de start applikasjonen. For å oppfylle dette kravet kan du søke «Application.Startup»-arrangement. Erstatte "Sub GetTotalNumberTodayTaskAppt()" med "Sub Application_Startup()". Og kopier deretter kodene inn i prosjektvinduet "ThisOutlookSession". Fra nå av, hver gang du start Outlook, vil du bli påminnet om det totale antallet oppgaver og avtaler i dag.

Håndtere hyppige Outlook-problemer

Som vi alle vet, er ingen programmer idiotsikker. Det samme gjelder for Outlook. Så hvis du har tenkt å bruke Outlook i flere tiår, må du forberede deg på de hyppige feilene, som plutselig frysing, ingen respons, sporadiske feilmeldinger og Outlook PST-e-postskade. En av demost anbefalte forholdsregler er å ha et kraftig PST-fikseringsverktøy tilgjengelig, som DataNumen Outlook Repair, som vil komme deg til unnsetning når du støter på alvorlige utsiktsproblemer.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparer ødelagt SQL mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med