코드쓰는사람

회사에서 Outlook 을 사용하는데, Outlook 에서 제목을 입력했는지 체크를 안하는 관계로 간혹 실수로 제목없이 발송해버릴 때가 있다. 오늘 사내에서 누군가 올리셨길래 조금 수정해서 만들어본 것이다.

[code]
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
[/code]

Outlook을 실행하고 Alt+F11을 누르거나 도구 → 매크로 → Visual Basic Editor 를 실행하면 에디터가 나타나는데 이 때 왼쪽 프로젝트 탐색기에서 ThisOutlookSession을 더블클릭하면 편집창이 나타나고 여기에 위 코드를 삽입 후 저장하면 된다.

이 때 보통의 보안설정으로는 Outlook 을 재시작해도 해당 매크로가 적용되지 않는다.

따라서 보안 설정을 조금 낮추어줄 필요가 있다. 도구 → 매크로 → 보안을 실행하고 매크로 보안 항목에서 모든 매크로에 대해 경고 표시 혹은 매크로에 대한 보안 검사 안함 을 선택하면 된다. 후자의 경우 악성 매크로에 위협당할 가능성이 있으므로 심하게 귀찮아서 "보안설정따위 무시해도 좋아!" 라는 정도의 생각이 아니라면 선택하지 않는 것이 좋다.