반응형
Outlook으로 메일 송신 확인 팝업을 표시하고 싶다
메일 소프트 Outlook을 사용하면서 오송신을 방지하기 위해 수신인 확인 팝업창을 띄우고 싶다고 생각한 적은 없습니까?Outlook에서는 애드 온을 도입할 수 없지만, 매크로를 짜서 메일의 송신 확인, 행선지 확인 팝업을 표시시킬 수 있게 됩니다.
이 기사에서는 Outlook에서 메일 전송 확인 팝업을 띄우는 방법을 소개해 드리도록 하겠습니다.
Outlook에서 메일 발송 확인 팝업 띄우는 방법
그러면 Outlook에서 메일 전송 확인 팝업을 띄우는 방법을 설명하겠습니다.우선은 리본 메뉴 상에서 우클릭하고, 우클릭 메뉴의 「리본 사용자 설정」을 클릭합시다.
리본을 커스터마이즈합니다. 화면이 표시되므로 우측의 리본 사용자 설정 목록에서 개발 체크박스를 켜고 OK를 클릭합니다.
Outlook 창으로 돌아가면 탭 목록에 개발이 추가되어 있습니다.개발을 클릭하고 리본 메뉴의 ′Visual Basic′을 클릭하세요.
′Microsoft Visual Basic for Applications′ 창이 뜨므로 왼쪽 상단 페인 폴더를 띄우고 ′This Outlook Session′을 더블 클릭합니다.편집을 할 수 있게 되므로 아래의 소스 코드를 붙여 덮어쓰기 저장합니다.
Private Sub Application _ ItemSend ( ByVal Item As Object , Cancel As Boolean )
On Error GoTo Exception
Dim strAddress As String
strAddress = vbCrLf
Dim objRecipient As Recipient
For Each objRecipient In Item . Recipients
strAddress = strAddress & objRecipient . Name & ′ ′ & objRecipient . Address & vbCrLf
Next
Dim strMessage As String
str Message=′ 제목 :′ & Item. Subject & vb CrLf & str Address & vb CrLf & ′상기 수신인으로 메일을 보내도 되겠습니까?′
If MsgBox ( strMessage , vbExclamation + vbYesNo + vbDefaultButton 2 ) < > 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
이것으로, 메일의 송신시에 「상기의 행선지에, 메일을 송신해도 괜찮겠습니까?」 창이 표시되게 됩니다.′네′를 클릭하면 메일을 보낼 수 있어요.
메일 소프트 Outlook을 사용하면서 오송신을 방지하기 위해 수신인 확인 팝업창을 띄우고 싶다고 생각한 적은 없습니까?Outlook에서는 애드 온을 도입할 수 없지만, 매크로를 짜서 메일의 송신 확인, 행선지 확인 팝업을 표시시킬 수 있게 됩니다.
이 기사에서는 Outlook에서 메일 전송 확인 팝업을 띄우는 방법을 소개해 드리도록 하겠습니다.
Outlook에서 메일 발송 확인 팝업 띄우는 방법
그러면 Outlook에서 메일 전송 확인 팝업을 띄우는 방법을 설명하겠습니다.우선은 리본 메뉴 상에서 우클릭하고, 우클릭 메뉴의 「리본 사용자 설정」을 클릭합시다.
리본을 커스터마이즈합니다. 화면이 표시되므로 우측의 리본 사용자 설정 목록에서 개발 체크박스를 켜고 OK를 클릭합니다.
Outlook 창으로 돌아가면 탭 목록에 개발이 추가되어 있습니다.개발을 클릭하고 리본 메뉴의 ′Visual Basic′을 클릭하세요.
′Microsoft Visual Basic for Applications′ 창이 뜨므로 왼쪽 상단 페인 폴더를 띄우고 ′This Outlook Session′을 더블 클릭합니다.편집을 할 수 있게 되므로 아래의 소스 코드를 붙여 덮어쓰기 저장합니다.
Private Sub Application _ ItemSend ( ByVal Item As Object , Cancel As Boolean )
On Error GoTo Exception
Dim strAddress As String
strAddress = vbCrLf
Dim objRecipient As Recipient
For Each objRecipient In Item . Recipients
strAddress = strAddress & objRecipient . Name & ′ ′ & objRecipient . Address & vbCrLf
Next
Dim strMessage As String
str Message=′ 제목 :′ & Item. Subject & vb CrLf & str Address & vb CrLf & ′상기 수신인으로 메일을 보내도 되겠습니까?′
If MsgBox ( strMessage , vbExclamation + vbYesNo + vbDefaultButton 2 ) < > 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
이것으로, 메일의 송신시에 「상기의 행선지에, 메일을 송신해도 괜찮겠습니까?」 창이 표시되게 됩니다.′네′를 클릭하면 메일을 보낼 수 있어요.
반응형