Outlook: Πώς να εξαγάγετε όλες τις διευθύνσεις URL από ένα email
Εάν ένα email περιέχει εκατοντάδες διευθύνσεις URL που απαιτούνται για εξαγωγή σε ένα αρχείο κειμένου, η αντιγραφή και επικόλληση τους ένα προς ένα θα είναι κουραστική δουλειά. Αυτό το σεμινάριο εισάγει VBA που μπορούν γρήγορα να εξαγάγουν όλες τις διευθύνσεις URL από ένα email.
VBA για εξαγωγή διευθύνσεων URL από ένα email σε ένα αρχείο κειμένου
VBA για εξαγωγή διευθύνσεων URL από πολλά μηνύματα ηλεκτρονικού ταχυδρομείου σε ένα αρχείο Excel
- Αυτοματοποιήστε την αποστολή email με Αυτόματο CC / BCC, Αυτόματη προώθηση με κανόνες? στείλετε Αυτόματη απάντηση (Εκτός γραφείου) χωρίς να απαιτείται διακομιστής ανταλλαγής...
- Λάβετε υπενθυμίσεις όπως Προειδοποίηση BCC όταν απαντάτε σε όλους όσο βρίσκεστε στη λίστα BCC και Υπενθύμιση όταν λείπουν συνημμένα για ξεχασμένα συνημμένα...
- Βελτιώστε την αποτελεσματικότητα του email με Απάντηση (Όλα) Με Συνημμένα, Αυτόματη προσθήκη χαιρετισμού ή ημερομηνίας και ώρας στην υπογραφή ή στο θέμα, Απάντηση σε πολλά email...
- Βελτιώστε την αποστολή email με Ανάκληση email, Εργαλεία συνημμένου (Συμπίεση όλων, Αυτόματη αποθήκευση όλων...), Κατάργηση διπλότυπων, να Γρήγορη αναφορά...
VBA για εξαγωγή διευθύνσεων URL από ένα email σε ένα αρχείο κειμένου
1. Επιλέξτε ένα email που θέλετε να εξαγάγετε τις διευθύνσεις URL και πατήστε άλλος + F11 πλήκτρα για ενεργοποίηση Microsoft Visual Basic για εφαρμογές παράθυρο.
2. κλικ Κύριο θέμα > Μονάδα μέτρησης για να δημιουργήσετε μια νέα κενή μονάδα και, στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη λειτουργική μονάδα.
VBA: εξαγωγή όλων των διευθύνσεων URL από ένα email σε ένα αρχείο κειμένου.
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
Σε αυτόν τον κώδικα, θα δημιουργήσει ένα νέο αρχείο κειμένου που ονομάζεται με το θέμα του email και τοποθετείται στη διαδρομή: C:\Users\Public\Downloads, μπορείτε να το αλλάξετε όπως χρειάζεστε.
3. κλικ Εργαλεία > αναφορές να επιτρέψει Αναφορές – Έργο 1 διαλόγου, σημειώστε το Κανονικές εκφράσεις Microsoft VBScript 5.5 πλαίσιο ελέγχου. Κάντε κλικ OK.
4. Τύπος F5 κλειδί ή κάντε κλικ τρέξιμο κουμπί για να εκτελέσετε τον κώδικα, τώρα εμφανίζεται ένα αρχείο κειμένου και έχουν εξαχθεί όλες οι διευθύνσεις URL σε αυτό.
Note: εάν είστε χρήστες του Outlook 2010 και του Outlook 365, επιλέξτε επίσης το πλαίσιο ελέγχου Windows Script Host Object Model στο Βήμα 3. Στη συνέχεια, κάντε κλικ στο OK.
VBA για εξαγωγή διευθύνσεων URL από πολλά μηνύματα ηλεκτρονικού ταχυδρομείου σε ένα αρχείο Excel
Εάν θέλετε να εξαγάγετε διευθύνσεις URL από πολλά επιλεγμένα email σε ένα αρχείο Excel, ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει.
1. Επιλέξτε ένα email που θέλετε να εξαγάγετε τις διευθύνσεις URL και πατήστε άλλος + F11 πλήκτρα για ενεργοποίηση Microsoft Visual Basic για εφαρμογές παράθυρο.
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
Σε αυτόν τον κώδικα, εξάγει όλους τους υπερσυνδέσμους και τα αντίστοιχα κείμενα εμφάνισης και τα θέματα email.
3. κλικ Εργαλεία > αναφορές να επιτρέψει Αναφορές – Έργο 1 διάλογος, τικ Βιβλιοθήκη αντικειμένων Microsoft Excel 16.0 και Βιβλιοθήκη αντικειμένων του Microsoft Word 16.0 πλαίσια ελέγχου. Κάντε κλικ OK.
4. Στη συνέχεια, τοποθετήστε τον κέρσορα μέσα στον κωδικό VBA, πατήστε F5 κλειδί ή κάντε κλικ τρέξιμο κουμπί για να εκτελέσετε τον κώδικα, τώρα εμφανίζεται ένα βιβλίο εργασίας και έχουν εξαχθεί όλες οι διευθύνσεις URL σε αυτό και, στη συνέχεια, μπορείτε να το αποθηκεύσετε σε έναν φάκελο.
Note: όλα τα παραπάνω VBA εξάγουν όλους τους τύπους υπερσυνδέσμων.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας
🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...
📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP) / Προγραμματισμός αποστολής email / Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email / Αυτόματη προώθηση (Σύνθετοι κανόνες) / Αυτόματη προσθήκη χαιρετισμού / Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...
📨 Διαχείριση e-mail: Εύκολη ανάκληση email / Αποκλεισμός απάτης email από υποκείμενα και άλλους / Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου / Προχωρημένη Αναζήτηση / Ενοποίηση φακέλων ...
📁 Συνημμένα Pro: Μαζική αποθήκευση / Αποσύνδεση παρτίδας / Συμπίεση παρτίδας / Αυτόματη αποθήκευση / Αυτόματη απόσπαση / Αυτόματη συμπίεση ...
🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis / Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες / Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...
???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα / Email κατά του phishing / 🕘Εμφάνιση ζώνης ώρας αποστολέα ...
👩🏼🤝👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου / Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες / Κατάργηση υπενθυμίσεων γενεθλίων ...
Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.