Outlook-da bir nechta elektron pochtadan yangi elektron pochtaga barcha qo'shimchalarni qanday qilib ommaviy nusxalash mumkin

Agar siz yangi elektron pochta yaratmoqchi bo'lsangiz va bir nechta boshqa xatlardagi barcha qo'shimchalarni yangi pochtaga qo'shmoqchi bo'lsangiz, ushbu maqolada keltirilgan usuldan foydalanishingiz mumkin. Bu sizni shabada kabi olish uchun VBA-dan foydalanishni o'rgatadi.

Ba'zida siz bir nechta elektron pochta xabarlaridan yangi elektron pochtaga barcha biriktirmalarni to'liq nusxalashingiz kerak bo'lishi mumkin. Albatta, avval ularni mahalliy diskda saqlash va keyin ularni yangi yaratilgan elektron pochtaga birma-bir biriktirish orqali buni qo'lda qilishni tanlashingiz mumkin. Biroq, ko'rinib turibdiki, bu vosita bilan bu juda zerikarli ish bo'ladi. Shuning uchun, nima uchun uni tezda amalga oshirish uchun VBA dan foydalanmaysiz? Quyida biz sizga murakkab operatsiyalar va tegishli VBA kodlarini taqdim etamiz.

Bir nechta elektron pochtadan yangi elektron pochtaga barcha biriktirmalarni ommaviy nusxalash

1. Eng boshidanoq, Outlook dasturingizni odatdagidek ishga tushiring.
2. Keyinchalik, asosiy Outlook oynasida "Alt + F11" tugmachalarini bosing.
3. Keyingi "Microsoft Visual Basic for Applications" oynasida yangi modulni joylashtiring yoki ishlatilmaydigan modulni oching.
4. Keyin quyidagi VBA kodlarini nusxa ko'chiring va bunday modulga joylashtiring.

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. Shundan so'ng, siz tez kirish asboblar paneliga yangi VBA loyihasini qo'shishni davom ettirishingiz kerak. Siz buni "Outlook Options" da to'ldirishingiz mumkin.
6. Keyinchalik Outlook makro xavfsizlik darajasini past darajaga o'zgartirishingiz kerak.
7. Nihoyat, siz sinab ko'rishingiz mumkin.

• Birinchidan, "Ctrl" tugmasini bosing va qo'shimchalarini nusxalamoqchi bo'lgan bir nechta elektron pochta xabarlarini tanlang.
• Keyin Tez kirish asboblar panelidagi yangi makros tugmasini bosing.
• Darhol, barcha biriktirilgan qo'shimchalar bilan yangi elektron pochta ochiladi.

Tez-tez uchraydigan Outlook PST muammolarini hal qiling

Outlook PST bilan bog'liq muammolar vaqti-vaqti bilan paydo bo'lishi mumkinligi sababli, siz PST ma'lumotlaringizni himoya qilish uchun ko'p harakat qilishingiz kerak. Masalan, siz PST ma'lumotlaringizni muntazam ravishda zaxiralaganingiz ma'qul, shunda siz uni qaytarib olishingiz mumkin bo'ladi. buzilgan Outlook zahiradan olingan ma'lumotlar ter to'kmasdan. Bundan tashqari, siz obro'li vositani yaqin joyda saqlashingiz kerak, masalan DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc ta'mirlash mdf va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com