CDO 를 활용하여 메일 보낼때 첨부파일 문제...

Question

안녕하세요.

제목처럼 엑셀에서 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

Answer 1

안녕하십니까? 종성김LG 님

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

문의 하신 Excel에서 CDO를 이용하여 메일 발송시에 대해 안내를 드리겠습니다.

말씀해 주신 문제의 경우 프로그래밍(기술) 자문이 필요한 부분입니다.

프로그래밍에 대해서는 안타깝지만, 해당 포럼에서는 도움을 드리기 어렵습니다. MSDN 개발자 포럼에 문의하여 도움을 받아 보시기 바랍니다.

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

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

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

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

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

감사합니다.