Különböző gyorskattintásos jelzők beállítása a különböző típusú Outlook-elemekhez

A „Quick Click Flag” az alapértelmezett zászlóra utal, amikor egyszeri kattintással egy Outlook-elem jelzőoszlopára kattint. Az Outlook csak egy gyorskattintásos jelző beállítását teszi lehetővé, az elem típusától függetlenül. Tehát, ha különféle gyorskattintásos jelzőket szeretne beállítani elemtípusok alapján, használhatja az ebben a cikkben bemutatott módszert.

A gyorskattintásos zászló beállításához kattintson a jobb gombbal egy elem „megjelölése” oszlopára, és válassza a „Gyorskattintás beállítása” lehetőséget. Ezután a felugró kis párbeszédpanelen tetszés szerint válassza ki a zászlót. Az Outlook alapértelmezés szerint ezt a gyorskattintásos jelzőt alkalmazza minden elemhez. Ennek ellenére a valóságban a felhasználók többsége azt reméli, hogy különböző gyorskattintási jelzőket alkalmazhat a különböző típusú Outlook-elemekre. Ezért a következőkben e-mailek és névjegyek példáján keresztül megtanítjuk, hogyan szerezheti be.

Állítson be különböző gyorskattintásos jelzőket a különböző típusú Outlook-elemekhez

1. A legelején start Outlook VBA szerkesztő hivatkozással a „A VBA kód futtatása az Outlookban".
2. Ezután másolja be az alábbi VBA-kódot a „ThisOutlookSession” projektbe.

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. Ezután vigye a kurzort az „Application_Startup” szubrutint, és nyomja meg az „F5” gombot a makró aktiválásához.
4. Végül megpróbálhatod.

• Válasszon ki egy e-mailt, és kattintson a „Flag” oszlopra. Egyszerre megjelenik a „Holnap” jelző az e-mailben.
• Ezután állítson be egy névjegyet, és kattintson a „Flag” oszlopra. A „Ma” jelző azonnal hozzáadódik a kiválasztott kapcsolathoz.

Tiltsa le a rosszindulatú e-maileket

Bár a makró nagyban hozzájárul az Outlookban végzett munkánkhoz, továbbra is ügyeljen a makrókra, különösen a külső ismeretlen e-mailekből érkezőkre. Ennek az az oka, hogy a makrók vírusokat tartalmazhatnak, amelyek könnyedén megtámadhatják az Outlook adatait. Miután az Outlook-fájl megfertőződött, a vírusok elpusztítása mellett meg kell javítania az Outlook-fájlt. Általában a beérkező levelek javítóeszköze nem hoz hatást. Az egyetlen üdülőhely egy erősebb és hitelt érdemlő harmadik fél Outlook javítás eszköz, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve javítás mdf és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com