Бөлшек доменмен барлық электрондық пошта мекенжайларын Outlook контактілерінен қалай жоюға болады

Кейде сіз белгілі бір домені бар барлық электрондық пошта мекен-жайларын контактілерден алып тастаймын деп үміттене аласыз. Мұндай жағдайда сіз мұны бір-бірлеп жасағыңыз келмеуі керек. Осылайша, бұл бost сізге әлдеқайда ақылды әдісті үйретеді.

Мысалы, компания өз атауын өзгертеді. Сонымен қатар, компанияның домені де өзгереді. Дегенмен, Outlook-те сіз осы компанияда электрондық пошта мекен-жайлары ескі доменде болатын көптеген контактілерді сақтадыңыз. Әрине, бұл электрондық пошта мекенжайлары енді жарамсыз. Сондықтан, егер сіз осы электрондық пошта мекен-жайларын бір мезетте алып тастағыңыз келсе, келесі әдісті қолдана аласыз.

Байланыстан нақты домені бар барлық электрондық пошта мекенжайларын топтамалық түрде алып тастаңыз

1. Үшінtart, «Alt + F11» пернелер тіркесімі арқылы Outlook VBA редакторына кіріңіз.
2. Содан кейін жаңа терезеде келесі VBA кодын бос модульге салыңыз.

Dim strDomain As String

Sub BatchRemoveAllEmailAddressesInSpecificDomain()
    Dim objStore As Store
    Dim objFolder As Folder
    Dim lTotalCount As Long
 
    'Input the specific domain
    strDomain = InputBox("Enter the specific domain:", , "@false.com")
 
    If Len(strDomain) <> 0 Then
       lTotalCount = 0
       'Process all Contact folders in your Outlook
       For Each objStore In Application.Session.Stores
           For Each objFolder In objStore.GetRootFolder.Folders
               If objFolder.DefaultItemType = olContactItem Then
                  Call ProcessContactFolders(objFolder, lTotalCount)
               End If
           Next
       Next
 
       'Prompt you
       MsgBox lTotalCount & " email addresses in " & strDomain & " are removed!", vbInformation + vbOKOnly
    End If
End Sub

Sub ProcessContactFolders(ByVal objCurrentFolder As Folder, ByRef lCount As Long)
    Dim objContacts As Items
    Dim i As Long
    Dim objContact As ContactItem
 
    Set objContacts = objCurrentFolder.Items
 
    For i = objContacts.Count To 1 Step -1
        If TypeName(objContacts(i)) = "ContactItem" Then
           Set objContact = objContacts(i)
 
           'Check 3 email addresses of each contact
           If InStr(objContact.Email1Address, strDomain) > 0 Then
              lCount = lCount + 1
              objContact.Email1Address = ""
              objContact.Email1DisplayName = ""
           ElseIf InStr(objContact.Email2Address, strDomain) > 0 Then
              lCount = lCount + 1
              objContact.Email2Address = ""
              objContact.Email2DisplayName = ""
           ElseIf InStr(objContact.Email3Address, strDomain) > 0 Then
              lCount = lCount + 1
              objContact.Email3Address = ""
              objContact.Email3DisplayName = ""
           End If
 
           objContact.Save
        End If
     Next
 
     If objCurrentFolder.Folders.Count > 0 Then
        For Each objSubfolder In objCurrentFolder.Folders
            Call ProcessContactFolders(objSubfolder, lCount)
        Next
     End If
End Sub

3. Осыдан кейін курсорды «BatchRemoveAllEmailAddressesInSpecificDomain» ішкі бағдарламасына салыңыз.
4. Соңында, макросты бастау үшін «F5» батырмасын басыңыз.
5. Кейіннен қалқымалы диалогтық терезеге нақты доменді енгізіңіз.
6. «ОК» батырмасын басқаннан кейін макрос іске қосылады.
7. Аяқтағаннан кейін сіз нәтижелер туралы хабарлама аласыз.
8. Енді сіз контактілерді тексере аласыз. Белгілі бір доменмен барлық электрондық пошта мекенжайлары жоғалып кеткен болуы керек.

Outlook файлын сақтаңыз

Сіздің Outlook-қа қатысты тәуекелдер көбірек бола отырып, құнды Outlook деректерін сақтау қиынға соғады. Мысалы, сіз деректердің сақтық көшірмесін жасауды жалғастырып қана қоймай, сонымен қатар өз әрекеттеріңізге мұқият болуыңыз керек. Белгісіз жіберушілердің кез-келген электрондық поштасына сенім арту ақылға қонымды емес. Әйтпесе, егер ол вирус тасымалдайтын болса, сіздің Outlook файлыңыз вирусқа ұшырайды. Сол кезде сіз тырысуыңыз керек Перспективаны жөндеу сияқты керемет түзету құралы арқылы DataNumen Outlook Repair.

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

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