none
CDO MAIL 보내기 시 본문 Warning 안보이게 하는법 RRS feed

  • 질문

  • 안녕하세요.

    제목처럼 엑셀에서 CDO MASSAGE 를 활용하여 메일을 보내는데요...

    서버는 아웃룩 서버입니다.

    메일은 정상적으로 발송되는데 문제는 첨부파일입니다.

    첨부파일의 형식이 xlsm 형식으로 첨부되면 ....

    본문에

    ***********************

    Warning: Your file, TestTest.xlsm/NONAMEFL, appears to be a compressed file but is corrupt. It was not scanned by InterScan.

    ***********-***********

    이러한 경고 메세지가 함께 발송됩니다.

    아웃룩으로 받아보고 네이트메일로 받아봐도 동일하게 경고 문구가 쓰여지는걸로 보아

    발신자 쪽에서 어떤 설정을 해죠야 할 것 같은데...

    또한 xlsm 파일이라도 약 70키로바이트 이상의 용량에서만 이런 문구가 뜹니다... 어떤경우는 xml 어저꾸 하는 문구가 뜰대도 있습니다.

    제 질문의 요지는

    CDO 와 아웃룩 서버로 메일을 발송할때 본문에 경고문구를 나타나지 않게 하는 방법입니다.

    아래는 Test 로 사용했던 코드입니다.

    Sub cdoMail()

        Dim cdoMsg As New CDO.Message
        Dim cdoConfig As New CDO.Configuration
        Dim iLoop As Integer
        Dim iBP   As CDO.IBodyPart

        With cdoConfig
            .Fields.Item(cdoSendUsingMethod) = cdoSendUsingPort
            .Fields.Item(cdoSMTPServer) = "****************"
            .Fields.Item(cdoSMTPConnectionTimeout) = 10
            .Fields.Item(cdoSMTPAuthenticate) = cdoBasic
            .Fields.Item(cdoSendUserName) = "****************"
            .Fields.Item(cdoSendPassword) = "*******"
            .Fields.Update
        End With

        With cdoMsg
            Set .Configuration = cdoConfig
            .Subject = "Test"
            .From = "***************"
            .To = "********************"
            .CC = ""
            .BCC = ""
            .BodyPart.Charset = "ks_c_5601-1987"
            .AddAttachment ("C:\Users\kim.jongseong\Desktop\TestTest.xlsm")
            .Send
        End With
    End Sub

    2014년 2월 11일 화요일 오전 2:22

답변

  • 아래와 같이 언급되어있습니다. 제 생각에는  Micro Interscan 바이러스 방화벽 오프해보시기 바랍니다.

    All messages that include a specific header such as X-Spam-Flag or X-TM-AS-Result, provided by Trend Micro ScanMail for Exchange or Trend Micro InterScan Messaging Security Suite, are tagged as spam messages. This is
    useful if you create a new storage space and direct all spam messages to it.

    제시해 드린 답변이 도움이 되었기를 바랍니다.
     
    답변이 문제 해결에 도움이 되었다면 답변으로 채택을 부탁드립니다.
    하지만 문제 해결이 되지 않아서 정확한 답변을 원하는 경우에는 문제의 정보를 더 자세하게 답변으로 제공해주시기 바랍니다.

    2014년 2월 11일 화요일 오전 9:15
    중재자