Outlook VBA vasitəsilə e-poçtda bütün hiperlink ünvanlarını necə çıxarmaq və göstərmək olar

Əksər hallarda, hiperlink ünvanlarını görmək üçün kursoru göstərilən mətnin üzərinə gətirməlisiniz. Bu məqalə sizə VBA-dan istifadə edərək bütün ünvanları bir kliklə bir e-poçtda necə göstərməyi öyrədəcək.

Bildiyiniz kimi, e-poçtun mətninə birbaşa URL əlavə etməkdən başqa, mətnlərə hiperlink daxil etməyə icazə verilir. Bu halda siz hiperlink ünvanlarına birbaşa baxa bilməyəcəksiniz. Kursoru göstərilən mətnin üzərinə gətirməlisiniz. Lakin, cari e-poçtda belə hiperlinklərin çox olması olduqca yorucu olacaq, çünki siz ünvanları bir-bir yoxlamalı olacaqsınız.

Bu problemə cavab olaraq, burada biz bütün hiperlink ünvanlarını birbaşa çıxarmağa və göstərməyə kömək etmək üçün VBA-dan istifadə edən sürətli metodu ifşa edəcəyik. Beləliklə, sizdən tələb olunan şey sadəcə bir klikdir. İndi ətraflı addımları və VBA kodunu əldə etmək üçün oxuyun.

Bütün Hiperlink Ünvanlarını E-poçtda Çıxarın və Göstərin

1. İlk növbədə, Outlook proqramınızı işə salın.
2. Sonra əsas Outlook pəncərəsində "Alt + F11" düymələrini basın.
3. Sonra Outlook VBA redaktoruna uğurla giriş əldə edəcəksiniz.
4. Daha sonra sizdən istifadə olunmayan modulu açmağınız tələb olunacaq.
5. Bundan sonra aşağıdakı VBA kodlarını kopyalayıb bu modula yapışdırın.

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. Daha sonra, daha rahat olmaq üçün mesaj pəncərəsinin Tez Giriş Alətlər Panelinə yeni makro əlavə etsəniz yaxşı olar.
7. Həmçinin, Outlook makro parametrlərinizin makrolara icazə verdiyinə əmin olmalısınız.
8. Nəhayət, bir cəhd edə bilərsiniz.

• Əvvəlcə çoxlu hiperlinkləri ehtiva edən e-poçtu açın.
• Sonra redaktə edilə bilən rejimə keçin. Sadəcə “Fəaliyyətlər” > “Mesajı redaktə et” üzərinə klikləyin.
• Sonra Tez Giriş Alətlər Panelində makro düyməsini basın.
• Bir anda bütün hiperlink ünvanları çıxarılacaq və aşağıdakı ekran görüntüsü kimi göstəriləcək:

Outlook Problemlərindən İmmunitet Deyil

Outlook istifadəçilərə bir çox çevik funksiyalar təqdim etsə də, hələ də səhvlərdən və qəzalardan azad ola bilmir. Buna görə də, Outlook məlumatlarınızı korrupsiya və ya itkidən qorumaq istəyirsinizsə, çox səy göstərməlisiniz. Məsələn, mütəmadi olaraq Outlook məlumatlarının ehtiyat nüsxəsini çıxarmaqda israrlı olmalısınız. Güclü hazırlasanız, əlbəttə ki, daha yaxşı olar Outlook bərpası kimi alət 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 zədələnmiş sql və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com