VBA를 사용하여 전자 메일 보내기 '런타임 오류 438'

Question

VBA 코드를 사용하여 전자 메일을 보내려고합니다. 기능이 작동하고 전자 메일이 보내지지만 문제는 '런타임 오류 438 개체 이 속성 또는 메서드를 지원하지 않습니다 '여기

을 표시하는 코드입니다 :

Public Function SendEmail(ItemName As String, Total_Qnty As Integer) 

Set iMsg = CreateObject("CDO.Message") 

Set iConf = CreateObject("CDO.Configuration") 

Set Flds = iConf.Fields 

' send one copy with Google SMTP server (with autentication) 

schema = "http://schemas.microsoft.com/cdo/configuration/" 

Flds.Item(schema & "sendusing") = 2 

Flds.Item(schema & "smtpserver") = "smtp.gmail.com" 

Flds.Item(schema & "smtpserverport") = 465 

Flds.Item(schema & "smtpauthenticate") = 1 

Flds.Item(schema & "sendusername") = "example@gmail.com" 

Flds.Item(schema & "sendpassword") = "*****" 

Flds.Item(schema & "smtpusessl") = 1 

Flds.Update 


With iMsg 

    .To = "example@hotmail.com" 

    .From = "example@gmail.com" 

    .Subject = "Mail from gmail" 

    .HTMLBody = "The Stock Safty Level of Item: " & ItemName & " is DOWN, The total  quantity you have is: " & Total_Qnty & "!!" 

    Set .Configuration = iConf 

    .Send 

End With 


Set iMsg = Nothing 

Set iConf = Nothing 

Set Flds = Nothing 


End Function 

반가워요 어떤 아이디어가 .. 구성 요소 사이에 당신에게

Answer 1

대부분의 아마 그것의 바이너리 호환성 문제를 감사드립니다.

Microsoft는 "런타임 오류 438 - 개체가이 속성 또는 메서드를 지원하지 않음 : 오류 438의 가장 일반적인 원인은 구성 요소의 연속 버전간에 이진 호환성을 유지하지 못하는 것입니다. 각 COM 인터페이스에는 연결된 GUID 각 인터페이스에는 클래스 ID (CLSID)라는 연결된 GUID가 있으며 Visual Basic에서 ActiveX 구성 요소를 컴파일하면 CLSID 및 IID가 구성 요소의 형식 라이브러리로 컴파일됩니다. "

이 링크에서는 비슷한 문제를 해결하는 방법을 설명합니다.

Set iMsg = Nothing 

Set iConf = Nothing 

Set Flds = Nothing 

Flds 현재, 이미 처분 한 iConf의 회원입니다 : http://www.vbforums.com/showthread.php?460591-RESOLVED-Runtime-error-438-Object-doesn-t-support-this-property-or-method

Answer 2

다음의 순서를 반대로

.