创建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对象库。