Kung nais mong kopyahin ang lahat ng mga hyperlink sa maraming mga email at pagkatapos ay ipadala ang mga ito sa isang bagong email sa ibang tao, maaari mong gamitin ang diskarte na ipinakilala sa artikulong ito. Nagagawa mong payagan kang makuha ito nang sabay-sabay.
Sa mga oras, maaaring kailanganin mong kunin at ipadala ang mga hyperlink mula sa maraming natanggap na mga email sa isang tukoy na email address. Halimbawa, nagpapadala sa iyo ang iyong kasamahan ng ilang mga email na naglalaman ng mga hyperlink na nauugnay sa isang nagpapatuloy na proyekto. Pagkatapos, nais mong kunin ang mga hyperlink na ito sa isang solong email at ipadala ang email na ito sa iyong iba pang email address. Sa kasong ito, ang most direktang paraan ay ang pagkopya ng mga hyperlink sa bagong email nang paisa-isa mula sa mga pinagmulang email. Ngunit, ito ay masyadong hangal at hindi mabisa. Ngayon, pagkatapos nito, magbabahagi kami sa iyo ng isang mas maginhawa at mabilis na pamamaraan.
Batch Kopyahin ang Lahat ng mga Hyperlink sa Maramihang Mga Email sa isang Bagong Email
- Sa simula pa lang, ilunsad ang application ng Outlook.
- Pagkatapos, piliin ang mga email kung saan mo nais kumuha ng mga hyperlink.

- Susunod, mag-trigger ng editor ng VBA ng Outlook alinsunod sa “Paano Patakbuhin ang VBA Code sa Iyong Outlook".
- Sa window ng editor ng VBA, paganahin ang sanggunian sa "MS Word Object Library "ayon sa bawat"Paano Magdagdag ng isang Object Library Sanggunian sa VBA".
- Sa paglaon, ilagay ang sumusunod na code sa isang module.
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
- Pagkatapos nito, pindutin ang "F5" upang patakbuhin ang macro na ito ngayon.
- Panghuli, kapag nakumpleto ang macro, lalabas ang isang bagong mail, na naglalaman ng lahat ng mga hyperlink na nakuha mula sa dating napiling mga email.
Magbayad ng Espesyal na Pansin sa Hindi kilalang mga Hyperlink
Lalo na kinakailangan para sa mga gumagamit ng Outlook na mag-ingat sa lahat ng mga kahina-hinalang hyperlink sa hindi kilalang mga email. Ito ay dahil sa most sa mga ito ay maaaring magdala ng mga virus, na maaaring direktang magresulta sa katiwalian ng data ng Outlook. Malinaw na, walang handa na mawala ang kanilang data sa Outlook. Samakatuwid, sa pang-araw-araw na trabaho, dapat mong bantayan ang mga hindi kilalang mail, na pumipigil sa mga virus at malware. Dagdag pa, kung maaari, iminungkahi na humawak sa isang may karanasan at maaasahan Pag-aayos ng Outlook tool, tulad ng DataNumen Outlook Repair. Tiyak na makakatulong ito sa iyo nang malaki kapag nakompromiso ang iyong file ng Outlook PST.
Panimula ng May-akda:
Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang ayusin ang sql at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa

