Kontakt guruhiga Outlook elektron pochta xabarini yuborishda ma'lum bir a'zoga etkazib berishni qanday kechiktirish kerak

Ushbu maqola VBA kodining bir qismini baham ko'radi, bu sizga Outlook-dagi kontakt guruhiga elektron pochta xabarini yuborishda ma'lum bir a'zoga yetkazib berishni tezda kechiktirishga imkon beradi.

Kontaktlar guruhiga Outlook elektron pochta xabarini yozganingizda va yuborganingizda, ushbu xatni ushbu guruhning ma'lum bir a'zosiga yuborishni kechiktirishni istasangiz, buni amalga oshirish uchun quyidagi usuldan foydalanishingiz mumkin. U kontakt guruhini avtomatik ravishda kengaytiradi va ma'lum bir a'zoga kechiktirilgan bir xil elektron pochta xabarini yaratadi. Endi batafsil qadamlarni olish uchun o'qing.

Kontakt guruhiga elektron pochta xabarini yuborishda ma'lum bir a'zoga yetkazib berishni kechiktiring

1. Boshlash uchun Outlook dasturingizni ishga tushiring.
2. Keyin paydo bo'ladigan Outlook asosiy oynasida siz "Alt + F11" tugmachalarini bosishingiz kerak.
3. Keyinchalik, siz Outlook VBA muharririga kirish huquqiga ega bo'lasiz, unda siz yangi modulni kiritishingiz yoki ishlatilmaydigan modulni ochishingiz kerak bo'ladi.
4. Shundan so'ng siz ushbu modulga quyidagi VBA kodini nusxalashingiz va joylashtirishingiz mumkin.

Sub DelayEmail_aSpecificMemberinContactGroup()
    Dim objCurrentMail As MailItem
    Dim objRecipients As Recipients
    Dim ContactGroupFound As Boolean
    Dim i, n As Long
    Dim objDelayedMail As MailItem
 
    Set objCurrentMail = ActiveInspector.CurrentItem
    ContactGroupFound = True
 
    While ContactGroupFound = True
          Set objRecipients = objCurrentMail.Recipients
          ContactGroupFound = False
 
          'Expand the contact group 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

    'Find the specific memebr in the recipients
    For Each objRecipient In objRecipients
        If objRecipient.Address = "shelly@datanumen.com" Then
 
           'Create a same email
           Set objDelayedMail = objCurrentMail.Copy
           With objDelayedMail
                .To = ""
                .Recipients.Add objRecipient.Address
                .Recipients.ResolveAll
                'Change the deferred delivery time as per your needs
                .DeferredDeliveryTime = (Date + 1) & " 09:00:00"
                .Send
          End With
 
          objRecipient.Delete
       End If
    Next
 
    objCurrentMail.Send
End Sub

5. Keyinchalik qulay foydalanish uchun xabarlar oynasiga tez kirish asboblar paneliga yangi qo'shilgan makrosni qo'shsangiz yaxshi bo'lardi.
6. Va keyin "Ishonch markazi" ning "Makro sozlamalari" dagi barcha makrolarni yoqish uchun Outlook makro sozlamalarini o'zgartirishingiz kerak.
7. Oxir-oqibat, siz suratga olishingiz mumkin.

• Birinchidan, odatdagidek kontakt guruhiga bunday elektron pochta xabarini yozing.
• Keyin Tez kirish asboblar panelidagi yangi makros tugmasini bosishingiz mumkin.
• Bir vaqtning o'zida bir xil elektron pochta yaratiladi va belgilangan vaqtda ma'lum bir a'zoga yuboriladi.
• Ayni paytda, joriy elektron pochta aloqa guruhidagi qolgan a'zolarga yuboriladi.

Outlook atrofidagi barcha xavflarni kuzatib boring

Zamonaviy davrda viruslar va josuslik dasturlari tobora keng tarqalmoqda. Odatda u zararsiz elektron pochta sifatida niqoblanadi. Shuning uchun, Outlook bilan bog'liq turli xil xavflarga, masalan, zararli elektron pochta xabarlariga e'tibor berishingiz kerak. Noma'lum kontaktlardan kelgan elektron pochta xabarlaridan ehtiyot bo'lishingiz kerak. Shuningdek, Outlook-ni tuzatish Sizning PST faylingiz zararli dastur tomonidan hujumga uchragan zahoti, siz tajribali tuzatish vositasini tayyorlashingiz kerak, masalan DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan sql va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com