본문에 여러 개의 중요한 URL이 포함된 이메일을 수신할 때 모든 URL을 텍스트 파일로 정확하게 지정하고자 할 수 있습니다. 그래서 이번 글에서는 빠르게 받을 수 있는 방법을 소개하도록 하겠습니다.
일반적으로 Outlook 전자 메일에서 텍스트 파일로 URL을 추출하려면 먼저 텍스트 파일을 만든 다음 URL을 파일에 수동으로 복사해야 합니다. 너무 번거롭다고 생각하고 더 효과적인 방법을 찾고 있을지도 모릅니다. 그렇다면 계속 읽을 수 있습니다. 여기에서는 이메일의 모든 URL을 일괄적으로 내보내는 방법을 공유합니다.
이메일의 모든 URL을 텍스트 파일로 빠르게 추출
- 처음에는 Outlook에서 "에 따라 VBA 편집기에 액세스합니다.Outlook에서 VBA 코드를 실행하는 방법".
- 그런 다음 다음 VBA 코드를 사용하지 않는 모듈에 복사하여 붙여 넣습니다.
Sub ExportURLsFromEmail2TextFile ()
Dim objMail As Outlook.MailItem
Dim objRegExp As RegExp
Dim strFolder As String
Dim objMatchCollection As MatchCollection
Dim objMatch As Match
Dim strURL As String
'Get the source mail
Select Case Outlook.Application.ActiveWindow.Class
Case olInspector
Set objMail = ActiveInspector.CurrentItem
Case olExplorer
Set objMail = ActiveExplorer.Selection.Item(1)
End Select
'Get URLs using regular expression
Set objRegExp = New RegExp
With objRegExp
.Pattern = "(https?[:]//([0-9a-z=\?:/\.&-^!#$;_])*)"
.Global = True
.IgnoreCase = True
End With
If objRegExp.test(objMail.Body) Then
'Create a new text file
strTextFile = "E:\Hyperlinks (" & objMail.Subject & ").txt"
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFileSystem.CreateTextFile(strTextFile, True)
objTextFile.WriteLine ("Extracted URLs:" & vbCrLf & vbCrLf)
Set objMatchCollection = objRegExp.Execute(objMail.Body)
i = 0
For Each objMatch In objMatchCollection
strURL = objMatch.SubMatches(0)
i = i + 1
'Write the URLs to the text file
objTextFile.WriteLine (i & ". " & strURL & vbCrLf)
Next
objTextFile.Close
'Open the text file
Shell ("notepad.exe " & strTextFile)
End If
End Sub
- 그런 다음이 매크로를 빠른 실행 도구 모음 또는 리본에 추가합니다.
- 마지막으로 아래 단계에 따라 시도해보세요.
- 먼저 이메일을 선택하거나 엽니다.
- 그런 다음 빠른 실행 도구 모음 또는 리본에서 매크로 버튼을 클릭합니다.
- 다음 스크린샷과 같이 추출된 모든 UTL을 볼 수 있는 새 일반 텍스트 파일이 한 번에 열립니다.
이메일의 위험한 링크에 주의하세요
매일 Outlook에서 모든 종류의 이메일을 받을 수 있습니다. 일부는 알려진 연락처에서 온 것이고 일부는 알 수 없는 발신자에게서 온 것일 수 있습니다. 그들 앞에서 알 수 없는 이메일을 조심해야 하며 그 중 일부는 의심스러운 링크를 포함할 수 있습니다. 링크를 열면 Outlook 파일이 바이러스에 감염되었을 수 있습니다. 그런 다음 안티바이러스 소프트웨어를 통해 바이러스를 죽여야 할 뿐만 아니라 강력한 PST 파일을 복구해야 합니다. Outlook 수리 유틸리티, 같은 DataNumen Outlook Repair.
저자 소개 :
Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. SQL Server 수리 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM


