Birden Çok E-postadaki Tüm Köprüleri Yeni Bir Outlook E-postasına Toplu Kopyalama

Birden fazla e-postadaki tüm köprüleri kopyalamak ve ardından bunları yeni bir e-postada başka birine göndermek istiyorsanız, bu makalede açıklanan yaklaşımı kullanabilirsiniz. Bunu tek seferde almanıza izin verebilir.

Bazen, alınan birden çok e-postadan köprüleri çıkarmanız ve belirli bir e-posta adresine göndermeniz gerekebilir. Örneğin, iş arkadaşınız size devam eden bir projeyle ilgili köprüler içeren bazı e-postalar gönderir. Ardından, bu köprüleri tek bir e-postaya çıkarmak ve bu e-postayı diğer e-posta adresinize göndermek istiyorsunuz. Bu durumda most doğrudan yol, köprüleri kaynak e-postalardan tek tek yeni e-postaya kopyalamaktır. Ama çok aptalca ve verimsiz. Şimdi bundan sonra size daha kullanışlı ve hızlı bir yöntem paylaşacağız.

Birden Çok E-postadaki Tüm Köprüleri Yeni Bir E-postaya Toplu Kopyalama

1. En başta, Outlook uygulamasını başlatın.
2. Ardından, köprüleri ayıklamak istediğiniz e-postaları seçin.
3. Ardından, Outlook VBA düzenleyicisini “ göre tetikleyin.Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".
4. VBA editör penceresinde, “MS Word Object Lib” referansını etkinleştirin.rary” göre “Nesne Kitaplığı Nasıl Eklenir?rary VBA'da Referans".
5. Daha sonra aşağıdaki kodu bir modüle koyun.

Sub CopyAllHyperlinksOfMultipleEmails()
    Dim objNewMail As Outlook.MailItem
    Dim objNewMailDocument As Word.Document
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objHyperlink As Word.Hyperlink
 
    'Create a new mail
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
    objNewMail.Display
    Set objNewMailDocument = objNewMail.GetInspector.WordEditor
 
    'Get all selected emails
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    For i = objSelection.Count To 1 Step -1
        If objSelection.Item(i).Class = olMail Then
           Set objMail = objSelection.Item(i)
 
           Set objMailDocument = objMail.GetInspector.WordEditor
 
           'Copy hyperlink to new mail body
           For Each objHyperlink In objMailDocument.Hyperlinks
               objHyperlink.Range.Copy
               objNewMailDocument.Range(0, 0).PasteAndFormat wdFormatOriginalFormatting
               objNewMailDocument.Range(0, 0).Select
               objNewMailDocument.Application.Selection.TypeParagraph
           Next
        End If
    Next
End Sub

6. Bundan sonra, bu makroyu hemen çalıştırmak için “F5” tuşuna basın.
7. Son olarak, makro tamamlandığında, önceden seçilen e-postalardan çıkarılan tüm köprüleri içeren yeni bir posta görünecektir.

Bilinmeyen Köprülere Özel Dikkat Edin

Outlook kullanıcılarının bilinmeyen e-postalardaki tüm şüpheli köprülere karşı dikkatli olmaları özellikle gereklidir. çünkü bu most bunların çoğu, doğrudan Outlook verilerinin bozulmasına neden olabilecek virüsler taşıyabilir. Açıkçası, hiç kimse Outlook verilerini kaybetmeye hazır değil. Bu nedenle, günlük işlerde bilinmeyen postalara dikkat etmeli, virüsleri ve kötü amaçlı yazılımları önlemelisiniz. Artı, mümkünse, deneyimli ve güvenilir bir kişiyle bağlantı kurmanız önerilir. Outlook onarımı araç, örneğin DataNumen Outlook Repair. Outlook PST dosyanız tehlikeye girdiğinde kesinlikle size çok yardımcı olacaktır.

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 düzelt ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com