メールを書いている間に件名を言うのを忘れることもありました。
それを防ぐ方法はありますか。Google-ingでソリューションを取得しましたが、MS Office 2007 Editionでは動作しませんでした。
ソリューションは次のようなものです:
手順は次のとおりです。-
- Outlookを開き、
- Alt + F11を押します。これにより、Visual Basic Editorが開き、Ctrl + Rを押してProject-Project 1(左側)を開きます
- 左ペインで、「Microsoft Outlookオブジェクト」または「Project1」を表示し、これを展開できます。これで、「ThisOutLookSession」が表示されます。
- 「ThisOutLookSession」をダブルクリックします。右側にコードペインが開きます。
- 次のコードをコピーして右ペイン(コードペイン)に貼り付け、保存して閉じます
コード:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
strSubject = Item.Subject
If Len(Trim(strSubject)) = 0 Then
Prompt$ = "Subject is Empty. Continue anyways???"
If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground,
"Check for Subject") = vbNo Then
Cancel = True
End If
End If
End Sub
これで、件名なしでメールを送信しようとするたびに、空白の件名を思い出させるポップアップが表示されます。
任意のアイデア、それをどのように行うことができます。