OutlookのVBAでハイパーリンクのリンク先を取得する方法
OutlookのVBAで、受信したメールのハイパーリンクのリンク先URLを取得する方法がわかりません。表記されている文字と、実際のURLが違っていないか確認したいです。
0
2Answer
こんな感じでどうでしょう。
Function LinkCheck(m As MailItem)
With m.GetInspector.WordEditor.HyperLinks
ReDim arr(1 To .Count)
Dim i, t, n
For i = 1 To .Count
t = .Item(i).TextToDisplay
n = .Item(i).Name
arr(i) = Join(Array(t = n, t, n), vbTab)
Next
End With
MsgBox Join(arr, vbLf)
End Function
1Like
@jinoji様、ご返答ありがとうございます！！
おそらく、そちらのコードで対応できそうです。
ありがとうございました。
0Like