Cara Menunda Penghantaran kepada Anggota Tertentu ketika Menghantar Email Outlook ke Kumpulan Kenalan

Artikel ini akan berkongsi sekeping kod VBA, yang membolehkan anda menangguhkan penghantaran dengan cepat kepada anggota tertentu ketika mengirim e-mel ke kumpulan kenalan di Outlook.

Semasa anda menulis dan menghantar e-mel Outlook ke kumpulan kenalan, jika anda ingin menangguhkan penghantaran e-mel ini kepada ahli tertentu dalam kumpulan ini, anda boleh menggunakan kaedah berikut untuk mewujudkannya. Secara automatik akan meluaskan kumpulan kenalan dan menghasilkan e-mel yang sama yang ditangguhkan kepada ahli tertentu. Sekarang, baca terus untuk mendapatkan langkah-langkah terperinci.

Menunda Penghantaran kepada Anggota Tertentu ketika Menghantar E-mel ke Kumpulan Kenalan

1. Untuk bermula, lancarkan program Outlook anda.
2. Kemudian, di tetingkap utama Outlook yang muncul, anda harus menekan butang "Alt + F11".
3. Selepas itu, anda akan mendapat akses ke editor Outlook VBA, di mana anda perlu memasukkan modul baru atau hanya membuka modul yang tidak digunakan.
4. Selepas itu, anda boleh menyalin dan menampal kod VBA berikut ke dalam modul ini.

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. Seterusnya, untuk akses mudah kemudian, lebih baik anda menambahkan makro yang baru ditambahkan ke tetingkap Mesej Alat Akses Cepat
6. Dan kemudian anda harus mengubah tetapan makro Outlook anda untuk mengaktifkan semua makro di "Tetapan Makro" dari "Pusat Amanah".
7. Akhirnya, anda boleh mengambil gambar.

• Pertama, buat e-mel seperti itu kepada kumpulan kenalan seperti biasa.
• Kemudian anda boleh mengklik butang makro baru di Bar Alat Akses Pantas.
• Sekali gus, e-mel yang sama akan dibuat dan ditetapkan untuk dikirimkan kepada anggota tertentu pada waktu yang dijadualkan.
• Sementara itu, e-mel semasa akan dihantar kepada anggota lain dalam kumpulan kenalan.

Awasi Semua Risiko Mengenai Tinjauan Anda

Dalam era kontemporari, virus dan perisian intip semakin berleluasa. Ia biasanya disamarkan sebagai e-mel yang tidak berbahaya. Oleh itu, anda harus berhati-hati dengan pelbagai risiko di sekitar Outlook anda, seperti e-mel berniat jahat. Anda perlu berhati-hati dengan e-mel daripada kenalan yang tidak dikenali. Selain itu, untuk betulkan Outlook sebaik sahaja fail PST anda diserang oleh perisian hasad, anda harus menyediakan alat pembaikan yang berpengalaman, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk sql rosak dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com