三流君 ken3のmemo置き場

メモ置き場、保管庫として利用。まとまっていませんがヨロシク



メールでブックマークが簡単にできるみたいです。

いままで、使っていなかったのが不思議なんだけど、
メールでブックマークが簡単にできるみたいです。

ブックマークを投稿する - はてなブックマークヘルプ
http://b.hatena.ne.jp/help/basic

マニュアル読まないとなぁ(笑)

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"))