Outlook 2010에서 첨부 파일없이 전자 메일을 보내려고한다는 경고는 어떻게합니까?

Gmail에는 첨부 파일을 나타내는 이메일을 보내려고하지만 아무 것도 첨부하지 않았다고 경고하는 놀라운 기능이 있습니다. Outlook 2010에서도이를 수행 할 수있는 방법이 있습니까?

VBA 스크립트, 사용자 지정 규칙 또는 사용자 지정 추가 기능을 사용할 수 있습니다

microsoft-outlook microsoft-outlook-2010 microsoft-outlook-2013

Outlook 2013에는이 기능이 내장되어 있으므로 사용자 지정 스크립트 나 추가 기능을 추가 할 필요가 없습니다.

Outlook 2010을 구체적으로 요청하더라도 2010 및 이전 버전에서도 다음 스크립트 가 작동합니다.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
   If InStr(1, Item.Body, "attach", vbTextCompare) > 0 Then
        If Item.Attachments.Count = 0 Then
          answer = MsgBox("There's no attachment, send anyway?", vbYesNo)
          If answer = vbNo Then Cancel = True
        End If
   End If
End Sub

그러면 다음과 같은 경고가 표시됩니다.

호 레이!

를 누르면 yes어쨌든 이메일이 전송되지만을 누르면 no이메일 전송이 중단되어 첨부 파일을 첨부 할 수 있습니다.

다음은 업데이트 된 버전입니다. 회신에는 이전 메시지가 포함되어 있으며 회신 본문과 인용 된 메시지의 시작 / 종료 위치를 빠르고 쉽게 확인할 수있는 방법이 없기 때문에 회신 메시지가 표시되지 않습니다.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    If InStr(1, Item.Subject, "RE:", vbTextCompare) = 0 Then
       If InStr(1, Item.Body, "attach", vbTextCompare) > 0 Then
            If Item.Attachments.Count = 0 Then
              answer = MsgBox("There's no attachment, send anyway?", vbYesNo)
              If answer = vbNo Then Cancel = True
            End If
       End If
    End If
End Sub

두 경우 모두 (수정 된 원본 및 원본) '첨부'라는 단어가 포함 된 원본 전자 메일은 파일을 첨부 할 것인지 묻는 메시지를 표시합니다.

— 제임스 메르 츠
소스