Outlook 을 사용하는데, Outlook 에서 제목을 입력했는지 체크를 안하는 관계로 간혹 실수로 제목없이 발송해버릴 때가 있다.
Private Sub Application_Itemsend(ByVal Item As Object, Cancel As Boolean)
Dim strMessage As String
If Len(Trim(Item.Subject)) = 0 Then
strMessage = "제목없음! 정말 보내시겠습니까?"
If MsgBox(strMessage, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "제목 확인") = vbNo Then
Cancel = True
End If
End If
End Sub
Outlook을 실행하고 Alt+F11을 누르거나 도구 → 매크로 → Visual Basic Editor 를 실행하면 에디터가 나타나는데 이 때 왼쪽 프로젝트 탐색기에서 ThisOutlookSession을 더블클릭하면 편집창이 나타나고 여기에 위 코드를 삽입 후 저장하면 된다.
이 때 보통의 보안설정으로는 Outlook 을 재시작해도 해당 매크로가 적용되지 않는다.
따라서 보안 설정을 조금 낮추어줄 필요가 있다. 도구 → 매크로 → 보안을 실행하고 매크로 보안 항목에서 모든 매크로에 대해 경고 표시 혹은 매크로에 대한 보안 검사 안함 을 선택하면 된다. 물론 악성 매크로에 안전할 때만 적용하자.
