가장 간단한 예제
Outlook에서 메일보낼때 제목을 빠뜨렸다면?
다시 죄송합니다. 제목이 빠졌네요를 보내거나.
너는 왜 제목을 안쓰고 메일보내냐는 핀잔을 듣겠지.
요래요래 해 놓으면 메일 보낼때 제목이 없으면 팝업이 뜨지.
정말 보낼꺼냐고~
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Check empty subject
If Len(Trim(Item.Subject)) = 0 Then
If MsgBox("제목없어!! 그냥 보낼까불이~ ", vbYesNo+vbQuestion+vbMsgBoxSetForeground, "Subject Check!") = vbNo Then
Cancel = True
End If
End If
End Sub
간단한 적용방법은..
아웃룩 > Alt + F11 > 왼쪽에서 ThisOutlookSession 선택 > 붙여넣기 > 저장