Bu məqalə Outlook-da əlaqə qrupuna e-poçt göndərərkən müəyyən bir üzvə çatdırılmanı tez bir zamanda gecikdirməyə imkan verən VBA kodunun bir hissəsini paylaşacaq.
Kontakt qrupuna Outlook e-poçtu tərtib edib göndərdiyiniz zaman, bu e-məktubu bu qrupun müəyyən üzvünə göndərməyi gecikdirmək istəyirsinizsə, bunu həyata keçirmək üçün aşağıdakı üsuldan istifadə edə bilərsiniz. O, avtomatik olaraq əlaqə qrupunu genişləndirəcək və xüsusi üzvə gecikdirilən eyni e-poçtu yaradacaq. İndi ətraflı addımları əldə etmək üçün oxuyun.
Əlaqə Qrupuna E-poçt Göndərərkən Xüsusi Üzvə Çatdırılmanı Gecikdirin
- Başlamaq üçün Outlook proqramınızı işə salın.
- Sonra, ortaya çıxan Outlook əsas pəncərəsində "Alt + F11" düymələrini basmalısınız.
- Sonradan, yeni modul daxil etməli və ya sadəcə istifadə olunmayan modulu açmalı olduğunuz Outlook VBA redaktoruna giriş əldə edəcəksiniz.
- Bundan sonra aşağıdakı VBA kodunu bu modula köçürə və yapışdıra bilərsiniz.
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
- Sonra, daha sonra rahat giriş üçün Mesaj pəncərəsinin Tez Giriş Alətlər Panelinə yeni əlavə edilmiş makro əlavə etsəniz yaxşı olar.
- Və sonra "Güvən Mərkəzi"nin "Makro Parametrləri"ndə bütün makroları aktivləşdirmək üçün Outlook makro parametrlərinizi dəyişdirməlisiniz.
- Nəhayət, bir atış edə bilərsiniz.
- Birincisi, həmişə olduğu kimi əlaqə qrupuna belə bir e-poçt yazın.
- Sonra Tez Giriş Alətlər Panelində yeni makro düyməsini klikləyə bilərsiniz.
- Dərhal eyni e-poçt yaradılacaq və təyin olunmuş vaxtda xüsusi üzvə göndəriləcək.
- Bu vaxt cari e-poçt əlaqə qrupunun qalan üzvlərinə göndəriləcək.
Görünüşünüz ətrafındakı bütün risklərə diqqət yetirin
Müasir dövrdə virus və casus proqramlar getdikcə daha çox yayılır. Adətən zərərsiz e-poçt kimi gizlədilir. Buna görə də, Outlook-unuzla bağlı zərərli e-poçtlar kimi müxtəlif risklərə diqqət yetirməlisiniz. Naməlum əlaqələrdən gələn e-poçtlardan ehtiyatlı olmalısınız. Həmçinin, Outlook-u düzəldin PST faylınız zərərli proqram tərəfindən hücuma məruz qalan kimi təcrübəli təmir aləti hazırlamalısınız, məsələn DataNumen Outlook Repair.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc zədələnmiş sql və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com