인터넷 돌아다니다가 유용한 내용이 있어 해보고 포스팅합니다.
보통 업무 시에 아웃룩 많이 사용하는데요 메일 보낼 때 가끔 바쁘다 보면 메일제목을 작성하지 않고 보내는 경우가
있습니다.
이 때 빠뜨리지 않기 위한 유용한 기능입니다 VBS를 이용하여 메일 제목을 입력하지 않고 보낼 때에 경고 메시지
창하나 띄워주는 기능입니다.
※ Outlook 2010 기준으로 작성되었습니다.
1) 아웃룩을 실행합니다.
2) 아웃룩에서 Alt + F11 키를 눌러 Visual Basic Editor를 실행합니다.
에디터가 실행되면 아래내용을 입력 후 저장합니다.(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 |
3) 개발 도구 -> 메크로 보안 메뉴에서 "모든 메크로 실행(위험한 코드가 실행될 수 있으므로 권장하지 않음)(N) 선택 후 확인
4) 테스트 , 제목없이 메일 발송할 경우 경고 메시지 창이 실행되는지 확인합니다.
끗!
