none
Excel VBA 활용 CDO 메일 보내기 ... 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일 화요일 오전 12:38