Outlook дээрх тодорхой имэйл хаяг руу имэйл илгээхээс хэрхэн сэргийлэх вэ

Олон хэрэглэгчид Outlook дээрх тодорхой имэйл хаяг руу санамсаргүйгээр имэйл илгээхийг хориглоно гэж найдаж байна. Тиймээс энэ нийтлэлд бид үүнийг хэрэгжүүлэх аргыг танилцуулах болно.

Outlook нь тодорхой имэйл хаяг руу имэйл илгээхийг хориглох үндсэн функцуудыг хангадаггүй. Тиймээс, хэрэв та үүнийг ойлгохыг хүсвэл бага зэрэг скрипт бичих шаардлагатай. Одоо, доор бид VBA кодын ийм хэсгийг хуваалцах болно. Хэрэв та VBA-г хэрхэн ашиглахаа мэдэхгүй байгаа бол өмнөх бичлэгийг уншиж болно - “Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ".

Тодорхой имэйл хаяг руу имэйл илгээхээс урьдчилан сэргийлэх

1. Эхлээд Outlook VBA засварлагч руу "Alt + F11"-ээр хандана уу.
2. Дараа нь "ThisOutlookSession" төсөлд дараах кодыг оруулна уу.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim ContactGroupFound As Boolean
    Dim i, n As Long
    Dim objRecipient As Outlook.Recipient
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Expand the contact groups in Recipients
       ContactGroupFound = True
       Do While ContactGroupFound = True
          Set objRecipients = objMail.Recipients
          ContactGroupFound = False
 
          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
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
                     Else
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
                        ContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          Next i
          objRecipients.ResolveAll
       Loop
 
       'Remove specific email address
       For Each objRecipient In objRecipients
           If objRecipient.Address = "shelly@datanumen.com" Then
              If MsgBox("Do you want to email to " & Chr(34) & "shelly@datanumen.com" & Chr(34) & "?", vbExclamation + vbYesNo) = vbNo Then
                 objRecipient.Delete
              End If
           End If
       Next
    End If
End Sub

3. Үүний дараа "Microsoft Visual Basic for Applications" цонхноос гарна уу.
4. Эцэст нь дараах алхмуудаар оролдоод үзээрэй.

• Эхлэхийн тулд имэйл бичиж, хүлээн авагчдыг бөглөнө үү.
• Дараа нь "Илгээх" товчийг дарна уу.
• Макро нь хүлээн авагчид байгаа холбоо барих бүлгүүдийг нэг дор өргөжүүлж, хүлээн авагчид тодорхой имэйл хаяг байгаа эсэхийг олж мэдэх болно.
• Хэрэв хаяг олдвол дараах зурагт үзүүлсэн шиг танд мессеж ирэх болно.
• Хэрэв та "Үгүй" гэснийг сонговол тухайн имэйл хаяг шууд устах болно.
• Захиа илгээсний дараа та тодорхой имэйл хаягийг агуулаагүй хүлээн авагчдыг шалгаж болно.

Эвдэрсэн Outlook файлаа засаарай

Таны Outlook файл гэмтсэн тохиолдол гарч байсан уу? Энэ бол Outlook дээрх хамгийн төвөгтэй асуудал гэдгийг хүлээн зөвшөөрч байна. Үүнд өртөх үед та дараах зүйлсийг хийх хэрэгтэй болно. PST засвар, энэ нь бага зэрэг зангилаа юм. Ердийнх шигээ та Scanpst-ийг анх удаа ашиглах талаар бодох болно. Гэхдээ харамсалтай нь ийм тохиолдолд бүтэлгүйтэж магадгүй юм. Таны амралтын газар илүү туршлагатай хэрэгсэл байх ёстой DataNumen Outlook Repair, эсвэл мэргэжлийн PST сэргээх үйлчилгээ.

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

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