OutlookVBA | VBA・GAS・Pythonで仕事を楽しく効率化

Outlookで開発タブを表示する

okumasahito — Sat, 19 Aug 2017 13:15:32 +0000

開発タブを表示しておくことで素早くVBE(Visual Basic Editor)にアクセスできる
開発タブの表示手順

開発タブを表示しておくことで素早くVBE(Visual Basic Editor)にアクセスできる

Outlookに限らずOfficeはどれでもそのままではすぐにVBE(Visual Basic Editor)を開くための開発タブが非表示になっています。

セキュリティの問題で詳しい人以外はマクロを触らないようにしているためと推測されますが、マクロを使うにはかなり不便です。
今までOutlookのVBAを書いてきているので今更ですが、開発タブの表示方法を今回紹介します。

開発タブの表示手順

Outlook2013とOutlook2016における開発タブの表示手順は以下の通りです。
画像はOutlook2016です。

①標準のウインドウの左上にある「ファイル」をクリックします。

②「オプション」をクリックします。

③表示されたウインドウで「リボンのユーザー設定」をクリックします。

④右下の方に表示されている「開発」タブにレ点チェックを入れます。

⑤開発タブが表示されているのでクリックします。

⑥マクロを使ったり、VBEを起動するボタンが表示されます。

マクロをクリックした場合は登録しているマクロの一覧が表示されます。
VBのボタンをクリックすると以下のようにVBEが起動されます。

パブリックフォルダの新規投稿を検出するOutlookVBA

okumasahito — Sun, 13 Aug 2017 14:03:37 +0000

パブリックフォルダを毎日確認するのは面倒？
パブリックフォルダをチェックし続けるのは難しいので起動時に確認する手順にした
起動時に実行する内容はThisOutlookSessionにApplication_StartUpというプロシージャを作成する
起動時にパブリックフォルダの中のフォルダの未読件数を調べるVBA（マクロ）

パブリックフォルダを毎日確認するのは面倒？

先日同僚からパブリックフォルダの新規投稿を自動で確認する方法はないか？と相談がありました。

どうやら時々しか投稿がないパブリックフォルダを毎日確認するのが面倒に感じていたようです。

あまり多いケースではないかもしれませんが、同じように感じる方もいらっしゃるかと思いましたので、こちらで作成したVBAコードを紹介します。

パブリックフォルダをチェックし続けるのは難しいので起動時に確認する手順にした

立ち上げているときにずっとパブリックフォルダを監視して、新しく投稿が出た段階でチェックする機能は難しいようです。

色々調べてサンプルを作成したのですが、きちんと動作しなかったのでOutlookを立ち上げた際にチェックする方法を採用することにしました。
今回は時々しかない投稿をチェックする目的だったので、Outlook起動時のみの確認で大丈夫だったのが幸いでした。

起動時に実行する内容はThisOutlookSessionにApplication_StartUpというプロシージャを作成する

Excelの時のイベントプロシージャはOutlookにおいてはThisOutlookSessionに記載します。

左上の(General)と書かれているコンボボックスをクリックして、Applicationを選択すると右側の(Declarations)と書かれているコンボボックスから「StartUp」が選択できるようになります。

選択が完了するとモジュール内に以下のように表示されます。

Private Sub Application_Startup()

End Sub

この間の部分に必要な処理を記載すれば大丈夫です。
これらの一連の流れが面倒な場合は私が紹介するVBAのコードをそのままThisOutlookSessionにコピペしても同じ形式になります。

起動時にパブリックフォルダの中のフォルダの未読件数を調べるVBA（マクロ）

Outlook起動時にパブリックフォルダの中にあるフォルダを調べ、未読の投稿があった場合に件数を表示して、さらにフォルダのウインドウを表示するVBAコードは以下のようになります。

Private Sub Application_Startup()

Dim myNameSpace
Dim oFolder
Dim oFolder2
Dim cITEM

Dim n As Integer, j As Integer’ループのカウンター
Dim k As Integer

Dim strFileName As String

Set myNameSpace = GetNamespace(“MAPI”)
Set oFolder = myNameSpace.GetDefaultFolder(18)
Set oFolder2 = oFolder.Folders(“●●”).Folders(“○○”).Folders(“××”).Folders(“△△”)’パブリックフォルダの場所を設定する

