Kuidas kiiresti Excelisse eksportida kõik mitme Outlooki meili hüperlingid

Kui teil on vaja kõik hüperlingid ühest või mitmest e-kirjast välja võtta, on rumal neid ükshaaval kopeerida. See postitus õpetab teile meetodit, kuidas kiiresti eksportida kõik hüperlingid paljudest e-kirjadest Exceli.

Teatud põhjustel, näiteks kõigi saadetud meilide hüperlinkide logimisel, peate hüperlingid ekstraktima. Kahtlemata ei ole soovitatav neid käsitsi välja võtta ja kopeerida. Peate igatsema palju targemat lähenemisviisi, näiteks VBA kasutamist. Siin jagame teile sellist VBA-koodi, mis suudab eksportida kõik paljudes meilides olevad hüperlingid lihtsa klõpsuga Excelisse.

Eksportige kõik mitmes meilis olevad hüperlingid Excelisse

1. Alustuseks käivitage oma Outlooki programm nagu tavaliselt.
2. Seejärel peate Outlooki aknas vajutama klahvi "Alt + F11".
3. Saate korraga juurdepääsu Outlooki VBA redaktorile.
4. Seejärel peate lubama „Microsoft Wordi objektiteegi“ ja „Microsoft Exceli objektiteegi“. Klõpsake „Tööriistad“ > „Viited“ ja seejärel lubage need hüpikaknas.
5. Järgmiseks tuleb avada kasutamata moodul, millesse tuleb kopeerida allolev VBA kood sellesse moodulisse.

Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet

Sub ExportAllHyperlinksInMultipleEmailsToExcel()
    Dim objSelection As Selection
    Dim objMail As MailItem
    Dim objMailDocument As Document
    Dim objHyperlink As Hyperlink
    Dim i As Long
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
 
       Set objExcelApp = CreateObject("Excel.Application")
       Set objExcelWorkbook = objExcelApp.Workbooks.Add
       Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
       objExcelApp.Visible = True
       objExcelWorkbook.Activate
 
       With objExcelWorksheet
            .Cells(1, 1) = "No."
            .Cells(1, 2) = "Displaying Text"
            .Cells(1, 3) = "Address"
            .Cells(1, 4) = "Source Mail"
      End With
 
      On Error Resume Next
      i = 0
      For Each objMail In objSelection
          objMail.Display
          Set objMailDocument = objMail.GetInspector.WordEditor
          If objMailDocument.Hyperlinks.Count > 0 Then
             For Each objHyperlink In objMailDocument.Hyperlinks
                 If InStr(objHyperlink.Address, "www.") > 0 Then
                    i = i + 1
                    Call ExportToExcel(i, objMail, objHyperlink)
                 End If
             Next
          End If
          objMail.Close olDiscard
      Next
 
      objExcelWorksheet.Columns("A:D").AutoFit
    End If
End Sub

Sub ExportToExcel(n As Long, objCurrentMail As MailItem, objCurrentHyperlink As Hyperlink)
    Dim nLastRow As Integer
 
    nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
 
    objExcelWorksheet.Range("A" & nLastRow) = n
    objExcelWorksheet.Range("B" & nLastRow) = objCurrentHyperlink.TextToDisplay
    objExcelWorksheet.Range("C" & nLastRow) = objCurrentHyperlink.Address
    objExcelWorksheet.Range("D" & nLastRow) = objCurrentMail.Subject
End Sub

6. Pärast seda saate praegusest VBA redaktori aknast väljuda.
7. Hiljem avage Outlooki suvandid, et kohandada kiirpääsu tööriistariba, et lisada äsja lisatud makro kiirpääsu tööriistaribale.
8. Lõpuks saate pildistada:

• Kõigepealt valige meililoendist meilid, mille hüperlinke soovite ekstraktida.
• Seejärel klõpsake kiirpääsu tööriistaribal makronupul.
• Kui makro on lõpetatud, saate Exceli faili, nagu alloleval pildil:

Parandage ootamatud Outlooki probleemid

Outlooki probleeme võib aeg-ajalt ette tulla ilma igasuguste ennustusteta. Kuid väikeste vigade korral saab Outlooki taastada lihtsa taaskäivitamise või selle postkasti parandamise tööriist. Kuid tõsiste probleemide korral ei anna sisemised vahendid tulemusi. Siinkohal on teie viimane abinõu kindlasti mainekam ja jõulisem tööriist, nagu DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud mdf ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom