Thư viện đối tượng Outlook không chuyển đổi giữa các phiên bản 12 và 14

Question

Tôi có tệp mẫu .dotm trên mạng chia sẻ. Có các macro có tham chiếu đến các thư viện đối tượng Word, Office và Outlook. Chúng tôi sử dụng hai nền tảng khác nhau, Windows XP và Windows 7, cùng với Microsoft Office 2007 và Office 2010. Khi người dùng mở tệp mẫu tham chiếu cho Word và Office điều chỉnh tự động và phù hợp (nghĩa là, chúng được đặt thành Microsoft Word 12 Object Thư viện hoặc Microsoft Word 14 Thư viện đối tượng khi cần) và các macro chạy mà không có sự cố.

Thư viện đối tượng Microsoft Outlook chuyển đổi đúng từ phiên bản 12 thành 14. Thư viện này không chuyển đổi đúng từ phiên bản 14 xuống 12. Trong trường hợp đó, nó cung cấp lỗi mà không tìm thấy thư viện. Đây có phải là một lỗi? Có cách giải quyết nào không? Tôi đang xem cái gì?

Answer 1

ForEachLoop,

Có vẻ như câu hỏi của bạn phần lớn đã được trả lời. Tôi sẽ chỉ thêm một chút thông tin vì mục đích rõ ràng, và để cung cấp câu hỏi này với một câu trả lời. Một người dùng trên Diễn đàn Microsoft, Ossiemac, lưu ý rằng LateBinding was the way to go, như đã được tuyên bố bởi Siddarth Rout. Như ngụ ý của Siddarth, điều đó có nghĩa là bạn không phải lo lắng về tài liệu tham khảo.

Ossiemac cung cấp một số mẫu mã để sử dụng LateBinding trong việc gửi một email, mà tôi đã định dạng lại và đặt ở đây:

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 

Jimmy Pena có một bài báo thảo luận về contrast of EarlyBinding and LateBinding -

~ Jol