Kā ātri eksportēt visas hipersaites vairākos Outlook e-pastos uz Excel

Ja jums ir jāizvelk visas hipersaites vienā vai vairākos e-pastos, ir muļķīgi tās kopēt pa vienai. Šajā ierakstā ir aprakstīta metode, kā ātri eksportēt visas hipersaites daudzos e-pastos uz programmu Excel.

Dažu iemeslu dēļ, piemēram, reģistrējot hipersaites visos jūsu nosūtītajos e-pasta ziņojumos, hipersaites būs jāizņem. Bez šaubām, nav ieteicams tos manuāli izvilkt un kopēt. Jums jātiecas pēc daudz gudrākas pieejas, piemēram, izmantojot VBA. Šeit mēs dalīsimies ar šādu VBA koda daļu, kas ar vienkāršu klikšķi var eksportēt visas daudzos e-pastos esošās hipersaites uz Excel.

Eksportējiet visas hipersaites vairākos e-pastos programmā Excel

1. Lai sāktu, palaidiet savu Outlook programmu kā parasti.
2. Pēc tam Outlook logā jums jānospiež taustiņu "Alt + F11" pogas.
3. Tūlīt jūs iegūsit piekļuvi Outlook VBA redaktoram.
4. Pēc tam ir jāiespējo “Microsoft Word objektu bibliotēka”, kā arī “Microsoft Excel objektu bibliotēka”. Noklikšķiniet uz “Rīki” > “Atsauces” un pēc tam iespējojiet tās uznirstošajā dialoglodziņā.
5. Tālāk jums ir jāatver neizmantots modulis, kurā jums ir jāiekopē zemāk esošais VBA kods šajā modulī.

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ēc tam jūs varat iziet no pašreizējā VBA redaktora loga.
7. Vēlāk piekļūstiet “Outlook Options”, lai pielāgotu ātrās piekļuves rīkjoslu un pievienotu tikko pievienoto makro ātrās piekļuves rīkjoslai.
8. Visbeidzot, jūs varat fotografēt:

• Vispirms e-pasta sarakstā atlasiet e-pasta ziņojumus, kuru hipersaites vēlaties iegūt.
• Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz makro pogas.
• Kad makro būs pabeigts, jūs saņemsit Excel failu, piemēram, tālāk redzamajā attēlā:

Novērsiet neparedzētas Outlook problēmas

Outlook problēmas var rasties laiku pa laikam bez jebkādām pazīmēm. Taču nelielu kļūdu gadījumā Outlook var atgūties, vienkārši restartējot vai iesūtnes labošanas rīks. Bet, ja rodas nopietnas nepatikšanas, iekšējie līdzekļi nedos efektu. Šajā brīdī jūsu pēdējais līdzeklis noteikti ir cienījamāks un izturīgāks rīks, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sabojāts mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar