Paano Magtakda ng Iba't ibang Mga Flag ng Mabilis na Pag-click para sa Iba't ibang Uri ng Mga Item sa Outlook

Ang "Quick Click Flag" ay tumutukoy sa default na flag kapag nag-click ka sa column ng flag ng isang item sa Outlook. Pinapayagan ka lamang ng Outlook na magtakda ng isang mabilis na pag-click na bandila anuman ang uri ng item. Kaya, kung nais mong magtakda ng iba't ibang mga flag ng mabilisang pag-click batay sa mga uri ng item, maaari mong gamitin ang paraan na ipinakilala sa artikulong ito.

Upang itakda ang flag ng mabilis na pag-click, maaari kang mag-right click sa column na "flag" ng isang item at piliin ang "Itakda ang Mabilis na Pag-click". Pagkatapos, sa popup na maliit na dialog box, piliin ang flag sa kalooban. Bilang default, ilalapat ng Outlook ang mabilisang pag-click na flag para sa lahat ng uri ng mga item. Gayunpaman, sa katotohanan, ang karamihan ng mga gumagamit ay umaasa na maglapat ng iba't ibang mga flag ng mabilis na pag-click sa iba't ibang uri ng mga item sa Outlook. Samakatuwid, sa mga sumusunod, ituturo namin sa iyo na makuha ito gamit ang isang halimbawa ng mga email at contact.

Magtakda ng Iba't ibang Mga Flag ng Mabilis na Pag-click para sa Iba't ibang Uri ng Mga Item sa Outlook

1. Sa umpisa pa lang, start Outlook VBA editor na may sanggunian sa “Paano Patakbuhin ang VBA Code sa Iyong Outlook".
2. Pagkatapos, kopyahin ang VBA code sa ibaba sa proyektong "ThisOutlookSession".

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem
Public WithEvents objContact As Outlook.ContactItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    ElseIf TypeOf objExplorer.Selection.Item(1) Is ContactItem Then
       Set objContact = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    If Name = "ToDoTaskOrdinal" Then
       If objMail.IsMarkedAsTask = True Then
          '"Tomorrow" Flag for Emails
          objMail.TaskStartDate = Now + 1
          objMail.Save
       End If
   End If
End Sub

Private Sub objContact_PropertyChange(ByVal Name As String)
    If Name = "ToDoTaskOrdinal" Then
       If objContact.IsMarkedAsTask = True Then
          '"Today" Flag for Contacts
          objContact.TaskStartDate = Date & " 17:00"
          objContact.Save
       End If
    End If
End Sub

3. Pagkatapos, ilagay ang cursor sa “Application_Starsubroutine ng tup ”at pindutin ang“ F5 ”key upang buhayin ang macro na ito.
4. Sa paglaon, maaari kang magkaroon ng isang pagsubok.

• Pumili ng email at i-click ang column na "I-flag." Sabay-sabay, ang flag na "Bukas" ay idaragdag sa email.
• Pagkatapos, i-pitch ang isang contact at i-click ang column na "I-flag." Kaagad, ang flag na "Ngayon" ay idaragdag sa napiling contact.

Ipagbawal ang Mga Nakakahamak na Email

Bagama't malaki ang kontribusyon ng macro sa aming pagtatrabaho sa Outlook, nagbabantay ka pa rin sa mga macro, lalo na ang mga mula sa mga external na hindi kilalang email. Ito ay dahil ang mga macro ay maaaring maglaman ng mga virus, na maaaring umatake sa iyong data ng Outlook nang madali. Kapag nahawa na ang iyong Outlook file, bukod sa pagpatay sa mga virus, kailangan mong ayusin ang Outlook file. Sa pangkalahatan, ang tool sa pag-aayos ng inbox ay hindi gagawa ng mga epekto. Ang iyong tanging resort ay isang mas makapangyarihan at mapagkakatiwalaang third party Inaayos ang Outlook tool, tulad 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 ayusin ang mdf at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa