Paano Mabilis na Kumuha ng Listahan ng Lahat ng Umiiral na Paalala sa Iyong Outlook

Kung gusto mong mabilis na suriin o i-print ang isang listahan ng lahat ng kasalukuyang umiiral na mga paalala sa iyong Outlook, kahit na paalala sa gawain o paalala ng appointment, maaari mong gamitin ang Outlook VBA. Ipakikilala sa iyo ng artikulong ito kung paano ito makukuha nang detalyado.

Sa pangkalahatan, medyo simple na tingnan ang lahat ng umiiral na mga paalala sa isang partikular na folder, tulad ng lahat ng mga paalala sa isang partikular na folder ng gawain o isang partikular na kalendaryo. Gayunpaman, kapag nais mong suriin ang lahat ng mga paalala sa lahat ng mga folder ng Outlook nang sabay-sabay, kung babalik ka lang sa mga katutubong tampok ng Outlook, ito ay imposible. Samakatuwid, kailangan mong maghanap ng iba pang mga diskarte, tulad ng 3^rd party add-in o VBA code. Dito, gagabayan ka namin kung paano mabilis ang lahat ng kasalukuyang paalala sa Outlook VBA.

Mabilis na Kumuha ng Listahan ng Lahat ng Umiiral na Paalala

1. Sa unang lugar, start Application ng Outlook.
2. Pagkatapos ay dapat kang lumipat sa tab na "Developer". Kung hindi mo pa ito nahanap, kailangan mo munang paganahin ito. Pumunta sa “File” > “Options” > “Customize Ribbon”.
3. Kasunod nito, dapat mong i-click ang button na “Visual Basic” sa ilalim ng tab na ito.
4. Pagkatapos nito, makakakuha ka ng access sa Outlook VBA editor. Sa oras na ito, maaari kang magbukas ng module na hindi ginagamit o maglagay ng bagong module sa pamamagitan ng pagpili sa “Insert” > “Module”.
5. Susunod, dapat mong kopyahin at i-paste ang mga sumusunod na VBA code sa module.

Sub GetAllExistingReminders()
    Dim objReminders As Reminders
    Dim objReminder As Reminder
    Dim strReminderDetails As String
    Dim objNewNote As NoteItem
 
    Set objReminders = Outlook.Application.Reminders

   'Check if any reminders exist
    If objReminders.Count = 0 Then
       MsgBox "There is no existing reminder."
    Else
       For Each objReminder In objReminders
           strReminderDetails = strReminderDetails & objReminder.Caption & " (" & TypeName(objReminder.Item) & ") ---- " & objReminder.NextReminderDate & vbCrLf
       Next objReminder
       'Display report in a new note item
       Set objNewNote = Outlook.Application.CreateItem(olNoteItem)
       With objNewNote
            .Body = "All Existing Reminders:" & vbCrLf & vbCrLf & strReminderDetails
            .Categories = "Reminder"
            .Display
            'To print out all these reminders, add ".PrintOut" line.
       End With
    End If
End Sub

6. Sa ibang pagkakataon maaari kang mag-click sa icon na "Run" sa toolbar upang start ang bagong macro.
7. Sa kalaunan, may lalabas na bagong item sa Outlook Note. Ang lahat ng umiiral na mga paalala sa iyong Outlook ay isasama sa Tala na ito, tulad ng sumusunod na screenshot:

tandaan: Kung idinagdag mo ang linyang “.PrintOut” sa mga VBA code, awtomatikong ipi-print ng Outlook ang item ng tala. Ito ay magiging hitsura ng larawan sa ibaba:

Mag-ingat sa Mga Nakakahamak na Macro

Tunay na nakakatulong at kapaki-pakinabang ang Macro dahil makakatulong ito sa atin na magawa ang mga gawaing tila imposible. Gayunpaman, dapat kang manatiling maingat sa mga macro mula sa iba, dahil maaaring malisyoso ang mga ito. Nangangahulugan ito na ang mga macro mula sa iba ay maaaring maglaman ng mga virus, na maaaring mag-render Korapsyon sa PST sa isang iglap. Ipagpalagay na ang iyong PST file ay nahawahan, ang Scanpst.exe, ang libreng inbox tool, ay hindi gagawa ng anumang mga epekto. Sa oras na iyon, wala kang pagpipilian kundi gumamit ng mas makapangyarihang tool, gaya ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sql ayusin at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa