通常、ハイパーリンクのアドレスを表示するには、表示されているテキストの上にカーソルを合わせる必要があります。この記事では、VBAを使用して、1つのメール内のすべてのアドレスをワンクリックで表示する方法を説明します。
ご存知のように、メール本文にURLを直接追加する以外に、テキストへのハイパーリンクを挿入することができます。 この場合、ハイパーリンクアドレスを直接表示することはできません。 表示されているテキストの上にカーソルを置く必要があります。 ただし、現在の電子メールにそのようなハイパーリンクが多すぎると、アドレスをXNUMXつずつ確認する必要があるため、非常に面倒になります。
この問題に対応して、ここでは、すべてのハイパーリンクアドレスを直接抽出して表示するのに役立つVBAを使用する簡単な方法を公開します。 このように、あなたがする必要があるのは単にワンクリックです。 次に、詳細な手順とVBAコードを取得するために読んでください。
電子メール内のすべてのハイパーリンクアドレスを抽出して表示する
- まず、Outlookアプリケーションを起動します。
- 次に、Outlookのメインウィンドウで「Alt + F11」キーボタンを押します。
- 次に、OutlookVBAエディターに正常にアクセスできるようになります。
- その後、使用されていないモジュールを開く必要があります。
- その後、次のVBAコードをコピーしてこのモジュールに貼り付けます。
Sub ShowAllHyperlinkAddresses()
Dim objMail As Outlook.MailItem
Dim objWordDocument As Word.Document
Dim objWordApp As Word.Application
Dim objWordSelection As Word.Selection
Dim objHyperlinks As Word.Hyperlinks
Dim objHyperlink As Word.Hyperlink
Dim strLink As String
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
Set objWordDocument = objMail.GetInspector.WordEditor
Set objWordApp = objWordDocument.Application
Set objHyperlinks = objWordDocument.Hyperlinks
If objHyperlinks.Count > 0 Then
For Each objHyperlink In objHyperlinks
strLink = objHyperlink.Address
strLink = vbTab & "<" & strLink & ">"
objHyperlink.Range.InsertAfter strLink
objHyperlink.Delete
With objWordApp.Options
.AutoFormatReplaceHyperlinks = True
.AutoFormatApplyOtherParas = False
.AutoFormatApplyHeadings = False
.AutoFormatApplyBulletedLists = False
.AutoFormatApplyLists = False
.AutoFormatApplyFirstIndents = False
End With
Set objWordSelection = objWordApp.Selection
objWordSelection.Range.AutoFormat
Next
End If
End Sub
- 後で便宜上、メッセージウィンドウのクイックアクセスツールバーに新しいマクロを追加することをお勧めします。
- また、Outlookのマクロ設定でマクロが許可されていることを確認する必要があります。
- 最後に、試してみることができます。
- まず、多くのハイパーリンクを含む電子メールを開きます。
- 次に、編集可能モードに切り替えます。 「アクション」>「メッセージの編集」をクリックするだけです。
- 次に、クイックアクセスツールバーのマクロボタンをクリックします。
- 一度に、すべてのハイパーリンクアドレスが抽出され、次のスクリーンショットのように表示されます。
Outlookの問題から免れません
Outlookはユーザーに多くの柔軟な機能を提供しますが、それでもエラーやクラッシュを免れることはできません。 したがって、Outlookデータを破損や損失から保護したい場合は、多大な努力を払う必要があります。 たとえば、Outlookデータのバックアップを定期的に作成し続ける必要があります。 もちろん、強力なものを用意すればはるかに良いでしょう Outlookの回復 などのツール DataNumen Outlook Repair.
著者紹介：
Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 破損したSQL と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com