none
엑셀 VBA를 사용한 CDO 메일 발송시 DRM걸린 첨부파일이 DRM이 해제되는 현상. RRS feed

  • 질문

  • 안녕하세요.

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

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

    그런데 이상한건...

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

    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 = "보내는사람주소"
            .To = "받는사람주소
            .CC = ""
            .BCC = ""
            .HTMLBody = strHtml
            .HTMLBodyPart.Charset = "ks_c_5601-1987"
            .AddAttachment 파일경로파일명
            .Send
        End With
    End Sub

    2015년 10월 28일 수요일 오전 2:01

답변

  • 해당 DRM 솔루션 업체에 문의를 하시는것이 먼저 일것 같습니다.

    업체에서 인지하고 있는지와 해당 DRM 의 버그인지, 해당 업체에서 솔루션이 있는지 문의해보십시오.


    Hong-ju

    2015년 10월 29일 목요일 오전 6:15