Excel (VBA)

Excel VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(指定なし : Microsoft 365)
メール本文にハイパーリンクを貼り付け送信したい
投稿日時: 22/04/14 16:22:07
投稿者: kayagum01

ご教授お願い致します。
 
Sub sendMailCPV()
 
Dim objOutlook
Dim objMail
 
Set objOutlook = New Outlook.Application
Set objMail = objOutlook.CreateItem(olMailItem)
 
 
With objMail
    .To = Cells(2, 2).Value
    .Subject = Cells(3, 2).Value
    .BodyFormat = olformatplain
    .body = Cells(4, 2).Value
    .Send
End With
 
Set objOutlook = Nothing
Set objMail = Nothing
 
MsgBox ("メールの送信が完了しました")
 
End Sub
 
エクセル
A列         B 列
2行目→宛先    aaa@aaa.cop
3行目→件名 件名を設定しています
4行目→本文    本文は改行あります
5行目URL→       リンク先が貼り付けてあります。
 
コードは既存の物です。今回設定したいのは、5行目URL→B5=Cells(5, 2)の値を本文に入れて送信したいですが、よろしくお願いいたします。

回答
投稿日時: 22/04/14 17:04:39
投稿者: Suzu

少なくとも、メール形式は、HTML形式 または リッチテキスト形式 でないといけません。
テキスト形式では、ハイパーリンクを使えません。
 
WEB で 【outlook VBA ハイパーリンク】をキーワードに検索したところ
 
・MailItem オブジェクト の HTMLBody に THMLタグ付きの 本文 を入れる
・Inspector オブジェクト の WordDocumentから Hyperlinks コレクション へ Add
 
の様な方法が見つかりましたよ。

投稿日時: 22/04/18 16:02:31
投稿者: kayagum01

ご回答ありがとうございます。
確認してみます。

トピックに返信