創建 Outlook 對象時未定義用戶定義類型

Question

Dim oApp As Outlook.Application
Dim oMail As MailItem
Dim oMail As String
Dim strbody As String
Dim fdatum As String
Dim VorschauBereich As Range
Dim Tabnr As Integer
Dim Tabtext As String
Set oApp = CreateObject("Outlook.application")
Set oMail = oApp.CreateItem(oIMailItem)

我得到標題中命名的錯誤，光標跳轉到 Dim Dim oApp As Outlook.Application

Answer 1

要解決此問題，您可以通過在參考中添加 Mircrosoft 對象庫來使用早期綁定（從工具菜單中）。 或者，您可以通過將 Outlook 對象聲明更改為以下內容來使用后期綁定：

Dim oApp As Object
Dim oMail As Object

然后像這樣創建對象：

Set oApp = CreateObject("Outlook.application")
Set oMail = oApp.CreateItem(0)

根據您的excel WB是否被其他人使用，我更喜歡后期綁定以避免其他人機器上的引用出現任何問題。 后期綁定的缺點是您在編碼時無法獲得 inteli-text 幫助。 希望這可以幫助！

Answer 2

工具、參考資料、可用參考資料。

找到並檢查 Microsoft Outlook xx.x 對象庫。