VBAでメール本文へのハイパーリンク挿入

質問

すみませんが質問させて下さい。エクセルVBAにてセルの文章をメール本文へ転記させているのですが、その中の1行がURLとなりハイパーリンクにしたいと思っています。

例えばmailbody = Range("A1")で本文を挿入した場合、A1に”いつもお世話になっています。ファイルはhttp://ｘｘｘｘｘを参考下さい"のhttp://ｘｘｘｘｘの部分だけハイパーリンクにしたいのですがご教授頂けませんでしょうか。宜しくおねがいいたします。

回答No.1

kkkkkm · ベストアンサー

VBAは
Outlook.MailItem名.HTMLBody=Range("A1")
で

A1に
いつもお世話になっています。ファイルは <a href=https://okwave.jp/>OKWAVE</a>を参考下さい

としてください。とりあえずokwaveとしてます。

補足

いつもありがとうございます。
Outlook.MailItem名.HTMLBody=Range("A1")
ですとエラーになります。名を消してもリンクにならず文字がそのまま本文になってしまいます。すみませんが宜しくお願い致します。

回答No.3

imogasi

（１）ExcelVBAの標準」モジュールの下記コードから（に、よって）起動する
（２）受信には、Outlookを使う
（３）ハイパーリンクに飛ぶのは、そのブルー文字の箇所で、CTR+マウスでクリック
という例で（良ければ）、
Excelのブックの標準モジュールに
Sub test2()
Dim strBody As String
Filename = "ハイパーリンクの貼り方？？？"
strBody = "OKWAVE質問"
Set myOL = CreateObject("Outlook.Application")
Set myMAIL = myOL.CreateItem(0)
With myMAIL
.to = "XXXX@XXXXXX.ne.jp" <--自分のメイルアドレスを入れてテスト
.Subject = Filename
.body = strBody & "<A HREF=""https://oshiete.goo.ne.jp/qa/5441173.html""><b>goo検索</b></A>"
.display
'.send
End With
Set myMAIL = Nothing
Set myOL = Nothing
End Sub
実行。
Ｏｕｔｌｏｏｋの受信トレイで確認し、ハイパーリンク文字のところで、
CTR+マウスでクリックしてください。ここまではテスト済み。
　私が参考にした記事（Ｗｅｎｄｙさんの回答）が出てくれば、私の目標は達成です。
「二重ダブルクオートで囲む」がポイント。
＝＝
私もこの点に熟達してないので、さらなる疑問には答えられないかもしれないが、
・ＨＴＭＬメールを使う必要がる？＜ーー＞テキストメール
・本文を書く場所、メッセージ（台紙）がハイパーリンク文を受け付ける仕組みのものでないとダメなようで、テキストメールはダメな（？）ようで、どんなソフトの台紙でも、アドレスを書けばよいという、当たり前ではないようだ。

回答No.2

kkkkkm

Outlook.MailItem名.というのは
たとえば
Dim MI As Outlook.MailItem
Set MI = OL.CreateItem(olMailItem)
としていた場合
MI.HTMLBody = Range("A1")
になりますがその状態にしてもリンクにならないとうことですか？
ちなみに、送信する前はCtrl+クリックじゃないとリンク先は開きません。

A1にリンクの部分は
<a href=http://ｘｘｘｘｘ>こちらをクリック</a>
みたいにしてますよね。