VBA көмегімен Outlook электрондық поштаңыздан қайталанатын алушыларды қалай тез жоюға болады

Ағымдағы электрондық поштаның «Кімге» өрісіне контакт топтарын қоссаңыз, олардың арасында қайталанатындар болуы мүмкін. Бұл мақала қайталанатын алушыларды жылдам жою үшін VBA пайдалану жолын үйретеді.

Электрондық поштаны жасау кезінде контактілерді ғана емес, сонымен қатар алушы ретінде контакт топтарын да қоссаңыз, кейде контакт топтары әдепкі бойынша жиырылғандықтан, кейбір қайталанатын алушылар болуы мүмкін. Бұл жағдайда, егер сіз қайталанатындарды білгіңіз келсе, алдымен байланыс топтарын кеңейтіп, содан кейін алушыларды қолмен салыстыруыңыз керек, бұл менің алдыңғы мақаламда егжей-тегжейлі енгізілген - «Электрондық поштаңыздан қайталанатын алушыларды қалай жоюға болады». Күмәнсіз, бұл өте жалықтырады. Осылайша, көптеген пайдаланушылар қайталанатын алушыларды жоюдың жылдам әдісін қалайды. Төменде біз сізге оны Outlook VBA арқылы алуды үйретеміз.

Outlook электрондық поштаңыздағы қайталанатын алушыларды жылдам жою

1. Біріншіден, Outlook қосымшасын іске қосыңыз.
2. Содан кейін «Әзірлеуші» қойындысына ауысып, «Visual Basic» түймесін басыңыз немесе «Alt + F11» пернелерін басыңыз.
3. Келесі «Қолданбаларға арналған Microsoft Visual Basic» терезесінде бос модульді ашуға болады.
4. Осы модульге келесі VBA кодтарын көшіріңіз және қойыңыз.

Sub RemoveDuplicateRecipients()
    Dim objCurrentMail As MailItem
    Dim objRecipients As Recipients
    Dim ContactGroupFound As Boolean
    Dim i, n As Long
 
    Set objCurrentMail = ActiveInspector.CurrentItem
    ContactGroupFound = True
 
    While ContactGroupFound = True
          Set objRecipients = objCurrentMail.Recipients
          ContactGroupFound = False
 
          'Expand the contact groups in "To" field
          For i = objRecipients.Count To 1 Step -1
              If objRecipients(i).AddressEntry.DisplayType <> olUser Then
                 For n = 1 To objRecipients(i).AddressEntry.Members.Count
                     If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
                        objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
                     Else
                        objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
                        ContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          Next i
          objRecipients.ResolveAll
    Wend
 
    'Remove the duplicate recipients
    For i = objRecipients.Count To 1 Step -1
        For n = (i - 1) To 1 Step -1
            If objRecipients(i).Address = objRecipients(n).Address Then
               objRecipients(i).Delete
               Exit For
            End If
        Next
    Next
End Sub

5. Осыдан кейін сіз жаңа VBA жобасын хабарлама терезесінің жылдам қол жеткізу құралдар тақтасына қоса аласыз.
6. Кейінірек Outlook макрос қауіпсіздік деңгейін төмен деңгейге орнатуыңыз керек.
7. Соңында сіз көріңіз.

• Алдымен, әдеттегідей электрондық поштаны жазыңыз.
• Содан кейін «Кімге» өрісіне контактілер топтары мен контактілерді қосыңыз.
• Одан кейін Жылдам кіру құралдар тақтасындағы жаңа макрос түймесін басуға болады.
• Бірден Outlook автоматты түрде контакт топтарын кеңейтеді, содан кейін қайталанатын алушыларды жояды.

Бағалы Outlook деректерін қорғаңыз

Outlook істен шығуға бейім болғандықтан, Outlook деректеріңіз бүлінуге бейім. Сонымен, Outlook файлыңызды қорғау үшін көп күш салуыңыз керек. Ең алдымен, PST файлының сақтық көшірмесін жүйелі түрде жасау керек. Ол жеңілдетеді сыбайлас PST жөндеу. Сонымен қатар, сізге ыңғайлы күшті түзету құралын дайындаған дұрыс, мысалы DataNumen Outlook Repair.

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

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