ExcelのVBAからのOutlookメール発信

質問

ExcelのVBAを使ってOutlookからメールを発信させています。その時のメール本文に付けているハイパーリンクの設定について教えて頂けないでしょうか。

困っている具体的な内容は、メール本文にハイパーリンクをつける際に、文字数が多いとOutlook側で文字列が折り返えされてしまい、ハイパーリンクが機能しない、というものです。

実際のリンク先のアドレスではなく、例えば「関連データ」の様な決った文字列をExcelのVBAを使ってメール本文にハイパーリンクとして表示させる方法を教えて頂けないでしょうか。

(Outlook側の折り返し文字数の設定で文字数を増やす方法では、使用者毎に設定しなければならないと思うので上記方法を教えて頂けないでしょうか。)

宜しくお願いします。

回答No.3

kkkkkm · ベストアンサー

パスに空白がある場合ダブルクォーテーションで囲ってみてください。

.HTMLBody = "<a href=""File://" & fileDir & "\" & bookname & """>" & "リンク先フォルダ</a>"

回答No.2

kkkkkm

No1の追加です。

文字列でハイパーリンクをしたい場合には
.HTMLBody = "<a href=""https://okwave.jp/"">OKWAVE</a>"
などのようにしてください。

お礼

アドバイスありがとうございます。

教えて頂いた内容を踏まえて、以下の設定でトライしてみました。
.BodyFormat = olFormatHTML
.HTMLBody = "<a href=File://" & fileDir & "\" & bookName & ">" & "リンク先フォルダ</a>"

fileDirはフォルダのパスで、bookNameはファイル名です。
ハイパーリンクの表示は、「リンク先フォルダ」となり正しく表示されました。
ただ、ハイパーリンクが空白でリンクが切れてる問題が発生してしまいました。
（会社のシステムでパス名の途中に全角文字で空白が入っています。）
リンクが空白で切れる場合は前後を"＜"と”＞”で囲うと切れないと理解していたのですが
上記設定ではなぜかリンクが切れてしまいました。

結局、試行錯誤して教えて頂いたのと異なりますが、以下の設定で長いパスでも切れずに
リンクとして機能しています。
refFol = "<File://" & fileDir & "\" & bookName & ">"
.BodyFormat = olFormatPlain
.Body = refFol

もし、教えて頂いたHTML形式で、パスに空白が入っている場合でも途切れない方法を
ご存じでしたら教えて頂けると大変ありがたいです。

よろしくお願いします。

回答No.1

kkkkkm

.BodyFormat = olFormatHTML

としてHTML形式で出すと改行されません。