Birdən çox e-poçtdakı bütün hiperlinkləri yeni Outlook e-poçtuna toplu şəkildə necə kopyalamaq olar

Bütün hiperlinkləri birdən çox e-poçtda kopyalamaq və sonra onları başqasına yeni e-poçtla göndərmək istəyirsinizsə, bu məqalədə təqdim olunan yanaşmadan istifadə edə bilərsiniz. Bunu bir anda əldə etməyə imkan verə bilər.

Bəzən bir çox qəbul edilmiş e-poçtdan hiperlinkləri çıxarıb müəyyən e-poçt ünvanına göndərmək lazım ola bilər. Məsələn, həmkarınız sizə davam edən layihə ilə bağlı hiperlinkləri ehtiva edən bəzi e-poçtlar göndərir. Sonra, bu hiperlinkləri bir e-poçta çıxarmaq və bu e-poçtu digər e-poçt ünvanınıza göndərmək istərdiniz. Bu halda most birbaşa yol hiperlinkləri mənbə e-poçtlarından bir-bir yeni e-poçta köçürməkdir. Ancaq bu, çox axmaq və səmərəsizdir. İndi bundan sonra sizə daha rahat və sürətli bir üsul paylaşacağıq.

Çoxlu E-poçtda Bütün Hiperlinkləri Yeni E-poçta Kopyalayın

1. Ən başlanğıcda Outlook proqramını işə salın.
2. Sonra, hiperlinkləri çıxarmaq istədiyiniz e-poçtları seçin.
3. Sonra, "a uyğun olaraq Outlook VBA redaktorunu işə salın.Outlook-da VBA kodunu necə işlətmək olar".
4. VBA redaktoru pəncərəsində “MS Word Object Library" kimi "Necə Obyekt Lib əlavə etmək olarrary VBA-da istinad".
5. Daha sonra aşağıdakı kodu modula yerləşdirin.

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. Bundan sonra bu makronu indi işə salmaq üçün “F5” düyməsini sıxın.
7. Nəhayət, makro tamamlandıqda, əvvəllər seçilmiş e-poçtlardan çıxarılan bütün hiperlinkləri ehtiva edən yeni bir məktub görünəcək.

Naməlum hiperlinklərə xüsusi diqqət yetirin

Xüsusilə Outlook istifadəçiləri üçün naməlum e-poçtlardakı bütün şübhəli hiperlinklərdən ehtiyatlı olmaq lazımdır. Ona görə ki, most onlardan virus daşıya bilər ki, bu da birbaşa Outlook məlumatlarının korlanması ilə nəticələnə bilər. Aydındır ki, heç kim Outlook məlumatlarını itirməyə hazır deyil. Beləliklə, gündəlik işinizdə virusların və zərərli proqramların qarşısını alan naməlum məktublara diqqət yetirməlisiniz. Üstəlik, mümkünsə, təcrübəli və etibarlı bir şəxsə müraciət etmək tövsiyə olunur Outlook təmiri kimi alət DataNumen Outlook Repair. Bu, şübhəsiz ki, Outlook PST faylınız təhlükə altına düşəndə ​​sizə çox kömək edəcək.

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 sql-ı düzəldin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com