Outlook Object Library가 버전 12와 14 사이를 전환하지 않습니다.

Question

네트워크 공유에 .dotm 템플릿 파일이 있습니다. Word, Office 및 Outlook 개체 라이브러리에 대한 참조가있는 매크로가 있습니다. 우리는 Microsoft Office 2007과 Office 2010과 함께 Windows XP와 Windows 7의 두 가지 플랫폼을 사용합니다. 사용자가 템플릿 파일을 열면 Word와 Office에 대한 참조가 자동으로 조정됩니다 (즉, Microsoft Word 12 Object 필요에 따라 라이브러리 또는 Microsoft Word 14 Object Library)를 실행하면 문제없이 매크로가 실행됩니다.

Microsoft Outlook Object Library는 버전 12에서 14로 적절하게 전환합니다. 버전 14에서 12로 올바르게 전환되지 않습니다.이 경우 libary가 발견되지 않는 오류가 발생합니다. 이거 버그 야? 해결 방법이 있습니까? 내가 간과하고있는 게 있니?

Answer 1

ForEachLoop는

귀하의 질문에 크게 응답 한 것으로 보인다. 나는 명확성을 위해 약간의 정보를 추가하고이 질문에 답을 제공하기 만 할 것입니다. Microsoft 포럼 (Ossiemac) 사용자는 Siddarth Rout에서 설명한대로 LateBinding was the way to go을 기록했습니다. Siddarth에 의해 암시 된 것처럼, 그것은 당신이 참조에 대해 걱정할 필요가 없다는 것을 의미합니다. -

~ JOL

Private Sub btnLateBindMethod_Click() 
    ' Variables used for LateBinding 
    Dim objOutlook As Object 'Outlook.Application 
    Dim objEmail As Object  'Outlook.MailItem  
    Dim objNameSpace As Object 'Outlook.NameSpace  
    Const OutLookMailItem As Long = 0 'For Late Binding 
    Const OutLookFolderInbox As Long = 6 'For Late Binding 
    Const OutLookFormatHTML As Long = 2 'For Late Binding 
    Dim strSubject As String 
    Dim strAddress As String 


On Error Resume Next 
Set objOutlook = GetObject(, "Outlook.Application") 
On Error GoTo 0  

    If objOutlook Is Nothing Then 
     Set objOutlook = CreateObject("Outlook.Application") 
     Set objNameSpace = objOutlook.GetNamespace("MAPI") 
     objNameSpace.GetDefaultFolder(OutLookFolderInbox).Display 
    End If 

Set objEmail = objOutlook.CreateItem(OutLookMailItem) 

strSubject = "Hello World" 

    With objEmail 

     '.To = strToAddress 'Commented to prevent accidental send 

     .Subject = strSubject 

     .BodyFormat = OutLookFormatHTML 

     .Display 

     'Full Name of window can change depending on Tools -> Options -> Mail Format 
     'Changing this option for outgoing mail changes the window name. 
     'However, AppActivate appears not to require entire name but needs up to end 
     'of - Message which is included in heading following the Subject string 
     'irrespective of the Mail Format option chosen. 
     AppActivate (strSubject & " - Message") 

    End With  
End Sub 

지미 페냐는 contrast of EarlyBinding and LateBinding 토론 글이 있습니다

Ossiemac는 내가 다시 포맷하고 여기에 놓여있다있는 이메일의 전송에 LateBinding를 사용하기위한 몇 가지 샘플 코드를 제공