비즈니스 환경에서 Windows용 클래식 Outlook 사용
안녕하세요? 진석이 님,
Office 365 사용 중 Outlook 메일 회신 시 자동으로 숨은 참조에 포함시키는 방법에 대해 문의하셨습니다.
해당 부분에 대해 보고해주셔서 감사합니다.
진행 방법 : VBscript 를 통해 Macro를 사용하여 프로젝트 형식으로 실행 매크로 삽입 방법
- Visual Basic Editor(Alt+F11)를 실행
- Visual Basic Editor 창이 생성되면 <삽입>-<모듈>을 선택
- 프로젝트 창에 모듈이 삽입되면 아래와 같은 코딩을 복사하여 넣어 주면 됩니다.
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
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 4. Visual Basic Editor 창을 닫습니다. 5. Outlook 창에서 <매크로>-<매크로 실행>에서 매크로를 실행하면 <숨은 참조>에 코딩에서 지정해 준 "메일주소" 가 추가되어 새 메세지 창이 열립니다. 6. <파일>-<옵션>의 리본 사용자 지정 탭에서 <개발 도구>를 체크하시면, [개발 도구]-[매크로]를 선택하실 수 있을 것입니다. 해당 매크로를 "빠른 실행 도구"나 리본 메뉴로 만들어 주시면 사용할 수 있습니다.
- **참고 :**매크로 실행시 보안 오류 메시지가 발생 될 경우 아래의 옵션을 변경 하여 주시기 바랍니다.
- <파일>-<옵션>-<보안 센터>-<보안센터 설정>-<매크로 설정>을 클릭합니다.
- <매크로 보안>을 <모든 매크로 실행>으로 변경합니다.
제시해드린 답변이 도움이 되었길 바라며, 번거로우시더라도 위 안내대로 진행해보신 후에도 동일한 현상이 지속되면 증상을 확인하여 알려주시기 바랍니다.
조속히 문제가 해결되어 편안한 PC 환경에서 작업하시길 기원합니다.
감사합니다.