Outlook бағдарламасында жауап алмаған маңызды электрондық хаттарды автоматты түрде бөлектеу әдісі

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Маңызды электрондық хаттарға жауап беруді ұмытпау үшін Outlook-қа сіз жауап бермейтін өмірлік маңызды электрондық хаттарды оларды көрсету үшін белгілі бір манифест түсімен көрсетуін қалауыңыз мүмкін. Енді, бұл мақала сізге оны қалай алуға болатындығын үйретеді.

Сіз маңызды электрондық поштаны жіберіп алып, уақытында жауап бермеген кездеріңіз болды ма? Егер сізде осындай мәселелер туындаған болса, мүмкін сіз Outlook жауап бермеген маңызды электрондық хаттарды бөліп көрсетеді деп үміттенесіз. Енді келесіде біз сізге VBA-мен оған жету үшін бағыт береміз. Егер сіз VBA-ны білмеген болсаңыз, менің алдыңғы мақаламды қараңыз - «Outlook бағдарламасында VBA кодын қалай іске қосуға болады»Бұл арада.

Жауап бермеген маңызды электрондық хаттарды автоматты түрде бөлектеңіз

  1. Ең басында VBA редакторына Outlook бағдарламасында «Alt + F11» арқылы қол жеткізіңіз.
  2. Содан кейін жаңа терезеде төмендегі кодты «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

VBA коды - Электрондық пошта хабарламаларының жауап күйін автоматты түрде жаңарту

  1. Осыдан кейін курсорды «Application_Starмакро »және« F5 »басыңыз.
  2. Кейінірек, осы терезені жабыңыз.
  3. Кейіннен Кіріс қалтасындағы элементтер үшін шартты пішімдеу ережесін құру үшін төмендегі әрекеттерді орындаңыз.
  • Алдымен «Кіріс» қалтасына ауысыңыз.
  • Содан кейін «Көру» қойындысына өтіп, «Параметрлерді қарау» түймесін басыңыз.
  • Жаңа диалог терезесінде «Шартты пішімдеу» батырмасын басыңыз.«Шартты пішімдеу»
  • Келесі «Шартты пішімдеу» диалогтық терезесінде «Қосу» батырмасын басыңыз және «Жауап берілмеген маңызды электрондық пошта хабарлары» сияқты жаңа ереже үшін атау енгізіңіз.Пішімдеудің жаңа шартты ережесін жасаңыз
  • Кейінірек «Қаріп ...» батырмасын басып, «Қаріп» диалогтық терезесінде қаріп стилі мен түсін орнатыңыз.Қаріпті орнатыңыз
  • Қаріп көрсетілгеннен кейін, «Шартты пішімдеу» диалогтық терезесінде «Шарт ...» батырмасын басыңыз.
  • Содан кейін, «Сүзгі» экранында «Қосымша» қойындысында екі сүзгіні қосыңыз.
  1. «Маңыздылық»> «тең»> «Жоғары»
  2. «Жауап берді»> «бұл (дәл)»> «Жоқ»Екі сүзгіні қосыңыз
  • Сайып келгенде, осы пішімдеу ережесін сақтау үшін «OK» сериясын басыңыз.
  1. Кіріс жәшігіне оралғаннан кейін, сіз жауап бермеген барлық маңызды электрондық хаттар нақты қаріппен және түспен ерекшеленді.Сіз жауап бермеген маңызды электрондық пошта хабарлары

Outlook деректерін қорғауда бос болмаңыз

Көптеген пайдаланушылар деректердің бұзылуы ешқашан олардың басына келмейді деген ойды сақтайды. Шындығында, мұндай идеялар мүлдем қате және қауіпті. Мost Уақыт өте кішкентай қате деректерді жоғалтуға әкелуі мүмкін. Мысалы, егер сіз белгісіз электрондық пошта арқылы зиянды сілтемені абайсызда бассаңыз, сіздің Outlook файлыңыз вирус жұқтырып, тіпті бүлінуі мүмкін. Демек, сіз деректерді қорғауда үнемі сақ болыңыз, мысалы, тұрақты PST сақтық көшірмесін жасау және қатты түзету құралын дайындау сияқты. DataNumen Outlook Repairмүмкін Outlook бағдарламасын түзетіңіз диффузиядағы мәселелер.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf қалпына келтіру және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.