VBA ашиглан Outlook имэйлээс давхардсан хүлээн авагчдыг хэрхэн хурдан устгах вэ

Хэрэв та одоогийн имэйлийн "Хэнд" талбарт холбоо барих бүлгүүдийг нэмбэл тэдгээрийн дунд давхардсан бүлгүүд байж болно. Энэ нийтлэл нь давхардсан хүлээн авагчдыг хурдан арилгахын тулд VBA-г хэрхэн ашиглахыг заах болно.

Имэйл бичихдээ, хэрэв та зөвхөн харилцагчдыг нэмээд зогсохгүй харилцагчийн бүлгүүдийг хүлээн авагчаар нэмбэл заримдаа харилцагчийн бүлгүүд өгөгдмөлөөр хумигдсан байдаг тул давхардсан хүлээн авагчид байж болно. Энэ тохиолдолд, хэрэв та давхардсаныг олж мэдэхийг хүсвэл эхлээд холбоо барих бүлгүүдийг өргөжүүлж, дараа нь хүлээн авагчдыг гараар харьцуулах хэрэгтэй бөгөөд үүнийг миний өмнөх нийтлэлд нарийвчлан танилцуулсан болно- "Давхардсан хүлээн авагчдыг Outlook имэйлээс хэрхэн устгах вэ?”. Ямар ч эргэлзээгүйгээр энэ нь маш уйтгартай юм. Тиймээс олон хэрэглэгчид давхардсан хүлээн авагчдыг хурдан арилгахыг хүсдэг. Дараах хэсэгт бид танд Outlook VBA-г ашиглахыг заах болно.

Таны Outlook имэйл дэх давхардсан хүлээн авагчдыг хурдан устгана уу

1. Эхний ээлжинд Outlook програмаа ажиллуулна уу.
2. Дараа нь "Хөгжүүлэгч" таб руу шилжиж, "Visual Basic" товчийг дарна уу эсвэл "Alt + F11" товчийг дарна уу.
3. Дараа нь "Microsoft Visual Basic for Applications" цонхонд хоосон модулийг нээж болно.
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 төслийг мессежийн цонхны Quick Access Toolbar дээр нэмж болно.
6. Дараа нь та Outlook-ын макро аюулгүй байдлын түвшинг доод түвшинд тохируулах хэрэгтэй.
7. Эцэст нь та хичээгээд үзээрэй.

• Эхлээд ердийнхөөрөө имэйл бичээрэй.
• Дараа нь "Хэнд" талбарт харилцах бүлгүүд болон харилцагчдыг нэмнэ үү.
• Дараа нь та Quick Access Toolbar дахь шинэ макро товчийг дарж болно.
• Нэг дор Outlook нь холбоо барих бүлгүүдийг автоматаар өргөжүүлж, дараа нь давхардсан хүлээн авагчдыг устгана.

Өөрийн үнэ цэнэтэй Outlook өгөгдлөө хамгаалаарай

Outlook нь гацах хандлагатай байдаг тул таны Outlook мэдээлэл авлигад өртөмтгий байдаг. Тиймээс та Outlook файлаа хамгаалахын тулд маш их хүчин чармайлт гаргах хэрэгтэй. Юуны өмнө та PST файлаа тогтмол нөөцлөх хэрэгтэй. Энэ нь хөнгөвчлөх болно авлига авсан PST засвар. Нэмж дурдахад та хүчирхэг засах хэрэгсэл, тухайлбал гар дээр бэлтгэсэн нь дээр DataNumen Outlook Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. mdf засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com