Олон имэйл дэх бүх гипер холбоосыг шинэ Outlook имэйл рүү хэрхэн багцаар хуулах вэ

Хэрэв та олон имэйл дэх бүх гипер холбоосыг хуулж аваад өөр хэн нэгэн рүү шинэ имэйлээр илгээхийг хүсвэл энэ нийтлэлд танилцуулсан аргыг ашиглаж болно. Энэ нь танд үүнийг нэг дор авах боломжийг олгоно.

Заримдаа та олон хүлээн авсан имэйлээс гипер холбоосыг задалж, тодорхой имэйл хаяг руу илгээх шаардлагатай болдог. Жишээлбэл, танай хамт олон танд хэрэгжиж буй төсөлтэй холбоотой гипер холбоос агуулсан имэйл илгээдэг. Дараа нь та эдгээр холбоосыг нэг имэйл рүү задалж, энэ имэйлийг өөр имэйл хаяг руу илгээхийг хүсч байна. Энэ тохиолдолд most шууд арга бол шинэ имэйл рүү холбоосыг эх имэйлээс нэг нэгээр нь хуулах явдал юм. Гэхдээ энэ нь хэтэрхий тэнэг бөгөөд үр ашиггүй юм. Одоо, дараа нь бид танд илүү хялбар, хурдан аргыг хуваалцах болно.

Олон имэйл дэх бүх гипер холбоосыг багцаар шинэ имэйл рүү хуулна

1. Хамгийн эхэнд Outlook програмыг ажиллуулаарай.
2. Дараа нь гипер холбоосыг задлах имэйлээ сонгоно уу.
3. Дараа нь Outlook VBA редакторыг “Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ".
4. VBA засварлагч цонхонд “MS Word Object Library "-ийг"Обьектийг хэрхэн яаж нэмэх вэrary VBA-ийн лавлагаа".
5. Дараа нь дараах кодыг модульд оруулна.

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. Үүний дараа яг одоо энэ макро ажиллуулахын тулд "F5" товчийг дарна уу.
7. Эцэст нь, макро хийж дуусахад өмнө нь сонгосон имэйлүүдээс гаргаж авсан бүх холбоосыг агуулсан шинэ захидал гарч ирнэ.

Үл мэдэгдэх гипер холбоосуудад онцгой анхаарал хандуулаарай

Ялангуяа Outlook хэрэглэгчид үл мэдэгдэх имэйл дэх бүх сэжигтэй холбоосуудаас болгоомжлох шаардлагатай. Учир нь тэр мost Эдгээр нь вирус тээгч байж болох бөгөөд энэ нь Outlook-ийн өгөгдлийг шууд эвдэхэд хүргэдэг. Мэдээжийн хэрэг, хэн ч Outlook мэдээллээ алдахад бэлэн биш байна. Тиймээс өдөр тутмын ажилдаа үл мэдэгдэх шуудангаас болгоомжилж, вирус, хортой програмаас урьдчилан сэргийлэх хэрэгтэй. Үүнээс гадна, хэрэв боломжтой бол туршлагатай, найдвартай хүнтэй холбоо барихыг зөвлөж байна Outlook засвар гэх мэт хэрэгсэл DataNumen Outlook Repair. Таны Outlook PST файл эвдэрсэн үед энэ нь танд маш их тус болох нь дамжиггүй.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com