Outlook'ta Birden Çok E-postadaki Tüm Ekleri Toplu Olarak Yeni Bir E-postaya Kopyalama

Yeni bir e-posta oluşturmak ve diğer birkaç e-postadaki tüm ekleri yeni postaya eklemek istiyorsanız, bu makalede açıklanan yöntemi kullanabilirsiniz. Bir esinti gibi elde etmek için size VBA kullanmayı öğretecek.

Bazen birden çok e-postadaki tüm ekleri toplu olarak yeni bir e-postaya kopyalamanız gerekebilir. Tabii ki, önce bunları yerel sürücüye kaydederek ve ardından bunları yeni oluşturulan bir e-postaya teker teker ekleyerek manuel olarak yapmayı seçebilirsiniz. Ancak, görünüşe göre, bu sayede oldukça sıkıcı bir iş olacak. Bu nedenle, bunu hızlı bir şekilde gerçekleştirmek için neden VBA'yı kullanmıyorsunuz? Aşağıda, size ayrıntılı işlemleri ve karşılık gelen VBA kodlarını göstereceğiz.

Birden Fazla E-postadaki Tüm Ekleri Yeni Bir E-postaya Toplu Kopyalama

1. Öncelikle, Outlook programınızı her zamanki gibi başlatın.
2. Sonraki ana Outlook penceresinde, “Alt + F11” tuş düğmelerine basın.
3. Sonraki “Microsoft Visual Basic for Applications” penceresinde yeni bir modül ekleyin veya kullanılmayan bir modülü açın.
4. Ardından aşağıdaki VBA kodlarını kopyalayıp böyle bir modüle yapıştırın.

Sub NewEmailwithAttachmentsinSeveralEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim strFilePath As String
    Dim objNewMail As Outlook.MailItem
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
 
    On Error Resume Next
    For Each objMail In objSelection
        For Each objAttachment In objMail.attachments
 
            'Save all the attachments to temporary folder
            Set objFileSystem = CreateObject("Scripting.FileSystemObject")
            strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
            objAttachment.SaveAsFile (strFilePath)
 
            'Add the attachments to the new email
             objNewMail.attachments.Add (strFilePath)
 
            'Delete the temporary files
            objFileSystem.DeleteFile (strFilePath)
        Next
    Next
 
    'Show the new email
    objNewMail.Display
End Sub

5. Bundan sonra, yeni VBA projesini Hızlı Erişim Araç Çubuğuna eklemeye devam etmelisiniz. "Outlook Seçenekleri"nde tamamlayabilirsiniz.
6. Daha sonra Outlook makro güvenlik düzeyinizi düşük olarak değiştirmelisiniz.
7. Sonunda bir deneyebilirsin.

• İlk olarak, “Ctrl” tuşuna basın ve eklerini kopyalamak istediğiniz birkaç e-postayı seçin.
• Ardından, Hızlı Erişim Araç Çubuğundaki yeni makro düğmesine basın.
• Hemen, tüm eklerin eklendiği yeni bir e-posta açılır.

Sık Karşılaşılan Outlook PST Sorunlarını Sorun

Outlook PST sorunları ara sıra ortaya çıkabileceğinden, PST verilerinizi korumak için çok çaba harcamalısınız. Örneğin, PST verilerinizi düzenli olarak yedeklemeniz daha iyi olur, öyle ki geri dönebilirsiniz. bozuk Outlook yedeklemelerden elde edilen verileri ter dökmeden. Ayrıca, yakınınızda saygın bir araç bulundurmanız gerekir. 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. onarım mdf ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com