Kā automātiski izcelt svarīgus e-pastus, uz kuriem neesat atbildējis programmā Outlook

Lai atcerētos atbildēt uz svarīgiem e-pasta ziņojumiem, jūs varētu vēlēties, lai programma Outlook izceltu svarīgos e-pasta ziņojumus, uz kuriem neesat atbildējis, parādītu noteiktā manifesta krāsā. Šis raksts jums iemācīs, kā to iegūt.

Vai esat kādreiz nokavējis svarīgus e-pasta ziņojumus un neatbildējis uz tiem savlaicīgi? Ja jums ir radušās šādas problēmas, iespējams, jūs cerat, ka Outlook var izcelt svarīgos e-pasta ziņojumus, uz kuriem neesat atbildējis. Turpmāk mēs palīdzēsim jums to sasniegt ar VBA. Ja jums nav zināma VBA, lūdzu, skatiet manu iepriekšējo rakstu - “Kā palaist VBA kodu programmā OutlookTikmēr.

Automātiski iezīmējiet svarīgos e-pastus, uz kuriem neesat atbildējis

1. Pašā sākumā piekļūstiet VBA redaktoram, izmantojot programmu “Alt + F11”.
2. Pēc tam jaunajā logā nokopējiet zemāk redzamo kodu projektā “ThisOutlookSession”.

Private WithEvents objSentFolder As Outlook.Folder
Private WithEvents objSentMails As Outlook.Items
Private objInbox As Outlook.Folder

'On startup, auto update the replied status of the emails in Inbox
Private Sub Application_Startup()
    Set objSentFolder = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail)
    Set objSentMails = objSentFolder.Items
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Call UpdateRepliedStatus(objInbox)
End Sub

'After sending an email, auto update the replied status of the emails in Inbox
Private Sub objSentMails_ItemAdd(ByVal Item As Object)
    If Item.Class = olMail Then
       Call UpdateRepliedStatus(objInbox)
    End If
End Sub

Private Sub UpdateRepliedStatus(ByVal objFolder As Outlook.Folder)
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim objRepliedProperty As Outlook.UserProperty
    Dim strRepliedStatus As String
 
    'Write the replied status to a new user property of emails
    For i = objFolder.Items.Count To 1 Step -1
        If objFolder.Items(i).Class = olMail Then
           Set objMail = objFolder.Items(i)
 
           Set objRepliedProperty = objMail.UserProperties.Find("Replied", True)
           If objRepliedProperty Is Nothing Then
              Set objRepliedProperty = objMail.UserProperties.Add("Replied", olText, True)
           End If
 
           strRepliedStatus = objMail.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x10810003")
           If (Not (strRepliedStatus = 102)) And (Not (strRepliedStatus = 103)) Then
              objRepliedProperty.Value = "No"
           Else
              objRepliedProperty.Value = "Yes"
           End If
 
           objMail.Save
        End If
    Next
End Sub

3. Pēc tam pārvietojiet kursoru uz “Application_Startup ”makro un nospiediet“ F5 ”.
4. Vēlāk aizveriet šo logu.
5. Pēc tam veiciet tālāk norādītās darbības, lai izveidotu nosacītu formatēšanas kārtulu iesūtnes vienumiem.

• Vispirms pārslēdzieties uz mapi “Iesūtne”.
• Pēc tam pārejiet uz cilni “Skatīt” un noklikšķiniet uz “Skata iestatījumi”.
• Jaunajā dialoglodziņā noklikšķiniet uz pogas “Nosacījuma formatēšana”.
• Nākamajā dialoglodziņā “Nosacītā formatēšana” noklikšķiniet uz “Pievienot” un ievadiet jaunā noteikuma nosaukumu, piemēram, “Svarīgi e-pasta ziņojumi, uz kuriem nav atbildēts”.
• Vēlāk noklikšķiniet uz pogas “Fonts…” un uznirstošajā dialoglodziņā “Fonts” iestatiet fonta stilu un krāsu.
• Pēc fonta norādīšanas dialoglodziņā “Nosacītā formatēšana” nospiediet “Nosacījums…”.
• Pēc tam ekrāna “Filtrs” cilnē “Papildu” pievienojiet divus filtrus.

1. “Svarīgums”> “vienāds”> “Augsts”
2. “Atbildēts”> “ir (precīzi)”> “nē”

• Galu galā noklikšķiniet uz virknes “OK”, lai saglabātu šo formatēšanas kārtulu.

6. Pēc atgriešanās iesūtnē visi svarīgi e-pasta ziņojumi, uz kuriem neesat atbildējis, ir izcelti konkrētajā fonā un krāsā.

Nepalaidiet uzmanību Outlook datu aizsardzībai

Neskaitāmi lietotāji joprojām domā, ka datu korupcija viņiem nekad nenotiks. Patiesībā šādas idejas ir pilnīgi nepareizas un riskantas. Most laika gaitā neliela kļūda var viegli zaudēt datus. Piemēram, ja nejauši noklikšķināt uz ļaunprātīgas saites nezināmos e-pastos, jūsu Outlook fails var būt inficēts ar vīrusiem un pat sabojāties. Tādējādi datu aizsardzībā visu laiku jāievēro piesardzība, piemēram, pastāvīga PST dublēšana un spēcīga labošanas rīka, piemēram, sagatavošana DataNumen Outlook Repair, kas var labot Outlook jautājumi vienā mirklī.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar