エクセルからメールを起動して
本文の一部分にサイトへ飛べるURLをハイパーリンクとして埋め込みたい。
下記マクロを修正、ご教示ください。
1行目は見出し
2行目からデータ
まず、Text4 = Range("I2").Valueの部分を
I列の2行目から最終行までと書き換えたいです。
途中、空白は無いとします。
次に
I列には数値が入っています。
Msg = Msg & "<A HREF=""http://~(省略)id="">*******</A> " & "<BR>" の
"<A HREF=""http://~(省略)id="">にI2、I3、I4・・・の数値を付加させたいです。
例:http://~(省略)id=123456789
更に、メール本文には、I列の数値を表示させると、
http://~(省略)id=123456789 をリンクさせたいです。
I列は見出しを除いて1行のみの場合もあれば、数行の場合もあります。
データは、I列のみが増えていきます。他列は見出しを除く1行で完結。
なので、メールには
123456789 (←http://~(省略)id=123456789がハイパーリンク)
987654321 (←http://~(省略)id=987654321がハイパーリンク)
・・・以下、続く
数値(例:123456789)をクリックするとサイトへ飛べるようにするのが目的です。
宜しくお願い致します。
Sub エクセルからメール送信()
Dim OlApp As Outlook.Application
Dim mItem As Outlook.MailItem
Dim cell As Range
Dim Subj As String
Dim EmailAddr As String
Dim Recipient As String
Dim Msg As String
Dim Message As String
Dim Sender As String
Dim Texts As String
Dim Texts2 As String
Dim report As String
Worksheets("Sheet1").Activate
Set OutlookApp = New Outlook.Application
Subj = Range("C2")
EmailAddr = Range("A2")
CCAddr = Range("B2")
Text1 = Range("D1").Value & "<BR>" & Range("D2").Value
Text2 = Range("E1").Value & "<BR>" & Range("E2").Value & "様"
Text3 = Range("F2").Value
Text4 = Range("I2").Value
Msg = Msg & Text1 & "<BR>"
Msg = Msg & Text2 & "<BR>"
Msg = Msg & Text3 & "<BR>"
Msg = Msg & "<A HREF=""http://~(省略)id="">*******</A> " & "<BR>"
Msg = Msg & "宜しくお願い致します。" & "<BR>"
Set mItem = OutlookApp.CreateItem(olMailItem)
With mItem
.To = EmailAddr
.CC = CCAddr
.BCC = BCCAddr
.Subject = Subj
.HTMLBody = Msg
.Display
End With
End Sub
※ マクロは某サイトの既存物を参考にしました
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
とりあえず
>まず、Text4 = Range("I2").Valueの部分を
>I列の2行目から最終行までと書き換えたいです。
の部分だけですが
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
Subj = Range("C" & i)
EmailAddr = Range("A" & i)
CCAddr = Range("B" & i)
・・・・
Next
と云った具合に、For ~Next で繰り返させます。
Range("A" & Rows.Count).End(xlUp).Row
がA列にデータが入っている最終行番号を取得する構文と思ってください。
Range("A" & Rows.Count).
一旦、A列の一番下(2007以降であれば、1048576)へ移動して、
End(xlup)で空白でない最後の行へ移動して
.Row でその行番号
となります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) VBAにてメール作成した際、一部指定箇所のみ赤文字にしたいです。 下記の内容ですと作成されたメール本 1 2022/04/27 13:31
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBA エクセル メール送信 ハイパーリンクの貼り方
その他(Microsoft Office)
-
エクセル VBA メール本文に指定セルに記載されているURLをリンクとして記載する方法
Visual Basic(VBA)
-
VBAのフォント変更(エクセルからoutlookのメール作成において)
Visual Basic(VBA)
-
-
4
Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで最後の文字だけ置き...
-
副問合せの書き方について
-
select文のwhere句に配列を入れ...
-
別テーブルからSELECTした値を...
-
sqlで、600行あるテーブルを100...
-
クエリ表示と、ADOで抽出したレ...
-
ある条件の最大値+1を初番する...
-
単純なクエリーなのにSELECTし...
-
VIEWの元のテーブルのindexって...
-
バインド変数について
-
MySQL 複数個の値を取るカラム...
-
エラー 1068 (42000): 複数の主...
-
エクセルからOutlookメールを起...
-
複数のExcelアドインひとつのタ...
-
LEFT JOIN と GROUP BY
-
Updateの複数テーブル条件時のL...
-
マイクラPC版のコマンドで効率...
-
VBAでボタンをクリックする方法...
-
上位3位を求めるSQL文は?
-
カラム名でseqとidではどちらが...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで最後の文字だけ置き...
-
SQL Left Join で重複を排除す...
-
SQLサーバから、項目の属性(型...
-
副問合せの書き方について
-
VIEWの元のテーブルのindexって...
-
エクセルの関数について教えて...
-
SQLにて特定の文字を除いた検索...
-
マイクラPC版のコマンドで効率...
-
select文のwhere句に配列を入れ...
-
sqlで、600行あるテーブルを100...
-
ある条件の最大値+1を初番する...
-
inner joinをすると数がおかし...
-
Unionした最後にGROUP BYを追加...
-
期間の重複を調べるSQL文につい...
-
クエリ表示と、ADOで抽出したレ...
-
Access パラメータクエリをcsv...
-
PL/SQLの変数について
-
MySQLのDATE型カラム値がNULLの...
-
php+mysqlで複数選択削除について
-
上位3位を求めるSQL文は?
おすすめ情報