Bir Outlook E-postası Oluştururken Gövde İçinde Bulunan Tüm E-posta Adreslerini Hızlı Bir Şekilde “CC” Alanına Kopyalama

Bazen, bir e-posta oluşturduğunuzda, bu postayı mesaj gövdesindeki e-posta adreslerine CC yapmak isteyebilirsiniz. Bu makale, hızlı bir şekilde almanız için size rehberlik edecektir.

Örneğin, birisi sizden bazı kişilerin e-posta adresleri gibi iletişim bilgilerini ister. Bu durumda, iletişim bilgilerini başkalarına gönderirken bu kişileri bu konuda bilgilendirmek isteyebilirsiniz. Bu nedenle, e-posta adreslerini mesaj gövdesinden “CC” alanına kopyalamak istiyorsunuz. Genel olarak, manuel olarak tek tek yapmanız gerekir. Ama çok sıkıcı ve zahmetli. Dolayısıyla, aşağıda çok daha akıllı bir yol tanıtacağız.

Oluştururken Gövde İçinde Oluşan E-posta Adreslerini “CC” Alanına Kopyalayın

1. En başta, Outlook VBA düzenleyicisini başlatmak için “Alt + F11” tuşlarına basın.
2. Ardından, yeni pencerede aşağıdaki VBA kodunu boş bir modüle yerleştirin.

Sub CopyEmailAddresses_FromBodyToCCField()
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Object
    Dim objDocRange As Object
    Dim objRecipient As Outlook.Recipient
 
    'Get the current mail
    Set objMail = Application.ActiveInspector.CurrentItem
    Set objMailDocument = objMail.GetInspector.WordEditor
    Set objDocRange = objMailDocument.Range
 
    'Extract email addresses from mail body
    With objDocRange.Find
         .ClearFormatting
         .Replacement.ClearFormatting
         .Text = "[A-z,0-9]{1,}\@[A-z,0-9,.]{1,}"
         .MatchWildcards = True
         .Wrap = wdFindStop
         .Execute
    End With
 
    'Add the found email addresses as CC recipients
    While objDocRange.Find.Found
          Set objRecipient = objMail.Recipients.Add(objDocRange.Text)
          objRecipient.Type = olCC
          objDocRange.Collapse wdCollapseEnd
          objDocRange.Find.Execute
    Wend
 
    'Resolve all recipients
    objMail.Recipients.ResolveAll
End Sub

3. Bundan sonra, VBA editöründen çıkın ve bu yeni makroyu Mesaj penceresinin Hızlı Erişim Araç Çubuğuna ekleyin.Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".
4. Sonunda, bir atış yapabilirsiniz. İşte benim gerçek örneğim.

• Öncelikle, gövdede bir yığın e-posta adresi içeren bir e-posta oluşturuyorum.
• Ardından, Hızlı Erişim Araç Çubuğundaki makro düğmesini tıklayın.
• Hemen, makro bittiğinde, aşağıdaki ekran görüntüsündeki gibi gövdedeki tüm e-posta adresleri “CC” alanına kopyalanacaktır.

Outlook Verileriniz Hasar Alırsa Ne Olur?

Outlook'un insan hataları, ani kapanmalar, Outlook iç yazılım hataları ve bilgisayar donanım arızaları gibi çeşitli faktörler nedeniyle zarar görebileceği iyi bilinmektedir. Bu nedenle, gerçekte birçok kullanıcı Outlook'ta benzer sorunlarla karşılaşmıştır. En can sıkıcı ve sorunlu problemin Outlook dosya hasarı olduğu kabul edilmektedir. Bu durumda, profesyonel yardım almanız gerekecektir. PST kurtarma hizmet veya yazılım gibi DataNumen Outlook Repair.

Yazar Tanıtımı:

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