Outlook2003ですが、２点質問があります

１．タイトルをブランクで送信してしまう際に、そのまま送信ではなくエラーメッセージが出るように設定はできますでしょうか
２．過去に受信したメールをフォルダごとに分けて格納していますが、検索をする場合に、すべての受信メールから検索するにはどうすれば良いでしょうか

回答の条件

1人2回まで
13歳以上

登録：2010/05/19 12:24:22
終了：2010/05/26 12:25:02

No.1

chyopper416692010/05/19 12:50:01

60pt

１．以下のコードを　アウトルック上　Alt + F11 ItemSend イベントモジュールにコピーか入力します

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim mySubject As String

mySubject = Item.Subject

If Trim(mySubject) <> "" Then

Exit Sub

Else

MsgBox　"件名無し", vbExclamation

Cancel = True

Exit Sub

End If

End Sub