Outlook VBAでさくさく効率化

Site Map

2012-10-22T23:03:00.001+09:00

[レッスン]

（OutlookVBA）
step0　最初にすること　参照設定

step1　オブジェクトの生成　Outlookをエクセルからいじるスタートポイント

step1.5 受信トレイ以外のフォルダを指定

step2　Outlook受信トレイのメールの件数を数える

step3　Outlook　アドレス、件名、受信時間を調べる

step3.5 これだけは押さえておきたい文字列操作の3パターン

step4　添付ファイルを一括で自動保存

step4.5 添付ファイルを連番で保存

step5　メール受信時間から日付情報のみを取り出す

(その他)
フォルダを作成

ファイルの存在を調べる

ドラッグ＆ドロップでファイル名取得

[エッセイ]　
仕事をしたつもり

若手社員こそプログラミングを覚えるべき理由

社内SEが本音で語るサラリーマンに必要なたった一つのプログラミング言語

[おすすめ本]
My Book Store(工事中）

[VBScript]　意外にUXをあげてくれる小技、ドラッグ＆ドロップでファイル名取得

2012-10-22T23:00:00.002+09:00

今回はOutlookのVBAとは全く関係のないTipsをご紹介します。

ドラッグ＆ドロップをすることで、特定の処理をさせる方法です。

新しく覚えることはちょびっとVBScriptを覚えるだけです。

VBScriptの文法は基本的にはVBAと同じなので、それほど違和感なく使えると思います。

細かくは色々ありますが、一番違うのはデータ型を宣言しないことですね。

まぁ詳細は、類書で見てもらうとして、早速。

例として、ドラッグ＆ドロップしたファイル名を取得するVBScriptを書いてみます。

以下のコードをメモ帳に貼りつけて、拡張子を"vbs"で保存して下さい。

適当なファイルをファイルを作成したvbsファイルにドラッグ＆ドロップしてみて下さい。

ファイル名がポップアップで出てきました？

うまく出てくれば成功です。

前の職場では、

の部分を書き換えて、

ドラッグ＆ドロップした場合に予め指定したフォルダに、特定のファイル名＋日付で保存する

という処理を入れていました。

大量のファイルを処理したり、定期的にファイル名を変更する場合はこれじゃない方が楽ですが、

一日一個だけ処理すればよいので、上記の方法を使っていました。

多分、今でも職場では使われているかと思います。

使い方次第で幅が広がるので是非使ってみて下さい。

step5　メール受信時間から日付情報のみを取り出す

2011-12-01T23:20:00.034+09:00

「Outlook VBAでさくさく効率化」で取り上げたかった重要なポイントも大分カバーできました。
今回は、以前に紹介したメールの受信時間を調べる方法の応用です。
今回のエントリーでは、日付情報のみを取得します。

これができるようになれば、日付ごとに添付ファイルを整理することが可能になります。

ReceivedTimeは秒単位で受信時間を管理している

ReceivedTimeを使って受信時間を調べると、左の画像のようにやたらと細かい単位で習得できることがわかります。

これはこれでいいんですが、大抵の場合日付以下の部分は不要な情報です。

ここから日付情報だけ抜きだしてやりましょう。

*"受信時間："は自分で明記しているので、
Debug.print XXX.ReceivedTime
としている場合は、もちろん受信時間：は表示されません。

データ型を調べてみる

step3.5で文字列操作について紹介しました。（→復習しますか？）
left, right, mid関数を駆使することで、今回の目標ももちろん達成可能です。
でも、勉強がてら、もう少しいじってみましょう。

そこで、このReceiveTimeで返ってくるデータ型を調べます。
こういうときに便利なのが、TypeName関数です。ヘルプで見てみると、

構文
TypeName(varname)
引数 varname は必ず指定します。引数 varname には、ユーザー定義型の変数を除く、任意のバリアント型 (Variant) の変数を指定します。

ということで、早速調べてみましょう。次のコードを書いてみて下さい。

Debug.Print TypeName(myfolder.Items(i).ReceivedTime)

イミディエイト・ウィンドウにはどう表示されるでしょうか？
Dateと返ってくるはずです。
ということで、ReceiveTimeで返ってくるデータは文字列ではなく、日付型のデータということが分かりました。

日付型データのいろいろ

日付データの加工というのは、地味な作業ですが思いのほか色々な場面で使用します。
代表的な例だけいくつか取り上げてみましょう。

１．年、月、日のデータだけを取り出す。

・Year(varname) →　年　yyyy
・Month(varname)→　月　m
・Day(varname)→　日　d

という感じです。

ですので、スマートではありませんが、
でスラッシュぬきで、yyyymd形式のデータが取れます。

２．Format関数を使う
最強なのがFormat関数です。

構文
Format(日付データ, 表示形式)

yymmdd形式が欲しければ、
Format(日付データ, "yymmdd")
と指定してあげます。
もちろん年データはいらないという場合であれば
Format(日付データ, "mmdd")とすればいけます。

これで、ReceivedTimeはかなりしゃぶりつくしたことになります！！

<関連エントリー>
step3.5 これだけは押さえておきたい文字列操作の3パターン
step3　Outlook　アドレス、件名、受信時間を調べる

<参考サイト>
Tatsuya's Home Page

[エッセイ]　残業地獄から脱却したくない若手社員には不要です―プログラミングを覚えるべき理由

2011-11-24T23:35:00.005+09:00

今回は自分についての話です。

どんな流れで、ぼくがプチSE化したかをまとめてみました。

きっと似た境遇の人はたくさんいるはず！

雑務は若手の仕事だけど…

ぼくはまだまだ若手に分類される立場にいます。
きっとどんな会社で勤めていてもそうだと思いますが、
若手の業務は「雑務」に分類されるものが多いと思います。

例をあげるとキリないですが、
簡単だけど、手数がやたらとかかる作業、単純なルーティン作業などなど。
こうした業務は若手がいない部署だと、派遣さんが担当されていたりします。

はっきり簡潔に言ってしまえば、ほとんど付加価値のないbut手間だけがかかる仕事ばかりです。

まるでサラリーマンとしての洗礼を受けるかのように、山のようなどうでもいい業務に追われている人も
多いんじゃないでしょうか？
間違えずにもくもくと右と左の数値が一致しているか確認する（なぜか紙ベースで確認）とか
こっちのシートの数値をオートフィルタでソートして、あっちのシートにペーストして合計値計算とか
をぼくはやっていました。

どんな小さな仕事にも価値があって、それをダレることなくしっかりこなす精神を身につける
というのも、それはそれで大事なことです。
しょうもない作業をミスるせいで、足元をすくわれた経験を一度や二度は誰もがやってしまうでしょう。

だからって付加価値のない、少ない仕事ばっかりやっていたら
いつまでたっても大した人材にはなれません。

やだなぁ、なんでこんな作業で残業やってるんだろ？
と思いながら10時くらいまで残ってひたすらエクセルシートを加工していた時期が続きました。

こういう時期が続くと転職したくなるし、何か資格の勉強とかして違う環境に行きたいな
って考えてしまう。
せっかく入社したのに。

若手の雑務は先輩の思考停止の賜物

もったいないけど、今が嫌だから仕方ない。
でも、忙しいし転職活動用のサイトを覗いてみたけど、結構大変。
てか、スキルが特にあるわけじゃないから、新卒とバリューが全然変わらない第二新卒として活動するのはきつい。

そんで気付いたんです。自分の嫌な仕事を減らすには
・後輩に投げる　（自分でやらない）
・納期を遅らせる（一日分の処理量を減らす）
しかない。

残念ですが後輩はすぐには入社してくれないし、納期を遅らせることもムリ。
仕方ないので、少しでも早く終わらせるように手を早く動かすしかありませんでした。

もう少し考えてみると、代々同じような思考の結果、当時のぼくがいるわけです。
みんなめんどくせーって思っていても、どうせ下が入ったら押し付ければばいいや♪
と考えているから、くだらない仕事が代々受け継がれていくわけです。

自分がやって嫌だと思うのを後輩になげつけるのはやっぱり嫌です。
若手はゴミ箱じゃないんです。

ということで、ショートカットキーを覚えまくりました。（ショーカット一覧）
ということで、エクセル関数を覚えまくりました。
ということで、マクロ・VBA・VBScriptを覚えまくりました。

こうして今のぼくがいます。

こつこつとした効率化がチリツモで効いてきます。

今日も一本業務アプリをリリースしました。
くだらない毎日の手入力作業がボタン一発で終了です。
もう1個アプリを開発してますが、これが完成すれば部員全員の作業が短縮されます。

一人当たり１日5分の業務短縮でも、20人いれば年間で400時間の短縮です。
50営業日分の時間が新たに生まれます。
小さなことから自動化をすすめましょ！

[VBA] フォルダを作成 FileSystemObject

2011-11-23T21:18:00.002+09:00

業務アプリを作っているとどうしても、エクセル関数やVBAだけでは足りない部分があります。
ファイルを移動させたり、フォルダを作成したりということはそのままではできません。
当たり前ですが、エクセルマクロの録画モードではフォルダ作成とかはできないわけです。

エクセルVBAからファイルやフォルダをいじるのに一番楽なのは、FileSystemObjectを使うことです。

マイクロソフトによる解説ページはこちら。
日本語で解説されているので楽ちんです。

FileSystemObjectを使う

決まり事として書かないといけないことがいくつかあります。

Dim fso as Object
Set fso = CreateObject("Scripting.FileSystemObject")

これでOKです。
参照設定で、Microsoft Scripting Runtimeをチェックしておくと、ヘルプ機能とかがフルに使えるので便利です。

フォルダを作成する

Dim fso as Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder フォルダ名

これで好きなフォルダを作成できます。
せっかくなので、「フォルダがすでにあるかどうかを調べて、ない場合には作成する」というのをやりましょう。

flag = objFSO.FolderExists(フォルダ名)
If flag = False Then
fso.CreateFolder フォルダ名
end if

FolderExists(フォルダ名)はFileSystemObjectのメソッドで、フォルダの存在を調べてくれるものです。
あればTrue、なければFalseが返ってきます。ちょっとまどろっこしい書き方にしましたが、明示的に何をやっているか分かりやすいのでこういう書き方にしました。

[VBA]　ファイルの存在を調べる　DIR

2011-11-23T19:06:00.004+09:00

step4.5（リンク）で、一括で複数ファイルの保存を行う際に、保存ファイル名を連番にする方法を学びました。
その際に利用したのが、DIR関数。
地味な関数で、ぱっと見どう使っていいか分かりにくいやつの一つだと思います。

構文
Dir[(pathname[, attributes])]

ヘルプで詳細を確認してみましょう。

pathname
省略可能です。ファイル名を表す文字列式を指定します。
フォルダ名およびドライブ名も含めて指定できます。
引数 pathname に指定した内容が見つからないときは、長さ 0 の文字列 (" ") を返します。

attributes
省略可能です。

ふーんって感じですね。

ないことを確認するには？

ヘルプの後半にある「指定した内容が見つからないときは、長さ 0 の文字列 (" ") を返します。
がポイントです。

If Dir(パス名)<>"" then
'ファイルがないときの処理
Else
'ファイルがあるときの処理
End if

と書いてあげれば、いいわけです。
step4.5では、Do Whileを使って指定ファイルが見つからなくまでDir関数を使って、ないことが確認できた
ところで連番の数字を確定させています。

[エッセイ]　仕事をしたつもり

2011-11-21T21:49:00.002+09:00

あなたのオフィスにこんな人はいませんか？
・なぜかいつも忙しそうにしている
・作成物を印刷して、蛍光ペンでダブルチェックの印をたくさんつけている
・時間を賭けている割に、ミスが多い
他にもいろんなパターンがありそうですが、要するに効率の悪い人です。

最近は不景気なせいかチームのメンバーが減っても補充がないんですよね。
5人でやっていた仕事を一時的だということで3人でひーひー頑張る。
気づくとミスをやらかしていて、再発防止策を講じるということで作成物へのチェック作業が増える。
手数が増えて、ひーひーがひーひーひーで頑張る。
で、またミスをやって…の繰り返し。

不思議なことに、ひーひーも慣れてしまってずっと文句も言わずにひーひー言っている人がオフィスには
必ず一人はいます。
アウトプットは微妙な割に、ひーひーと全力出してるから、周囲はそこそこ温かい目で評価する。
本人も忙しいので仕事している気になっているし、残業代がきちんと出る企業であればお財布は周囲の
人の視線以上に温かい。

最近はやりの『仕事をしたつもり』にその辺の心理について解説されています。
上記に自分がちょっとでもあてはまる感じる人は騙されたと思って読んでみて下さい。
目からうろこですよ、きっと

で、今回言いたいことはたった一つ

ちゃんと頭を使って、物事を整理すれば、
仕事は絶対に今より短時間で終わります。

具体例をひとつご紹介。
ボクの昔の上司で超絶な方がいました。
・海外支店の拠点長
・兼、現地販売責任者
・兼、支店の総務部部長
を全部こなしていたそうです。

超絶に頭のいい人でした。いろんな断片情報から全体像を描くのが上手い人でした。
ちょっと違いますが、「１聞いて、１０分かる人」です。

ボクはこんな上司には慣れませんが、プログラミングという武器で少しでも近付きたいです。
その試行錯誤から生まれたアウトプットをみなさんと共有できたら嬉しい限りですね。

step4.5 添付ファイルを連番で保存

2011-11-20T22:39:00.003+09:00

step4では、Outlookで受信した添付ファイルをとりあえず保存する方法を紹介しました。
これはこれで便利だと思います。
ただ、これは結構大ざっぱな作りです。

というのも、「SaveAs」は同一のファイル名のファイルが存在する場合上書き保存になってしまうからです。
ですので、一度に同一名ファイルのものを処理しようとすると最後に処理したファイルのみがポツンとフォルダに残った状態に。

いろいろ回避の仕方はありますが、その一つがファイルを連番で保存するというやり方です。
abc_2.csv、abc_3.csv、abc_4.csv、…、abc_n.csv (n = 2,3,4…)
という感じです。

こうした形式の保存方法のヒントはすでに文字列についてのエントリーで紹介済みです。
考え方としては、下のフローチャートのようになります。

これであれば、100個でも200個でも大丈夫です。
さて、コードは以下の通り。

file_name = myfolder.Items(i).Attachments(j).DisplayName
If Dir(path & file_name) = "" Then
myfolder.Items(i).Attachments(j).SaveAsFile (path & file_name)
Else
'同じ名前のファイルが保管フォルダーにあるので、名前を変更
k = 2
While Dir(path & Replace(file_name, Right(file_name, 4), "") & "_" & k & Right(file_name, 4)) <> ""
k = k + 1
Wend
myfolder.Items(i).Attachments(j).SaveAsFile (path & Replace(file_name, Right(file_name, 4), "") & "_" & k & Right(file_name, 4))

コードの冒頭で読みやすくするために、file_nameという変数の中に添付ファイルのオリジナルのファイル名を突っ込んでいます。
これで可読性が上がり、自分に優しいコードになります。簡単ですが、これで連番で保存することが出来るようになります。

step4　添付ファイルを一括で自動保存

2011-11-17T20:38:00.005+09:00

step3 送信者のアドレス、件名を習得できるようになりました
step3.5　文字列操作で必要な最低限の知識もカバーしました。

これで下準備は万全です。

今回は、早速メールに添付されているファイルを一括でマクロを使って保存する方法について整理しましょう。

これでほとんど目標に掲げたことをカバーできるようになります。

Sub Outlook_test()
Dim objOL As Object
Dim objNAMESPC As Object
Dim myfolder As Object

Set objOL = CreateObject("Outlook.Application")
Set objNAMESPC = objOL.GetNamespace("MAPI")
Set myfolder = objNAMESPC.GetDefaultFolder(olFolderInbox)
Debug.Print myfolder

myfolder.Items.Count
Debug.Print myfolder.Items.Count

Dim path As String
path ="C://abc/"  '保存先のフォルダ名

Dim i As Long
i = 1
Dim ItemNumber As Long
ItemNumber = myfolder.Items.Count
Do While i <= ItemNumber
   Debug.print "受信時間" & myfolder.Items(i).ReceivedTime & "アドレス" & myfolder.Items(i).SenderEmailAddress & "件名" & myfolder.Items(i).Subject

　If UCase(myfolder.Items(i).SenderEmailAddress) Like UCase("yamada[@]outlook[.]com") then
            Dim attm as Integer
       attm = myfolder.Items(i).Attachments.Count
          For j =1 to attm
              myfolder.Items(i).Attachments(j).SaveAsFile (path & myfolder.Items(i).Attachments(j).DisplayName)
          Next j
i = i + 1
Loop
End Sub

さて解説です。

Dim path As String path ="C://abc/" '保存先のフォルダ名。

ここで、保存先フォルダを指定しています。あとで、ファイル保存するとこれでも触れますが、最後に「/」（もしくは「\」）を付けて下さい。これがないと、フォルダ名とファイル名がごっちゃになってしまい、保存できません。

If UCase(myfolder.Items(i).SenderEmailAddress) Like UCase("yamada[@]outlook[.]com") then Dim attm as Integer attm = myfolder.Items(i).Attachments.Count For j = attm myfolder.Items(i).Attachments(j).SaveAsFile (path & myfolder.Item(i).Attachments(j).DisplayName)

ここが本日のポイント。やっていることは、 yamada[@]outlook[.]comから届いたメールのみを対象にして、添付してあるファイルを順番に、指定したフォルダに保存です。 UCase関数で、すべて大文字にしてあげてます。どの文字が大文字か事前に予想できない場合は、全て大文字化してしまえばスルーすることはないですし、個別に条件を追加しなくてもすみます。＜ここで、注意点！＞「@」「-」「_」「.」などは[]でくくって下さい。くくらないとこれら記号は、文字列として処理できません。ちなみに、ファイルが複数添付されていてもいいように、

attm = myfolder.Items(i).Attachments.Count

で添付ファイルの合計数を数えて、１番目からその合計数まで保存作業を繰り返させています。保存作業はここですね。

myfolder.Items(i).Attachments(j).SaveAsFile (path & myfolder.Item(i).Attachments(j).DisplayName)

「SaveAsFile」で、保存「DisplayName」が添付ファイルのファイル名を取得するメソッドです。 DisplayNameはDisplayとありますが、拡張子を非表示にしていても、拡張子付きでファイル名を返してくれます。これで、添付ファイルは保存できるようになりました。しかもファイルがいくつ添付されていようと対応可能です。 100個で200個でも問題なし！！ただ、安定したツールにするにはいくつかハードルが残っています。・保存フォルダに既に同一ファイル名があったらどうする？・一つのアドレスしか指定してないけど、実際にはもっとたくさんある・アドレスだけじゃなくて、もっと複数の条件で絞らないといらない添付ファイルまで保存してしまう。などなど。次のエントリーで、そうした問題を整理しながら回避する方法をまとめましょう。

社内SEが本音で語るサラリーマンに必要なたった一つのプログラミング言語

2011-11-14T21:54:00.001+09:00

このサイトを見てる人なら、一度はこんな風に考えた事ありますよね？

・仕事楽にしたいなぁ
・ルーティング作業なのにどうしして手でやってるんだろ？
・自動でできないかなぁ
・てゆーかめんどくさい

で、最近はやりのXXX　HACK!的な本を立ち読みしてみたり、アマゾンでつい買ってみっちゃったり。

「自動」って言葉を聞くとプログラムって連想して、Google様に「自動化　プログラム」とかって聞いてみる。
そうすると、役に立ちそうでたたないページが山のように見つかる。
＊今やってみましたら13,000,000件もひっかかりました。多すぎ！ｗ

最近のはやりを見るとphpとか、iphone効果でObject-C。弾小飼にあこがれてperlを眺めてみたり。
でも普通のサラリーマンには不要です。

php：わざわざサーバーいじる必要ないですよ
java：どんだけ大規模な業務を自動化したいんですか？
Object-C：iphoneもipadも関係ないです。電車の中でブログを読むのに使ってるくらいです。
javascript：HTMLファイルに表示させる必要ないですから。

と気づくと自分の業務に関係してないプログラミング言語ばかりなことに気づきます。
なんかカッコいいし、使いこなせると世界が広がる感があるけど、要らないんです。
もちろんできるようになりたいけどね！！

で自分が何を使っているとデスクを見まわすと、
・エクセル
・Outlook
・パワポ
・ワード
・Internet Explorer
Office製品ばっかりじゃないかと気づきます。
そうあなたのデスクにはスティーブ・ジョブスはいないんです。

で、上記アプリで何をしているかというと
・表計算
・グラフ化
・データ入力
・メール
・資料作成
です。地味ですね。
僕には、Zenを意識したかっこいいパワポ資料を作るくらいしか刃向かう術を思いつけません。

やれやれと思いながら、データ入力が終わったファイルを別名で、今日の日付が名前になっているフォルダに保存と。
届いたメールに添付さているファイルをとりあえず作業用のフォルダにおいていつもの作業をするわけです。

で、以下のように思ったわけです。
ぼくは人生で何時間Microsoft社に囲まれて、Windowsで動く箱の中で作業をするんだろう？
もっとカッコよく楽な感じで過ごせないのかな

そこでたどり着いたのが、VBAですよVBScriptですよ。
普通のサラリーマンには、phpもRubyも要りません。
Object-Cは家でやって下さい。
仲良くなるべき相手は、スティーブじゃなくて、ビルです。ゲイツです。

驚きましたか？
残念ですか？
悔しいですが、これが現実なんです。

というわけで、Office製品代表格のひとつであるOutlookを少しでも楽に使いましょうよ！

コメントし忘れましたが、たまにアクセス使えると便利ですよね。たまにしか使わないけど…。

step3.5 これだけは押さえておきたい文字列操作の3パターン

2011-11-14T00:31:00.004+09:00

どんな関数を調べていくと一見、絶対使わないような関数が出てきます。
普段エクセルで表計算とかしている分だとほとんど使わないのがおそらく文字列操作に関連するものでしょう。
半角文字を全角に変換する関数とかもあります。
多分、一生使わない人が大半でしょう笑
（↑笑っておきながら、最近使いました。。。どんだけ人がやらないことやらされてるんだ　orz）

今回は、目標であるプログラムを作成するにあたって絶対必要なものを３パターン計８個ピックアップします。

１．大文字、小文字に変換
相手のメールアドレスは本当に全部小文字ですか？
最初の一文字だけ大文字だったりしませんか？
ほとんどの場合全部小文字だけど、たまに特定の人だけ大文字混じりで届いたりしませんか？
安全な業務ツール作成するには、いちいちこんなことを考えるのは面倒なので、関数を使って大文字か小文字のどちらかに統一した方が楽です。

大文字化→ Upper(文字列)
小文字化→ Lower(文字列)

２．左から○○文字抜き出す、右からXX字抜き出す
ファイル名を指定するときに、こうした関数を使うことになります。
「特に右から４字抜き出す」はよく使ってます。

左から文字を書くのになんで、右からでしょう？
それは拡張子だけ分離したいときがよくあるからです。

左から○○文字抜き出す→ Left(文字列, ○○)
右からXX字抜き出す→ Right(文字列, XX)

右、左の両方とも使えるようになると、「左のXX目から、○○目まで」っていうのも気になりますよね。

左のXX目から、○○目まで→ Mid(文字列, XX, ○○)

ただこれは実は使うのが難しいケースが多いんです。
というのも、「文字列」が全部で何文字か予め分からないケースが多いから。
経験上、「何文字目から何文字目まで」抜き出すというより、「左からXX字目から、右から数えて○○字まで」抜き出したいことの方が多かった気がします。
こういうときは、全体で何文字あるか分からないとまずい。
出たとこ勝負ってわけにもいかないので、文字列の長さを数える必要があります。

文字列の長さを数える→ Len(文字列)

合わせ技で、こんな感じになります

Mid(文字列, XX, Len(文字列) - ○○)

これができると、予め何文字あるか知らないときでも何とかなります。

３．置換
ある文字を他の文字に置き換えるやつです。
むしろ、ある文字だけを消去したいときに便利な気がします。
今までやってきた範囲では、日付型ではない日付データに含まれているスラッシュ「/」を消して、yymmdd形式にしたりするっていうのに使いました。
＊11/01/30→110130　とか。ファイル名、フォルダ名に日付を使うときによく使います。

XXを○○に置換→ Replace(文字列, XX, ○○)

しれっと「日付型」って言葉が出てきましたね。
プログラミングをする上で避けて通れないのが、「データの型」の理解です。
慣れないとややこしい上に、バグの原因になる…
初めのころはこれで相当苦労しました。
次のエントリーで最低限知っておくべきデータ型についてまとめますね。
step数がなかなか増えませんが、このへんを押さえていれば結構なんでも応用が効きますのでがんばりましょう！

今回は以下のサイトにお世話になりました。
エクセル関数のサイトですが、今回紹介した関数はそのままVBAでも使えます。
Excel（エクセル）基本講座
URL:http://www.eurus.dti.ne.jp/yoneyama/Excel/kansu/moji_1.htm

step1.5 受信トレイ以外のフォルダを指定

2011-11-13T20:34:00.003+09:00

step1では、デフォルトで指定されているフォルダ（受信トレイ）を指定先としてオブジェクトを作りました。
当たり前ですが、このままコードを書きすすめていくと、受信トレイにあるメールしかマクロで動かせません。
他のフォルダのメールも操作したいですよね？
という要望があるはずなので、ここでは番外編として好きなフォルダを指定する方法をまとめておきます。

ここでは試しに、受信トレイ直下にある「TEST」というフォルダを指定してみましょう。
Outlook上ではこんな感じの表示なっている状態です。

コードは以下のようになります。

Set objOL = CreateObject("Outlook.Application")
Set objNAMESPC = objOL.GetNamespace("MAPI")
Set myfolder = objNAMESPC.Folders(olFolderInbox).Folders("TEST")
Debug.Print myfolder

イミディエイト・ウィンドウにTESTって表示されましたか？
objNAMESPC.Folders(olFolderInbox)で受信トレイまでたどり着いているので、その傘下にあるFolderを名前で指定してあげいるわけですね。

では、TESTフォルダーの下にある子TESTを指定したいときはどうするのでしょう？
こういう状態ですね。

答えはこうですよね

Set objOL = CreateObject("Outlook.Application")
Set objNAMESPC = objOL.GetNamespace("MAPI")
Set myfolder = objNAMESPC.Folders(olFolderInbox).Folders("TEST").Folders("子TEST")
Debug.Print myfolder

ここまでやるとどれだけ下層のフォルダーでも指定できますね！ってそんな深くフォルダを作る人はいない気がしてきたが↓

Outlook VBAの便利なサイト集

2011-11-13T10:43:00.003+09:00

先人たちの知恵をここから学びに行きましょう！

三流君

ここがすごいのは、動画も一緒にアップしてくれているのでホントに「見て」分かります。

Outlook研究所

読者投稿に応えてエントリーを増やしたりしていてインタラクティブなサイトです。
エントリー数が多くて参考になる記事が多いのが特徴。

Outlook VBA Sample

シンプルな作りで、必要なパーツ毎にまとめられています。
コピペプログラマー向きなサイトです。

見つけたらまた追加していきます！

step3　Outlook　アドレス、件名、受信時間を調べる

2011-11-13T00:49:00.010+09:00

前回は届いていたメールの総数を数えました。（step2）
いよいよ個別メールの情報を調べていきましょう。
これが自在にできれば、目標にかなり近づきます！！
コードは↓のような感じ

Sub Outlook_test()
Dim objOL As Object
Dim objNAMESPC As Object
Dim myfolder As Object

Set objOL = CreateObject("Outlook.Application")
Set objNAMESPC = objOL.GetNamespace("MAPI")
Set myfolder = objNAMESPC.GetDefaultFolder(olFolderInbox)
Debug.Print myfolder

myfolder.Items.Count
Debug.Print myfolder.Items.Count

Dim i As Long
i = 1
Dim ItemNumber As Long
ItemNumber = myfolder.Items.Count
Do While i <= ItemNumber
   Debug.print "受信時間" & myfolder.Items(i).ReceivedTime & "アドレス" & myfolder.Items(i).SenderEmailAddress & "件名" & myfolder.Items(i).Subject

i = i + 1
Loop
End Sub

動きましたか？やってることは「myfolderにあるi番目のアイテム（メールのこと）の受信時間（ReceivedTime）、アドレス（SenderEmailAddress）、件名(Subject)を表示する」という作業をItemNumber（受信メール総数）回だけ繰り返すということです。

ちなみに、プチネタですがプログラムを少し早く動かすために工夫があります。 ItemNumber = myfolder.Items.Count Do While i <= ItemNumber の部分です。次のエントリーではいよいよ添付ファイルの情報を調べるやり方について書きます。これって Do While i <= myfolder.Items.Count と書いても同じ意味ですよね？変数も一つ減るし楽な感じがします。でも、実はこの書き方の方が実行速度は落ちます。なぜかというと、毎回myfolderにあるアイテムの数を数えているからです。件数が少なければ大したことありませんが、1,000件も10,000件も溜っているメールボックスの情報を取る場合は目に見える差が出ます！！まぁちょっとしたこだわりです。別に気にしなくても構いません。笑

step2　Outlook受信トレイのメールの件数を数える

2011-11-12T23:51:00.007+09:00

前回は、デフォルトで指定しているOutlookのメールボックスをオブジェクト化するところまで説明しました。
メールをいじるところの直前までいったことになります。
今回は、メールボックスに届いているメール件数を調べてみます。
コードは以下の通り、前回分に2行増えます。

Sub Outlook_test()

Dim objOL As Object

Dim objNAMESPC As Object

Dim myfolder As Object



Set objOL = CreateObject("Outlook.Application")

Set objNAMESPC = objOL.GetNamespace("MAPI")

Set myfolder = objNAMESPC.GetDefaultFolder(olFolderInbox)

Debug.Print myfolder

myfolder.Items.Count

Debug.Print myfolder.Items.Count

End Sub

動きましたか？これで受信トレイにあるメールの総数がイミディエイト・ウィンドウに表示されるはずです。
コードを手入力された場合は、「Items」と複数形になっているのに注意して下さい。
自分で書いてて、単数形で書いたせいでばっちり途中で止まりました　汗

より下層のオブジェクトを作成するときは…

お気づきかと思いますが、上記で書いたことは結局↓のように書いても同じことになります。
CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items.Count
XX.YY.ZZという流れで、大きいモノから小さいモノへと「.」でつないで行き、最後にメソッドとなるcountで数えています。
これをいちいち書いてられないし、読みたくもないので、Setを使って名前を付けてあげているわけです。

step1　オブジェクトの生成　Outlookをエクセルからいじるスタートポイント

2011-11-12T23:29:00.008+09:00

前回のエントリー（最初にすること　参照設定）では、参照設定をしました。
次は、OutlookをエクセルVBAでいじるために、Outlookのオブジェクトを作ります。

Sub Outlook_test()
Dim objOL As Object
Dim objNAMESPC As Object
Dim myfolder As Object

Set objOL = CreateObject("Outlook.Application")
Set objNAMESPC = objOL.GetNamespace("MAPI")
Set myfolder = objNAMESPC.GetDefaultFolder(olFolderInbox)
Debug.Print myfolder
End Sub

意味不明からもしれませんが、くじけずに。
これを実行すると、イミディエイト・ウィンドウにデフォルトで指定されているフォルダ名が表示されます。
多分、「受信トレイ」とかが出ると思います。（人によって違うけど普通いじってない）

上記でやっているのは、
・「Outlook Application」をオブジェクトにしてあげて
・NameSpace（名前空間）の取得して
・それをobjNAMESPCってオブジェクトにして
・その中にあるデフォルトのフォルダをmyfolderというオブジェクトにする
という作業。

あくまでイメージですが、↓な感じで具体的にいじりたい対象であるメールまでたどり着くための設定をやっています。
上のコードではメールまではたどり着いてませんが、直前のフォルダまではたどり着いてます。
次のエントリーで、もう一歩進みましょう！

step0　最初にすること　参照設定

2011-11-12T22:27:00.003+09:00

Outlookのみでコードを書いているのなら、不要な設定です。
でも当ブログが目指すエクセルでOutlookをいじる場合には、絶対必要なことです。
しょうもない話ですが、最初にやるときは忘れるので記事にしておきます。

◆やり方
（エディターの画面で）ツール（T)　→　参照設定（R)　→　参照可能なライブラリファイル（A)
といって大量にある中から、Outlookを選びます。
↓な感じです。使っているバージョンによってOutlook XX は違うはず。ボクのは12.0みたいです。