On Error GoTo 接続できない連絡
k = 0
For n = 1 To oFolder2.Items.Count

Set cITEM = oFolder2.Items(n)
If cITEM.UnRead = True Then
k = k + 1
’Else　’既読を検出するとループを抜けるなら’を取り除く
’Exit Sub　’同じく
End If
Next n
If k <> 0 Then

oFolder2.Display
MsgBox “未読件数” & k & “件です。”

Else
MsgBox “未読はありません。”
End If

On Error GoTo 0

Exit Sub
接続できない連絡:

MsgBox “接続できませんでした”

End Sub

起動時にフォルダの投稿をすべてチェックするプログラムなので、投稿件数が多いとその分起動までに時間がかかります。

件数が多くて時間がかかるようなら、既読を検出すると繰り返しのループから抜けるようにコメントにしている部分をコードに組み込むか、既読の投稿自体を別のフォルダに移動させてください。

Outlookの署名を使い分けるVBAコードの作成

okumasahito — Thu, 16 Mar 2017 14:53:51 +0000

メールを送る際の署名を使い分けるのは面倒なので、VBAで便利にならないか？
メールの署名を使い分けるVBAコード
このマクロ（VBAコード）の実行時の注意点

メールを送る際の署名を使い分けるのは面倒なので、VBAで便利にならないか？

便宜上複数の肩書きを使用して仕事をすることになり、Outlookでメールを送る際に署名をいちいち使い分けて送るのが面倒になってきました。

そこで送信するときに確認画面が表示され、署名を選択することができるようにVBAコードを作成してみました。

メールの署名を使い分けるVBAコード

私が作成した署名を変更するVBAコードは以下のようになります。

マクロを実行すると「署名を変更しますか？」と確認画面が表示され、「はい」を選択すると署名を変更した状態でメールを送信し、「いいえ」を選択すると署名を変更せずにメールを送信する仕組みになっています。

Sub 署名変更確認()
Dim rc As Integer
rc = MsgBox(“署名を変更しますか？”, vbYesNoCancel , “確認”)
If rc = vbYes Then
署名変更して送信
Else
署名変更せず送信
End If
End Sub

Private Sub 署名変更して送信()
’送信の際、変更した後の署名を設定します。
Const SIGNATURE1 = _
“□□□□□□□□□□□□□□” & vbCrLf & _
“株式会社○○○○” & vbCrLf & _
“○○部　××課” & vbCrLf & _
“　　　　　　山田　太郎” & vbCrLf & _
“mail :000@0000.co.jp” & vbCrLf & _
“tel :000-0000-0000” & vbCrLf & _
“□□□□□□□□□□□□□□” & vbCrLf

Dim objMail As MailItem
Dim objWord ’As Word.Document
Dim objSignature ’As Word.Bookmark

Set objMail = ActiveInspector.CurrentItem
’署名の置き換え
Set objWord = ActiveInspector.WordEditor
Set objSignature = objWord.Bookmarks(“_MailAutoSig”)
objSignature.Range.Text = SIGNATURE1
’メールの送信
objMail.Send

Set objSignature = Nothing
Set objWord = Nothing
Set objMail = Nothing
End Sub

Private Sub 署名変更せず送信()
Dim objMail As MailItem
Set objMail = ActiveInspector.CurrentItem
’メールの送信
objMail.Send
Set objMail = Nothing
End Sub

あとはこの「署名変更確認」のマクロ（VBAコード）をクイックアクセスツールバーに登録すれば完了です。

メールを送る際には送信ボタンを押す代わりに、クイックアクセスツールバーに登録したマクロ（VBAコード）を実行すればOKです。

このマクロ（VBAコード）の実行時の注意点

そもそも署名変更した後すぐにメールを送ってしまうので、あまり問題は起こらないのですが、このマクロ（VBAコード）は1つのメールについて1回しか実行できません。

objWord.Bookmarks(“_MailAutoSig”)で変更後の署名の情報を取得できないのが原因のようですが、さらに詳しい部分はわかりませんでした。

このVBAコードを元に独自に修正する際は注意してください。