Bütün əlavələri birdən çox e-poçtdan Outlook-da yeni bir e-poçta toplu şəkildə necə kopyalamaq olar

Yeni e-poçt yaratmaq və bir neçə başqa e-poçtdakı bütün qoşmaları yeni məktuba əlavə etmək istəyirsinizsə, bu məqalədə təqdim olunan üsuldan istifadə edə bilərsiniz. Bu, meh kimi əldə etmək üçün VBA-dan istifadə etməyi sizə öyrədəcək.

Bəzən birdən çox e-poçtdan bütün əlavələri toplu şəkildə yeni e-poçta köçürməli ola bilərsiniz. Əlbəttə ki, siz bunu əl ilə etməyi seçə bilərsiniz, sadəcə olaraq əvvəlcə onları yerli diskdə saxlamaq və sonra onları bir-bir yeni yaradılmış e-poçta əlavə etməklə. Ancaq görünür, bu vasitə ilə bu, olduqca yorucu bir iş olacaq. Buna görə də, onu tez həyata keçirmək üçün niyə VBA-dan istifadə etmirsiniz? Aşağıda sizə ətraflı əməliyyatları və müvafiq VBA kodlarını təqdim edəcəyik.

Çoxlu E-poçtdan Bütün Əlavələri Yeni E-poçta Kopyalayın

1. Ən başında, Outlook proqramınızı həmişəki kimi başlayın.
2. Sonrakı əsas Outlook pəncərəsində "Alt + F11" düymələrini basın.
3. Sonrakı “Proqramlar üçün Microsoft Visual Basic” pəncərəsində yeni modul daxil edin və ya istifadə olunmayan modulu açın.
4. Sonra aşağıdakı VBA kodlarını kopyalayıb belə modula yapışdı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 layihəsini Tez Giriş Alətlər Panelinə əlavə etməyə davam etməlisiniz. Bunu "Outlook Seçimləri"ndə tamamlaya bilərsiniz.
6. Daha sonra Outlook makro təhlükəsizlik səviyyənizi aşağı səviyyəyə dəyişdirməlisiniz.
7. Nəhayət, bir cəhd edə bilərsiniz.

• Əvvəlcə "Ctrl" düyməsini basın və əlavələrini kopyalamaq istədiyiniz bir neçə e-poçtu seçin.
• Sonra Tez Giriş Alətlər Panelində yeni makro düyməsini basın.
• Dərhal, əlavə edilmiş bütün əlavələrlə yeni bir e-poçt açılacaq.

Tez-tez Outlook PST Problemlərinə Çəkin

Outlook PST problemləri indi və sonra baş verə biləcəyi üçün PST məlumatlarınızı qorumaq üçün çox səy göstərməlisiniz. Məsələn, PST məlumatlarınızın ehtiyat nüsxəsini müntəzəm surətdə çıxarsanız daha yaxşı olar ki, geri qaytara biləsiniz. korlanmış Outlook tər tökmədən ehtiyat nüsxələrdən alınan məlumatlar. Üstəlik, məsələn, yaxınlıqda etibarlı bir alət saxlamalısınız DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc təmir mdf və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com