Outlook: كيفية استخراج كافة عناوين URL من بريد إلكتروني واحد

إذا كان البريد الإلكتروني يحتوي على مئات من عناوين URL اللازمة لاستخراجها إلى ملف نصي ، فإن نسخها ولصقها واحدًا تلو الآخر سيكون مهمة شاقة. يقدم هذا البرنامج التعليمي VBAs التي يمكنها استخراج جميع عناوين URL بسرعة من بريد إلكتروني.

VBA لاستخراج عناوين URL من بريد إلكتروني إلى ملف نصي

VBA لاستخراج عناوين URL من رسائل بريد إلكتروني متعددة إلى ملف Excel

علامة تبويب Office - تمكين التحرير والتصفح المبوب في Microsoft Office، مما يجعل العمل سهلاً

اقرأ أكثر...تحميل...

Kutools for Outlook - عزز Outlook بأكثر من 100 ميزة متقدمة لتحقيق كفاءة فائقة

أتمتة البريد الإلكتروني مع CC السيارات / BCC, إعادة توجيه تلقائي بالقواعد؛ يرسل رد آلي (خارج المكتب) دون الحاجة إلى خادم تبادل...
احصل على تذكيرات مثل تحذير BCC عند الرد على الكل أثناء تواجدك في قائمة نسخة مخفية الوجهة، و تذكير عند فقدان المرفقات للمرفقات المنسية..
تحسين كفاءة البريد الإلكتروني مع الرد (الكل) مع المرفقات, إضافة تحية أو التاريخ والوقت تلقائيًا إلى التوقيع أو الموضوع, الرد على رسائل البريد الإلكتروني المتعددة
تبسيط البريد الإلكتروني مع استدعاء رسائل البريد الإلكتروني, أدوات المرفقات (ضغط الكل، حفظ الكل تلقائيًا...)، إزالة التكراراتو تقرير سريع

عزز Outlook 2021 - 2010 أو Outlook 365 الخاص بك باستخدام هذه الميزات المتقدمة. استمتع بتجربة مجانية شاملة مدتها 60 يومًا وارفع مستوى تجربة بريدك الإلكتروني!

اقرأ أكثر...تحميل...

VBA لاستخراج عناوين URL من بريد إلكتروني إلى ملف نصي

1. حدد بريدًا إلكترونيًا تريد استخراج عناوين URL ، واضغط على قديم + F11 مفاتيح للتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة لإنشاء وحدة فارغة جديدة ، ثم انسخ الكود أدناه والصقه في الوحدة.

VBA: استخراج كافة عناوين URL من بريد إلكتروني واحد إلى ملف نصي.

