Class CreateObject没有'；课堂作业模块（Visual Basic 6）

在VB6项目中，此代码用于使用Microsoft Office Outlook 15.0对象库通过Outlook 2013发送电子邮件：

Private Sub Command1_Click()
Dim objOutlook As Outlook.Application
Set objOutlook = CreateObject("Outlook.Application")
Dim mail As Outlook.MailItem
Set mail = objOutlook.CreateItem(olMailItem)
mail.To = txt_Recipient
mail.Subject = txt_Subject
mail.body = txt_Inhalt.Text
mail.Send

现在，当我尝试将相同的代码传输到类模块中时，它不断抛出错误429，无法在第三行中创建对象。你知道为什么它在类模块中不起作用，而在命令单击事件中直接编码时却起作用吗

类中的代码：

Public objOutlook As outlook.Application
Public Sub MailSenden(ByVal empfaenger As String, ByVal betreff As String, ByVal inhalt As String)
Set objOutlook = CreateObject("Outlook.Application")

Dim mail As outlook.MailItem
Set mail = objOutlook.CreateItem(olMailItem)

mail.To = empfaenger
mail.Subject = betreff
mail.body = inhalt
mail.Send

End Sub

谢谢你能给我的任何帮助！

---

Colin

我很好奇，既然手头有Outlook 15.0类型库（并在项目中引用），为什么还要使用后期绑定。您是否尝试过：

Set objOutlook = New Outlook.Application