Si të vendosni flamuj të ndryshëm të klikimeve të shpejta për lloje të ndryshme artikujsh të Outlook

"Flamuri i klikimit të shpejtë" i referohet flamurit të paracaktuar kur klikoni vetëm në kolonën e flamurit të një artikulli të Outlook. Outlook ju lejon të vendosni vetëm një klikim të shpejtë, pavarësisht nga lloji i artikullit. Pra, nëse dëshironi të vendosni flamuj të ndryshëm të klikimeve të shpejta në bazë të llojeve të artikujve, mund të përdorni mënyrën e prezantuar në këtë artikull.

Për të vendosur flamurin e klikimeve të shpejta, mund të klikoni me të djathtën në kolonën "flamur" të një artikulli dhe zgjidhni "Vendosni klikimin e shpejtë". Pastaj, në kutinë e dialogut të vogël që shfaqet, zgjidhni flamurin sipas dëshirës. Si parazgjedhje, Outlook do të aplikojë këtë flamur të shpejtë të klikimit për të gjitha llojet e artikujve. Megjithatë, në realitet, shumica e përdoruesve shpresojnë të aplikojnë flamuj të ndryshëm të klikimeve të shpejta në lloje të ndryshme artikujsh të Outlook. Prandaj, në vijim, ne do t'ju mësojmë ta merrni duke përdorur një shembull të postës elektronike dhe kontakteve.

Vendosni flamuj të ndryshëm të klikimeve të shpejta për lloje të ndryshme artikujsh të Outlook

1. Që në fillim, start Redaktori VBA i Outlook duke iu referuar "Si të ekzekutoni kodin VBA në Outlook tuaj".
2. Pastaj, kopjoni kodin VBA më poshtë në projektin "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. Më pas, vendoseni kursorin në "Application_Startup” dhe shtypni tastin “F5” për të aktivizuar këtë makro.
4. Më në fund, mund të provoni.

• Zgjidhni një email dhe klikoni në kolonën "Flamuri". Menjëherë, flamuri "Nesër" do të shtohet në email.
• Më pas, vendosni një kontakt dhe klikoni në kolonën "Flamuri". Menjëherë, flamuri "Sot" do t'i shtohet kontaktit të zgjedhur.

Ndaloni emailet me qëllim të keq

Megjithëse makro kontribuon shumë në punën tonë në Outlook, ju ende keni kujdes për makro, veçanërisht ato nga emailet e jashtme të panjohura. Kjo është për shkak se makrot mund të përmbajnë viruse, të cilët mund të sulmojnë me lehtësi të dhënat tuaja të Outlook. Pasi skedari juaj Outlook të infektohet, përveç vrasjes së viruseve, duhet të riparoni skedarin Outlook. Në përgjithësi, mjeti i riparimit të kutisë hyrëse nuk do të bëjë efekte. Vendpushimi juaj i vetëm është një palë e tretë më e fuqishme dhe e denjë për kredi Rregullimi i Outlook mjet, si p.sh DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparim mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com