Bazen, çok sayıda alıcıyla bir e-posta gönderip aldığınızda, bu alıcılar için bir kişi grubu oluşturmak isteyebilirsiniz. Bu makale, Outlook VBA ile gerçekleştirmenin hızlı bir yolunu tanıtacaktır.
Bir önceki yazımızda “Alıcı Listesinden Bir Kişi Grubu Nasıl Oluşturulur”, e-posta alıcıları için kişi grubu oluşturmak için yaygın bir yöntem öğrendik. Bu, öncelikle e-postalardan alıcıları seçip kopyalamak ve ardından manuel olarak bir kişi grubu oluşturmak ve alıcıları “Üyeler ->” alanına yapıştırmak içindir. Açıkçası, bu araç son derece hantal. Bu nedenle, burada yeni bir kişi grubunu hızla elde etmek için Outlook VBA'yı kullanacak başka bir yaklaşımı tanıtacağız. Tekrar tekrar kopyalayıp yapıştırmanıza gerek kalmadan sadece bir düğmeye basabilirsiniz. Ayrıntılı adımları ve VBA kodlarını öğrenmek için okumaya devam edin.
Bir E-postanın Alıcı Listesinden Bir Kişi Grubu Oluşturun
- Öncelikle Outlook'ta "Geliştirici" sekmesine gitmelisiniz.
- Ardından bu sekmenin altında “Visual Basic” düğmesini bulabilir ve tıklayabilirsiniz.
- Bundan sonra yeni bir “Uygulamalar için Microsoft Visual Basic” penceresi açılacaktır. Şimdi “Ekle” > “Modül”e tıklayarak yeni bir modül açmalısınız.
- Sonraki yeni modül penceresinde, aşağıdaki kodları kopyalayıp içine yapıştırabilirsiniz.
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 mevcut "Visual Basic" penceresinden çıkıp yeni makroyu Hızlı Erişim Araç Çubuğuna eklemeye devam edebilirsiniz. Hızlı Erişim Araç Çubuğundaki aşağı oka tıklayın ve açılır listeden "Diğer Komutlar"ı seçin.
- Daha sonra, "Outlook Seçenekleri" penceresine gireceksiniz. Bu noktada, aşağıdaki adımları uygulamanız gerekir:
- Öncelikle, "Komutları seç" seçeneğini "Makrolar" olarak ayarlayın.
- Ardından, önceden eklenen makroyu bulun ve ortaya çıkarın.
- Daha sonra merkezdeki “Ekle” düğmesine tıklayın.
- Son olarak “OK” butonuna basınız.
- Bundan sonra, Outlook posta bölmenize dönebilir ve deneyebilirsiniz.
- İlk başta, herhangi bir posta klasöründe bir postaya satış konuşması yapabilirsiniz.
- Ardından, aşağıdaki görüntüdeki gibi Hızlı Erişim Araç Çubuğundaki düğmeyi tıklayın:
- Ardından, yeni kişi grubu için bir ad belirtmenizi isteyen bir mesaj kutusu alacaksınız.
- Daha sonra “OK” butonuna tıklayın. Hemen, seçilen tüm e-posta alıcılarını içeren yeni kişi grubu açılır. Kaydetmek için “Kaydet ve Kapat”a basabilirsiniz.
Outlook Veri Korumasında Olmazsa Olmaz Özellikler
Outlook'un savunmasız olması nedeniyle, Outlook verilerini korumak için yeterli önlemi almalısınız. İlk olarak, düzenli bir Outlook veri yedeklemesi yapmalısınız. Ek olarak, yerleşik onarım aracı Scanpst.exe'yi nasıl bulacağınızı ve çalıştıracağınızı bilmeniz gerekir. Son fakat en az değil gereklilik, bir yıldız dış bozuk Outlook veri onarım aracıGibi DataNumen Outlook Repairyedekleme ve Scanpst.exe'nin her ikisi de başarısız olursa imdadınıza yetişecek.
Yazar Tanıtımı:
Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. onarım SQL Server mdf veritabanı hatası ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com