Bəzən bir çox alıcı ilə e-poçt göndərdiyiniz və ya qəbul etdiyiniz zaman bu alıcılar üçün əlaqə qrupu yaratmaq istəyə bilərsiniz. Bu məqalə Outlook VBA ilə bunu yerinə yetirməyin sürətli yolunu təqdim edəcəkdir.
Əvvəlki yazımızda “Alıcı Siyahısından Əlaqə Qrupunu Necə Yaratmaq olar”, biz e-poçt alıcıları üçün əlaqə qrupu yaratmaq üçün ümumi üsul öyrəndik. Yəni əvvəlcə e-məktublardan alıcıları seçib kopyalamaq, sonra əl ilə əlaqə qrupu yaratmaq və alıcıları “Üzvlər ->” sahəsinə yapışdırmaqdır. Aydındır ki, bu vasitə son dərəcə ağırdır. Buna görə də, burada yeni bir əlaqə qrupunu sürətlə əldə etmək üçün Outlook VBA-dan istifadə edəcək başqa bir yanaşma təqdim edəcəyik. Siz təkrar-təkrar kopyalayıb yapışdırmağa ehtiyac olmadan sadəcə düyməni basa bilərsiniz. Mürəkkəb addımlar və VBA kodları əldə etmək üçün oxuyun.
E-poçtun Alıcı Siyahısından Əlaqə Qrupu yaradın
- Başlamaq üçün Outlook-da "Geliştirici" sekmesine keçməlisiniz.
- Sonra bu nişanın altında "Visual Basic" düyməsini tapıb üzərinə klikləyə bilərsiniz.
- Bundan sonra yeni “Proqramlar üçün Microsoft Visual Basic” pəncərəsi açılacaq. İndi "Daxil et" > "Modul" düymələrini basaraq yeni modul açmalısınız.
- Sonrakı yeni modul pəncərəsində aşağıdakı kodları kopyalayıb ona yapışdıra bilərsiniz.
Sub createcontactgroupforrecipients()
Dim obApp As Application
Dim olSel As Selection
Dim obj As Object
Dim oMail As MailItem
Dim tempMail As MailItem
Dim Recips As Recipients
Dim ConGroup As DistListItem
Dim strName As String
Set obApp = Outlook.Application
Set olSel = obApp.ActiveExplorer.Selection
For Each obj In olSel
If obj.Class = olMail Then
Set oMail = obj
Set tempMail = oMail.ReplyAll
Set Recips = tempMail.Recipients
Set ConGroup = obApp.CreateItem(olDistributionListItem)
strName = InputBox("Specify a name for the new contact group:")
With ConGroup
.AddMembers Recips
.DLName = strName
'Use ".Save" to directly save the new contact group
.Display
End With
tempMail.Close olDiscard
End If
Next
End Sub
- Daha sonra cari “Visual Basic” pəncərəsindən çıxa və Tez Giriş Alətlər Panelinə yeni makro əlavə etməyə davam edə bilərsiniz. Sürətli Giriş Alətlər Panelində aşağı oxu vurun və açılan siyahıdan "Daha çox əmrlər" seçin.
- Daha sonra "Outlook Seçimləri" pəncərəsinə daxil olacaqsınız. Bu nöqtədə aşağıdakı addımları atmalısınız:
- Əvvəlcə "Əmrləri seçin" seçimini "Makrolar"a təyin edin.
- Sonra əvvəllər əlavə edilmiş makronu axtarın və yerləşdirin.
- Sonra mərkəzdəki "Əlavə et" düyməsini basın.
- Sonda “OK” düyməsini sıxın.
- Bundan sonra, Outlook poçt panelinizə qayıda və cəhd edə bilərsiniz.
- Əvvəlcə hər hansı bir poçt qovluğunda bir poçta yer verə bilərsiniz.
- Sonra aşağıdakı şəkildəki kimi Tez Giriş Alətlər Panelində düyməni basın:
- Sonra sizdən yeni əlaqə qrupu üçün ad təyin etməyi tələb edən bir mesaj qutusu alacaqsınız.
- Daha sonra "OK" düyməsini basın. Bir anda, bütün seçilmiş e-poçt alıcılarını ehtiva edən yeni əlaqə qrupu açılacaq. Onu saxlamaq üçün "Saxla və Bağla" düyməsini vura bilərsiniz.
Outlook Data Protection-da Olmalıdır
Outlook-un həssas olması səbəbindən onların Outlook məlumatlarını qorumaq üçün kifayət qədər ehtiyat tədbirləri görməlisiniz. Birincisi, müntəzəm Outlook məlumatlarının ehtiyat nüsxəsini çıxarmalısınız. Bundan əlavə, daxili təmir aləti Scanpst.exe-ni necə tapmaq və işə salmaq lazım olduğunu bilməlisiniz. Sonuncu, lakin ən vacib zərurət mükəmməl xaricidir zədələnmiş Outlook məlumat təmir alətiKimi DataNumen Outlook Repair, backup və Scanpst.exe hər ikisi uğursuz olarsa, bu sizə kömək edəcək.
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 təmir SQL Server mdf verilənlər bazası xətası və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com