Qanday qilib bir nechta elektron pochtadagi barcha giperhavolalarni yangi Outlook elektron pochtasiga ommaviy nusxalash

Agar siz barcha giperhavolalarni bir nechta elektron pochta orqali nusxalash va keyin ularni boshqa birovga yangi elektron pochta orqali yuborishni istasangiz, ushbu maqolada keltirilgan yondashuvdan foydalanishingiz mumkin. Bu sizga bir vaqtning o'zida erishishga imkon beradi.

Ba'zida siz bir nechta qabul qilingan xatlardan giperhavolalarni ajratib olishingiz va ma'lum bir elektron pochta manziliga yuborishingiz kerak bo'lishi mumkin. Masalan, sizning hamkasbingiz sizga davom etayotgan loyiha bilan bog'liq giperhavolalarni o'z ichiga olgan elektron pochta xabarlarini yuboradi. Keyin, siz ushbu giperhavolalarni bitta elektron pochtaga chiqarib, ushbu xatni boshqa elektron pochta manzilingizga yubormoqchisiz. Bunday holda, most to'g'ridan-to'g'ri yo'l - manba elektron pochta xabarlaridan yangi elektron pochtaga giperhavolalarni birma-bir nusxalash. Biroq, bu juda ahmoq va samarasiz. Endi, bundan keyin biz sizga qulayroq va tezkor usulni aytib beramiz.

Bir nechta elektron pochtadagi barcha giperhavolalarni yangi elektron pochtaga ommaviy nusxalash

1. Eng boshida Outlook dasturini ishga tushiring.
2. Keyin, giperhavolalarni chiqarmoqchi bo'lgan elektron pochta xabarlarini tanlang.
3. Keyin, “ Outlook VBA muharririni ishga tushiring.Outlook-da VBA kodini qanday ishlatish kerak".
4. VBA muharriri oynasida “MS Word Object Lib” ga havolani yoqingrary "" bo'yichaOb'ektni qanday qo'shish kerakrary VBA-da havola".
5. Keyinchalik, quyidagi kodni modulga qo'ying.

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. Shundan so'ng, ushbu makrosni hozir ishga tushirish uchun "F5" tugmasini bosing.
7. Nihoyat, so'l tugallangach, yangi pochta paydo bo'ladi, unda avval tanlangan elektron pochta xabarlaridan olingan barcha giperhavolalar mavjud.

Noma'lum giperhavolalarga alohida e'tibor bering

Ayniqsa, Outlook foydalanuvchilari noma'lum elektron pochtalardagi barcha shubhali giperhavolalardan ehtiyot bo'lishlari kerak. Buning sababi shundaki, most Ulardan viruslar bo'lishi mumkin, bu esa Outlook ma'lumotlarining buzilishiga olib kelishi mumkin. Shubhasiz, hech kim Outlook ma'lumotlarini yo'qotishga tayyor emas. Shunday qilib, kundalik ishda siz viruslar va zararli dasturlarning oldini olish uchun noma'lum xatlardan ehtiyot bo'lishingiz kerak. Bundan tashqari, iloji bo'lsa, tajribali va ishonchli kishiga murojaat qilish tavsiya etiladi Outlook-ni ta'mirlash kabi vosita DataNumen Outlook Repair. Bu, albatta, Outlook PST faylingiz buzilganda sizga ko'p yordam beradi.

Muallif kirish:

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