Outlook起動・メールアイテム自動作成（ExcelVBA)

Outlook起動・メールアイテム自動作成（ExcelVBA)



以下、エクセルの標準モジュール作成、該当ボタンにマクロの紐づけをしたら、
一発、Outlook起動でっ感激っ！！

Sub MAKE_MAIL_ITEM()

 Dim oApp As Object

 Dim myNameSpace As Object

 Dim myFolder As Object

 Dim objMAIL As Object 'メールのオブジェクト

Dim strMOJI As String '本文

'outlook 起動

Set oApp = CreateObject("Outlook.Application")

 Set myNameSpace = oApp.GetNameSpace("MAPI")

 Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダーを指定

myFolder.Display

 'メールアイテムの作成

Set objMAIL = oApp.CreateItem(0)

 '宛先・件名・本文 などのデータを代入する

objMAIL.to = "********@**.jp" 'ここに自分のアドレスを

objMAIL.Subject = "テストメール" '件名

'objMAIL.Attachments.Add "C:\Users\***".xls"

 '本文を作る

strMOJI = "メールします。" & vbCrLf _

 & " 宜しくお願いします。"

objMAIL.Body = strMOJI '本文の代入

objMAIL.Display '途中で編集したい時（メール編集画面を表示してみた)

 '終了処理：ここで、普通はオブジェクトの開放など、後始末をする。

Set oApp = Nothing

 Set myFolder = Nothing

 Set objMAIL = Nothing

 End Sub

楽天のアフィリエイトツール

簡単に始められる、楽天市場のバナーを貼るだけの楽天アフィリエイトを
ブログに設定してみよう。
楽天アフィリエイトのシステムは訪問者がバナー広告をクリックしてそこから買い物がされればどんな商品でも売り上げの１%以上の報酬がもらえるらしい。

①まずは、ブログが商用に使えて、外部の広告掲載OKか確認する。
⇒忍者ブログのヘルプで確認。OKだった。

②楽天が用意する公式ツールには、

• 訪問者に合わせたバナーを表示する「楽天モーションウィジェット」
• ページに合う商品を自動表示する「楽天ダイナミックアド」
• 最新の売れ筋を表示する「楽天売れ筋ランキングリンク」

があるけれど、「楽天モーションウィジェット」を使ってみる。


1）既に楽天会員だから、楽天アフィリエイトのサイトでアフィリエイト登録する。

2）リンクを作成する。

• おすすめ商品を優先的に表示するを選択。
• 表示タイプを「画像とテキスト」で選択。
• サイズを「120×600」
• 詳細の設定を「自動で商品を動かす」に設定。

⇒[設定内容を反映]をクリックしアフィリエイト用HTMLソースをコピーする。

3）忍者ブログにアフィリエイト用HTMLソースを張る。
※自分のサイトは２ブロックで、ナビが右にあるので、フリーエリアに追加して、表示順位を上げえることにする。
　
まずは、忍者ブログ管理ページで、
「プラグイン」-「プラグインの設定」-フリーエリアの「表示設定」-「プラグインHTMLの変更」にアフィリエイト用HTMLソースを貼る。
　そして、更新してから、表示順位を上げる。

以上で、作業完了です。とっても簡単。
　

しかも楽天はクッキー（cookie）がとても長くクリックされてから30日以内の買い物まで反映してくれるそうです。つまり、楽天市場のバナーをクリックした人が３０日後に買い物をしてもポイントがもらえるということですね。

ｗｗｗヽ(*´∀｀)ノｗｗｗ

　　　

本日ブログを開設しました。

今日の天気：
備忘録と日記を兼ねた雑記帳。