Sub ExportUrlToTextFileFromEmail()
'UpdatebyExtendoffice20220413
  Dim xMail As Outlook.MailItem
  Dim xRegExp As RegExp
  Dim xMatchCollection As MatchCollection
  Dim xMatch As Match
  Dim xUrl As String, xSubject As String, xFileName As String
  Dim xFs As FileSystemObject
  Dim xTextFile As Object
  Dim i As Integer
  Dim InvalidArr
  On Error Resume Next
  If Application.ActiveWindow.Class = olInspector Then
    Set xMail = ActiveInspector.CurrentItem
  ElseIf Application.ActiveWindow.Class = olExplorer Then
    Set xMail = ActiveExplorer.Selection.Item(1)
  End If
  Set xRegExp = New RegExp
  With xRegExp
    .Pattern = "(https?[:]//([0-9a-z=\?:/\.&-^!#$;_])*)"
    .Global = True
    .IgnoreCase = True
  End With
  If xRegExp.test(xMail.Body) Then
    InvalidArr = Array("/", "\", "*", ":", Chr(34), "?", "<", ">", "|")
    xSubject = xMail.Subject
    For i = 0 To UBound(InvalidArr)
      xSubject = VBA.Replace(xSubject, InvalidArr(i), "")
    Next i
    xFileName = "C:\Users\Public\Downloads\" & xSubject & ".txt"
    Set xFs = CreateObject("Scripting.FileSystemObject")
    Set xTextFile = xFs.CreateTextFile(xFileName, True)
    xTextFile.WriteLine ("Export URLs:" & vbCrLf)
    Set xMatchCollection = xRegExp.Execute(xMail.Body)
    i = 0
    For Each xMatch In xMatchCollection
      xUrl = xMatch.SubMatches(0)
      i = i + 1
      xTextFile.WriteLine (i & ". " & xUrl & vbCrLf)
    Next
    xTextFile.Close
    Set xTextFile = Nothing
    Set xMatchCollection = Nothing
    Set xFs = Nothing
    Set xFolderItem = CreateObject("Shell.Application").NameSpace(0).ParseName(xFileName)
    xFolderItem.InvokeVerbEx ("open")
    Set xFolderItem = Nothing
  End If
  Set xRegExp = Nothing
End Sub

في هذا الرمز ، سيتم إنشاء ملف نصي جديد يتم تسميته بموضوع البريد الإلكتروني ويوضع في المسار: ج: \ المستخدمون \ العامة \ التنزيلات، يمكنك تغييره حسب حاجتك.

استخراج وثيقة url 1

3. انقر الأدوات > مراجع حسابات لتمكين المراجع - مشروع 1 مربع الحوار ، ضع علامة في Microsoft VBScript Regular Expressions 5.5 خانة الاختيار. انقر OK.

استخراج وثيقة url 1

4. صحافة F5 مفتاح أو انقر يجري زر لتشغيل الكود ، يظهر الآن ملف نصي ويتم استخراج جميع عناوين URL فيه.

استخراج وثيقة url 1

ملاحظات: إذا كنت من مستخدمي Outlook 2010 و Outlook 365 ، فالرجاء أيضًا تحديد خانة الاختيار Windows Script Host Object Model في الخطوة 3. ثم انقر فوق "موافق".

VBA لاستخراج عناوين URL من رسائل بريد إلكتروني متعددة إلى ملف Excel

إذا كنت ترغب في استخراج عناوين URL من عدة رسائل بريد إلكتروني محددة إلى ملف Excel ، فيمكن أن يساعدك رمز VBA أدناه.

2. انقر إدراج > وحدة لإنشاء وحدة فارغة جديدة ، ثم انسخ الكود أدناه والصقه في الوحدة.

VBA: قم باستخراج جميع عناوين URL من رسائل بريد إلكتروني متعددة إلى ملف Excel

'UpdatebyExtendoffice20220414
Dim xExcel As Excel.Application
Dim xExcelWb As Excel.Workbook
Dim xExcelWs As Excel.Worksheet

Sub ExportAllUrlsToExcelFromMultipleEmails()
  Dim xMail As MailItem
  Dim xSelection As Selection
  Dim xWordDoc As Word.Document
  Dim xHyperlink As Word.Hyperlink
  On Error Resume Next
  Set xSelection = Outlook.Application.ActiveExplorer.Selection
  If (xSelection Is Nothing) Then Exit Sub
  Set xExcel = CreateObject("Excel.Application")
  Set xExcelWb = xExcel.Workbooks.Add
  Set xExcelWs = xExcelWb.Sheets(1)
  xExcelWb.Activate
  With xExcelWs
    .Range("A1") = "Subject"
    .Range("B1") = "DisplayText"
    .Range("C1") = "Link"
  End With
  With xExcelWs.Range("A1", "C1").Font
    .Bold = True
    .Size = 12
  End With
  For Each xMail In xSelection
    Set xWordDoc = xMail.GetInspector.WordEditor
    If xWordDoc.Hyperlinks.Count > 0 Then
      For Each xHyperlink In xWordDoc.Hyperlinks
          Call ExportToExcelFile(xMail, xHyperlink)
      Next
    End If
  Next
  xExcelWs.Columns("A:C").AutoFit
  xExcel.Visible = True
End Sub

Sub ExportToExcelFile(curMail As MailItem, curHyperlink As Word.Hyperlink)
  Dim xRow As Integer
  xRow = xExcelWs.Range("A" & xExcelWs.Rows.Count).End(xlUp).Row + 1
  With xExcelWs
    .Cells(xRow, 1) = curMail.Subject
    .Cells(xRow, 2) = curHyperlink.TextToDisplay
    .Cells(xRow, 3) = curHyperlink.Address
  End With
End Sub

في هذا الكود ، يقوم باستخراج جميع الارتباطات التشعبية ونصوص العرض المقابلة وموضوعات البريد الإلكتروني.

استخراج وثيقة url 1

3. انقر الأدوات > مراجع حسابات لتمكين المراجع - مشروع 1 الحوار ، القراد مكتبة كائنات Microsoft Excel 16.0 و مكتبة كائنات Microsoft Word 16.0 مربعات الاختيار. انقر OK.

استخراج وثيقة url 1