添付忘れ，outlook 忘记附件

虽然已经很久不用outlook了，找到以前写的代码，怀念以下

http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?forum=8&topic=23826

使い方：
１：下記のソースをOutlook2003->ツール->マクロ->Visual　Basic　
Editor->ThisOutlookSessionに入れてください。
２：ツール->マクロ->セキュリティー＞セキュリティレベルを「中」または「低」に
設定してください。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
Dim strBody As String


strSubject = Application.ActiveInspector.CurrentItem.Subject '件名
strBody = Application.ActiveInspector.CurrentItem.Body '本文

'件名がありませんか
If Trim(strSubject) = "" Then
If MsgBox("このメッセージには件名がありません。本当に送信しますか？", vbYesNo + vbExclamation) = vbNo Then
Cancel = True
Exit Sub
End If
End If

'添付ファイル忘れてませんか
If InStr(strSubject & strBody, "添付") > 0 And Application.ActiveInspector.CurrentItem.Attachments.Count = 0 Then
If MsgBox("添付ファイル忘れてませんか? 本当に送信しますか？", vbYesNo + vbQuestion) = vbNo Then
Cancel = True
Exit Sub
End If
End If

End Sub

[ メッセージ編集済み 編集者: 重粒子 編集日時 2005-10-13 18:56 ]