いままで、使っていなかったのが不思議なんだけど、
メールでブックマークが簡単にできるみたいです。
マニュアル読まないとなぁ(笑)
B2に送り先、
B3に [区分]を付けて、
本文に
URL + 区分 + 固定文字 + タイトル
の1行を送ると、登録できるみたいです。
※B3に" 脳内を自分語で垂れ流した これはひどい 解説動画:" を 付けて、Youtubeの動画URLを少しアップしてみます。
'メールアイテムの作成 Set objMAIL = oApp.CreateItem(0) 'olMailItem=0 直値はいけないと思いつつ、 objMAIL.display '画面表示(Mail入力、編集画面を表示) '宛先・件名・本文 などのデータを代入する objMAIL.To = Trim(Range("B2")) '宛先 ほかに.cc や.Bccも可能です objMAIL.Subject = Trim(Range("B3")) & " " & Trim(Cells(yy, "B")) '.Subjectに文字列設定で件名 '本文を作る、(URL + [区分]内容) strMOJI = Cells(yy, "C") & " " & Trim(Range("B3")) & " " & Trim(Cells(yy, "B")) DoEvents objMAIL.body = strMOJI '本文の代入 DoEvents Application.Wait (Now + TimeValue("0:00:02")) objMAIL.send '送信箱へ ※直ちに送信にして、連続で送るoutlook2007 DoEvents Application.Wait (Now + TimeValue("0:00:05"))