매크로로 Outlook 오류 방지

돈을 쓰지 않는 오류 발송 방지를 아웃룩으로 구현하고자 간단하게 매크로로 조립했다.

1. 사전 준비: Outlook의 개발 리본(매크로)의 유효성

기본적으로 Outlook의 개발 테이프는 유효하지 않으므로 매크로를 추가할 수 없습니다.
먼저 개발 리본을 사용합니다.
1. 메뉴 표시줄 파일 클릭

2. 클릭 옵션

3. 리본의 사용자 설정을 선택하고 오른쪽 상자의 개발을 선택하고 OK를 클릭한다.

4. 리본에 추가 개발 확인

!
추가되지 않은 경우 옵션이 선택되어 있는지 확인합니다.

2. 매크로 오발 방지 설치

1. 리본 개발에서 Visual Basic 클릭

2. 왼쪽 상자에서 This Outlook Session 열기

3. 코드 복사
다음 코드를 복사해서 저장합니다.
!
설명 참고 사항
code

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error GoTo Exception

    Dim address As String
    Dim subject As String
    Dim attachment As String
    Dim popMessage As String
    Dim objRecipient As Recipient


    ' Itemでメールの件名の取得
    subject = Item.subject

    ' Item.Recipientsで全受信者を取得し、受信者ごとの表示名とメールアドレスを格納
    address = vbCrLf
    For Each objRecipient In Item.Recipients
        address = address & objRecipient.Name & "(" & objRecipient.address & ")" & vbCrLf
    Next

    ' Item.Attachmentsで添付ファイル情報を取得し、ファイル名を格納
    attachment = vbCrLf
    For Each objAttachment In Item.Attachments
        attachment = attachment & objAttachment.FileName & vbCrLf
    Next

    ' ポップアップに表示するメッセージを作成
    popMessage = "メール件名:" & vbCrLf & subject & vbCrLf & vbCrLf & "宛先:" & address & vbCrLf & "添付ファイル:" & attachment & vbCrLf & vbCrLf & "メールを送信してもよろしいですか?"

    ’ ポップアップを表示
    If MsgBox(popMessage, vbExclamation + vbYesNo + vbDefaultButton2) <> vbYes Then
        Cancel = True
    End If

On Error GoTo 0
    Exit Sub

Exception:
    MsgBox CStr(Err.Number) & ":" & Err.Description, vbOKOnly + vbCritical
    Cancel = True
    Exit Sub

End Sub

3. 동작 확인

1. 새 메일을 만들고 발송 버튼을 눌러라.

2. 팝업 표시 여부 확인
확인용 팝업을 표시하면 됩니다.

이상, 설치 완료!