Outlook VBA-ээр дамжуулан бүх гипер холбоос хаягуудыг хэрхэн яаж задлах, харуулах вэ?

Ихэнх тохиолдолд гипер холбоос хаягуудыг харахын тулд та курсорыг харуулж буй текст дээр аваачих хэрэгтэй. Энэ нийтлэлд VBA ашиглан нэг товшилтоор бүх имэйл хаягийг хэрхэн харуулахыг танд заах болно.

Та имэйлийн үндсэн хэсэгт URL нэмэхээс гадна текстүүдэд холбоос оруулахыг зөвшөөрдөг. Энэ тохиолдолд та гипер холбоосын хаягийг шууд харах боломжгүй болно. Та текстийг харуулахын тулд курсорыг зөөх хэрэгтэй. Гэхдээ хаягийг нэг нэгээр нь шалгах шаардлагатай байгаа тул одоогийн имэйлд ийм олон холбоосууд маш их байгаа бол энэ нь нэлээд уйтгартай байх болно.

Энэ асуудлын хариуд бид бүх гипер холбоосын хаягийг шууд гаргаж, харуулахад туслах VBA-г ашиглаж буй хурдан аргыг танилцуулах болно. Энэ аргаар та нэг л товшилт хийх шаардлагатай байна. Одоо дэлгэрэнгүй алхамууд болон VBA кодыг авахын тулд үргэлжлүүлэн уншина уу.

Бүх гипер холбоосын хаягийг гаргаж, имэйлээр харуулах

1. Эхний ээлжинд Outlook програмаа ажиллуулна уу.
2. Дараа нь Outlook-ийн үндсэн цонхонд "Alt + F11" товчлууруудыг дар.
3. Дараа нь та Outlook VBA засварлагч руу нэвтрэх боломжтой болно.
4. Дараа нь та ашиглаагүй байгаа модулийг нээх шаардлагатай болно.
5. Үүний дараа дараахь VBA кодыг хуулж аваад энэ модуль дээр буулгана уу.

Sub ShowAllHyperlinkAddresses()
    Dim objMail As Outlook.MailItem
    Dim objWordDocument As Word.Document
    Dim objWordApp As Word.Application
    Dim objWordSelection As Word.Selection
    Dim objHyperlinks As Word.Hyperlinks
    Dim objHyperlink As Word.Hyperlink
    Dim strLink As String
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
    Set objWordDocument = objMail.GetInspector.WordEditor
    Set objWordApp = objWordDocument.Application
    Set objHyperlinks = objWordDocument.Hyperlinks
 
    If objHyperlinks.Count > 0 Then
       For Each objHyperlink In objHyperlinks
           strLink = objHyperlink.Address
           strLink = vbTab & "<" & strLink & ">"
           objHyperlink.Range.InsertAfter strLink
           objHyperlink.Delete
           With objWordApp.Options
                .AutoFormatReplaceHyperlinks = True
                .AutoFormatApplyOtherParas = False
                .AutoFormatApplyHeadings = False
                .AutoFormatApplyBulletedLists = False
                .AutoFormatApplyLists = False
                .AutoFormatApplyFirstIndents = False
          End With
          Set objWordSelection = objWordApp.Selection
          objWordSelection.Range.AutoFormat
       Next
    End If
End Sub

6. Дараа нь, дараа нь ая тухтай байлгахын тулд та шинэ макро мессежний цонхны Quick Access Toolbar дээр нэмж оруулсан нь дээр.
7. Түүнчлэн, та Outlook-ийн макро тохиргоог макро зөвшөөрөх ёстой.
8. Эцэст нь та хичээгээд үзээрэй.

• Эхлээд олон холбоос агуулсан имэйлийг нээнэ үү.
• Дараа нь засах боломжтой горимд шилжинэ. Зөвхөн "Үйлдэл"> "Зурвас засах" дээр дарна уу.
• Дараа нь Quick Access Toolbar дээрх макро товчийг дарна уу.
• Бүх холбоосын хаягийг нэг дор задалж дараахь дэлгэцийн агшин шиг харуулах болно.

Outlook-ийн асуудлаас дархлаа биш

Хэдийгээр Outlook нь хэрэглэгчдэд маш олон уян хатан функцээр хангаж өгдөг боловч алдаа, ослоос чөлөөлж чадахгүй хэвээр байна. Тиймээс, хэрэв та Outlook өгөгдлөө авлига, алдагдлаас хамгаалахыг хүсч байвал та маш их хүчин чармайлт гаргах хэрэгтэй. Жишээлбэл, та Outlook-ийн өгөгдлийг байнга нөөцлөх хэрэгтэй. Мэдээжийн хэрэг, хэрэв та хүчтэй зүйл бэлдвэл илүү дээр байх болно Outlook сэргээх гэх мэт хэрэгсэл DataNumen Outlook Repair.

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

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