[Outlook] 제목없이 메일 발송시 알려주는 기능

간혹 제목없이 메일을 발송하는 실수를 하는 경우가 있습니다.

이런 실수를 막기위한 방법을 알려드립니다.

[도구] - [매크로] - [비주얼 베이직 수정]

아래 코드를 넣으시고 저장 후 닫기.

Private Sub Application_ItemSend(ByVal Item As Object, Cancek As Boolean) Dim strSubject As String strSubject = Item.Subject If Len(Trim(strSubject)) = 0 Then Prompt$ = "제목이 비었습니다. 그래도 보내시겠습니까?" If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check for Subject") = vbNo Then Cancel = True End If End If End Sub

단, 매크로가 아래와 같인 "매크로 포함" 상태로 되어 있어야 합니다.

Alt+F11을 누르면 자동으로 창이 뜨거나, 매먼 실행마다 뜨는게 불편하다 싶으시면, 아래 주소로 가셔서 글을 읽어주시면 됩니다.

http://victor8481.tistory.com/282

전 숨은 참조까지 함께 쓰고 있어서 아래와 같이 보입니다.

아래 파란색으로 그어진 부분이 메일 주소입니다.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim objRecip As Recipient Dim strMsg As String Dim res As Integer Dim strBcc As String On Error Resume Next Dim strSubject As String strSubject = Item.Subject If Len(Trim(strSubject)) = 0 Then Prompt$ = "제목이 비었습니다. 그래도 보내시겠습니까?" If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check for Subject") = vbNo Then Cancel = True End If End If strBcc = "이메일 주소" Set objRecip = Item.Recipients.Add(strBcc) objRecip.Type = olBCC If Not objRecip.Resolve Then strMsg = "Could not resolve the Bcc recipient. Do you want still to send the message?" res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, "Could Not Resolve Bcc Recipient") If res = vbNo Then Cancel = True End If End If Set objRecip = Nothing End Sub