これで終了。
あとはお好みのコードを書いていけばいい。

これが手元にないなら、モグリです～武器になるレファレンス～

2011-11-10T00:04:00.008+09:00

いきなり変なタイトルですが、武器を配りたいんすよｗ
エクセルでVBAのコードを書くときに分からないことがあったらどうしてますか？
ググって誰かのサイトを見るのも手です。
ピンポイントで回答が見つかればいいんですが見つからないことも多々あるし、細かいところ正しいところってのは確認しにくいもんです。

そういうときは、ボクはヘルプ機能を使って調べるってのをよくやります。

こんな感じです。細かい部分を調べるときには、メンドーですがこれが神です。

ただ、新しいことをやる際にはどうメソッドがあるのか分からないし、名称も知らない。
こういうときは、ググりようがないですよね。
そんな中で役に立つのがここ。
マイクロソフトが作成しているDeveloper Referenceです。

日本語があればいいんですが、残念なことに英語のみです。

ただこれだけ読んどけば簡単にコードが書ける！！、わけはなく…。
もちろんプロはこれで十分なんでしょうが…。

このサイトでも適宜ここを参考に大事なポイントをまとめていきます！

BLOG・SNSレンタル部門

このブログの目標

2011-11-09T23:39:00.006+09:00

このブログを読んで何ができるようになるかを簡単にまとめておきます。

■目標

＜何を＞

Outlookで受信したメールに添付されているファイルを

＜どこに＞

事前に指定したフォルダに

＜どうやって＞

自動で、予め指定したファイル名で

＜どうする＞

保存する

■どんな人向け？どんなことに使えるの？

１）毎日大量の添付ファイルを受信している人

２）受信したファイルを特定のルールで保存しなきゃいけない人

３）しかも、保存フォルダを間違えたり、ファイル名を手で修正しないといけない人

■このプログラムの特徴は？

１）使い慣れたエクセルで管理して、誰でも簡単にツール管理ができるようになります。

２）基礎を覚えたら、色々と応用できるので結構いろんな用途に対応できるようになります。

■管理人はどう使ってる？

業務でガンガン毎日使ってます！

海外から山のようにデータファイルが届いて、日本の翌朝に所定のフォルダに保存してます。

毎日、100件くらいメールが届いていて、その中から必要なものを（大体80件くらい？）のを各々のフォルダにしてます。

手でやると死ぬほどめんどくさい作業です…。

そんな業務から解放するのが、当ブログの目標です。

みんな楽して下さい。

＊もちろんプログラムのミスなどによる影響は自己責任でお願いしますね！

ブログランキング