아웃룩 제목없이 보낼때 확인하는 메시지 나오는 방법

아웃룩을 사용하시다 보면 제목을 넣지 않고 보내는 경우가 가끔 발생하죠..

 

따로 체크해 주는 옵션이 있는 것도 아니고 그렇다고 실수는 하기 싫고~

 

그럴 땐 VB를 이용해서 하는 방법이 있습니다.

(참고로 아웃룩 2010까지는 가능하지만 2013은 모르겠네요)

 

아웃룩 실행 화면에서 Alt + F11을 누르세요.

그러면 아래와 같은 화면이 나옵니다.

 

아래 화면에 스크립트를 넣어주시고 Ctrl+S 로 저장해주세요.

 

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

 

소스 다운로드 :이메일 제목없이 보내기 방지 소스.txt

 

 

 

 

 

빠져 나오시고 Tool(툴) -> Macro 에서 Security를 클릭하세요.

 

 

 

Warnings for all macros 를 선택해주시면 끝이네요 ^^

 

 

 

아래는 테스트 화면입니다.