• ベストアンサー

Outlookで件名がない場合に警告を出したい。

 Outlook2000に関する質問です。メールを出すときに件名が入ってない場合に確認のメッセージを出したいのですがどうすれば出来るのでしょうか。教えて下さい。

質問者が選んだベストアンサー

  • ベストアンサー
  • TTak
  • ベストアンサー率52% (206/389)
回答No.1

Outlook2000であればVBA機能を使うことができます。 少し難しいかもしれませんが試してみてください。 '------------------------------------------------------------ Private Sub Application_ItemSend(ByVal Item As Object, _ Cancel As Boolean) Dim myPrompt As String, myTitle As String, myBox As String On Error Resume Next '添付ファイル付きのメール送信の場合はパスワードを要求する If Item.Subject = "" Then myPrompt = "送信しようとしているメールには件名がありません。続行しますか。" myTitle = "件名の確認" myBox = MsgBox(myPrompt, vbYesNo + vbQuestion, myTitle) If myBox = vbNo Then Cancel = True End If End Sub'------------------------------------------------------- Windows98SE+Outlook2000にて動作確認

100Gold
質問者

お礼

ご回答ありがとうございます。 VBを使うしかないですか。基本的な機能だとおもったんですが案外ない門なんですね。 動作確認までしていただいたコードをありがとうございます。

関連するQ&A