簡単！！エクセルVBAメモ

　よく定期的な業務にて、「作業終わったらメールする」という手順があったりします。
　わざわざメール文章作って送るのは非効率なので、
　作業しているエクセルの最後に、定型的なメール文を送るマクロを入れたりします。

　【サンプル処理イメージ】
　　�@マクロを実行
　　�A設定している内容でメールを飛ばす。
　　※以下のサンプルはロジック内に、TO、CC、本文など入れてます

　【備考】
　　参照設定に「Microsoft Outlook 15.0 Object Library 」をチェック　
　　※人によってバージョン違いなる可能性はあります。

VBAサンプル
=============================================
===　開始！！====================================
=============================================

Sub　メール送付()

'**********************************
'***　備考
'***　　　　OUTLOOKからメール送る仕掛け
***　　　　参照設定に「Microsoft　Outlook　15.0　Object　Library　」をチェック
'**********************************

'**********************************
'***　１．定義
'**********************************
　　'定義とおなじない
　　　Dim　Obj　As　Object
　　　Dim　Mail_WK　As　MailItem
　　　Set　Obj　=　CreateObject("Outlook.Application")
　　　Set　Mail_WK　=　Obj.CreateItem(olMailItem)
　　　
'**********************************
'***　２．メイン（設定、送付）
'**********************************
　　　'あて先、CC、件名、本文、添付ファイルの設定
　　　　Mail_WK.To　=　"xxx@yahoo.co.jp"
　　　　Mail_WK.CC　=　"bbb@yahoo.co.jp"
　　　　Mail_WK.Subject　=　"件名を入力"
　　　　Mail_WK.body　=　"ここには本文を入れる"　&　vbNewLine　&　"改行もしてみた"
　　　　Mail_WK.Attachments.Add　"C:\Users\h_fukumura\Desktop\ローカル\添付.txt"
　　　
　　　'送付する
　　　　Mail_WK.send
　　　　
　　　'終了処理
　　　　Set　Mail_WK　=　Nothing
　　　　Set　Obj　=　Nothing
　　
　End　Sub

==============================================
===　終了！！=====================================
==============================================

　　トップページへ戻る