엑셀 VBA로 CDO 방식 메일링시 첨부 한 문서보안(DRM)이 걸린 엑셀 파일이 보안이 풀리는 현상

Question

안녕하세요.

CDO 방식을 사용하여 문서보안이 걸린 파일을 첨부하여 발송하면

문서보안이 풀린채로 발송이 됩니다.

수작업으로 아웃룩을 사용하여 발송하면 첨부파일의 문서보안은 정상으로 걸려있습니다.

CDO 방식으로 첨부하여 보낼때만 문서보안이 풀리는 현상이 나타납니다.

CDO 방식으로 메일발송시 첨부파일의 문서보안이 유지될 수 있는 방법 부탁드립니다.

간단하게 테스트한 코딩은 아래와 같습니다.

Sub cdoMail()

    Dim cdoMsg      As New CDO.Message

    Dim cdoConfig   As New CDO.Configuration

    Dim iBP         As CDO.IBodyPart

    Dim iLoop       As Integer

    Dim strHtml     As String

    ''' COD 메일링 환경설정 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    With cdoConfig

        .Fields.Item(cdoSendUsingMethod) = cdoSendUsingPort

        .Fields.Item(cdoSMTPConnectionTimeout) = 10

        .Fields.Item(cdoSMTPAuthenticate) = cdoBasic

        .Fields.Item(cdoSMTPServer) = "?????"

        .Fields.Item(cdoSendUserName) = "?????"

        .Fields.Item(cdoSendPassword) = "?????"

        .Fields.Update

    End With

    ''' 메일보내기 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    With cdoMsg

        Set .Configuration = cdoConfig

        .Subject = "CDO Test"

        .From = "******@eland.co.kr"

        .To = "******@eland.co.kr;"

        .CC = ""

        .BCC = ""

        .HTMLBody = strHtml

        .HTMLBodyPart.Charset = "ks_c_5601-1987"

        .AddAttachment 파일경로

        .Send

    End With

End Sub

Answer 1

안녕하십니까? [종성김] 님

Microsoft Community 사이트를 방문해 주셔서 감사합니다.

문의 하신 Excel에서 VBA 매크로로 CDO 메일 첨부시 보안 DRM이 해제되는 문제에 대해 안내를 드리겠습니다.

말씀해 주신 내용처럼 Office 프로그램에서 첨부한 파일이 아니라 별도의 VBA 매크로를 이용하여 사용하는 것이라면, 해당 포럼이 아니라 MSDN 개발자 포럼에 문의하여 도움을 받아 보셔야 합니다.

-> DRM 프로그램의 설계가 Office 프로그램 실행시 작동되도록 만들어 졌다면, 해당 내용은 DRM 제조사에서 확인/패치해 줘야 할 수 있습니다.

http://msdn.microsoft.com/ko-kr/office/

http://social.msdn.microsoft.com/Forums/vstudio/ko-KR/home?forum=visualbasicko

추가적인 내용이 있다면 하단의 [응답] 버튼을 눌러 회신해주시기 바랍니다.

제시해 드린 답변이 도움이 되었기를 바랍니다.

응답이 문제 해결에 도움이 되었다면, 아래에 있는 답변으로 [표시] 버튼을 눌러 주시기 바랍니다. 이는 유사한 증상을 겪는 다른 사용자들에게 도움이 될 수 있습니다.

감사합니다.