Bir Outlook E-postası Oluştururken "Kime" Alanındaki Tüm Kişi Gruplarını Toplu Olarak Genişletme

Birçok kullanıcı, Outlook e-postası oluştururken "Kime" alanındaki tüm kişi gruplarını toplu olarak genişletmelerini sağlayacak bir yöntem arıyor. Bu nedenle, bu yazımızda size böyle bir yaklaşımı paylaşacağız.

Genellikle, bir kişi grubunu "Kime" alanında genişletmek için grup adının önündeki "+" simgesine tıklayabilirsiniz. Ancak bu sayede “Kime” alanında birçok kişi grubu varsa ve hepsini genişletmek istiyorsanız biraz can sıkıcı oluyor. Bu nedenle, burada "Kime" alanındaki tüm grupları yalnızca bir tıklamayla hızlı bir şekilde genişletmenin bir yolunu paylaşacağız.

Toplu "Kime" Alanındaki Tüm Kişi Gruplarını Genişletin

1. İlk etapta, Outlook programınızı başlatın.
2. Ardından ana Outlook penceresinde “Alt + F11” tuş düğmelerine basın.
3. Ardından, kullanılmayan bir modüle erişmeniz veya yeni bir modül eklemeniz gereken VBA düzenleyici ekranına gireceksiniz.
4. Ardından, aşağıdaki VBA kodunu bu modüle kopyalayın.

Sub ExpandAllContactGroupsInToField()
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim bContactGroupFound As Boolean
    Dim i As Long
 
    'Get the current mail
    Set objMail = ActiveInspector.CurrentItem
    bContactGroupFound = True
 
    Do While bContactGroupFound = True
       Set objRecipients = objMail.Recipients
       bContactGroupFound = False
 
       'Expand all contact groups in "To" field
       For i = objRecipients.Count To 1 Step -1
           If objRecipients(i).Type = olTo Then
              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)
                        bContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          End If
      Next i
      objRecipients.ResolveAll
    Loop
End Sub

5. Bundan sonra, sağ üst köşedeki çarpı simgesine tıklayarak mevcut pencereden çıkabilirsiniz.
6. Daha sonra bu VBA projesini Mesaj penceresinin Hızlı Erişim Araç Çubuğuna eklemeniz gerekir.

• Öncelikle, yeni bir posta oluşturun.
• Ardından sol üst köşedeki aşağı oka tıklayın.
• Ardından "Diğer Komutlar"ı seçin.
• Yeni iletişim kutusunda, Hızlı Erişim Araç Çubuğuna makro eklemeyi tamamlamak için aşağıdaki resimde gösterilen adımları uygulayabilirsiniz.

7. Son olarak, çekim yapabilirsiniz:

• Öncelikle, her zamanki gibi yeni bir e-posta oluşturun ve yazın.
• Ardından, "Kime" alanına birkaç kişi grubu ekleyin.
• Bundan sonra, Hızlı Erişim Araç Çubuğundaki makro düğmesine tıklayabilirsiniz.
• Aynı anda tüm kişi grupları aşağıdaki resimdeki gibi genişletilecektir:

Outlook Verilerinizi Zamanında Kurtarın

Genel olarak, Outlook'unuzda herhangi bir sorunla karşılaşır karşılaşmaz, ilk olarak gelen kutusu onarım aracı aklınıza gelecektir. Ancak, çoğu zaman herhangi bir etki yaratmaz. Böyle zamanlarda, daha güçlü ve güvenilir bir yardımcı programa, örneğin DataNumen Outlook Repair. Bu olabilir PST'yi düzelt PST dosyanız ne kadar zarar görmüş olursa olsun anında dosya oluşturun.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql'yi kurtar ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com