Outlook総合相談所 Part8

Outlook総合相談所 Part8 at BSOFT

364:名無しさん＠そうだ選挙にいこう
07/10/31 22:08:57
>>362
VBAエディタ開いて下のコードを貼ればメッセージ出せるよ

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Len(Item.Subject) = 0 Then
MsgBox "件名が無い"
Cancel = True
End If
End Sub

次ページ

続きを表示

1を表示