主页 / coding / 问题 / 78997668
Accepted
Forward Ed
Asked: 2024-09-18 18:15:35 +0800 CST

尝试后期绑定 Outlook，但在创建对象行后出现类型不匹配错误

  • 772

我正在尝试延迟绑定打开 Outlook 消息以报告问题或电子表格建议的过程。我正在尝试预先填写收件人：和抄送：收件人、主题行以及邮件正文的前几行。我不想发送邮件，因为我需要用户用他们的想法填充邮件正文。

我找到了一些最初使用早期绑定设置的代码。然后我继续对其进行修改，希望能够满足我的需求。然后我对其进行了修改，试图使其与后期绑定配合使用。

当我逐步执行代码时，我Run-time error '13': Type mismatch在第二行创建对象时得到了一个，我假设它实际上是在尝试创建消息。我尝试将 olMailItem 更改为 0。这导致 activeX 错误： Run-time error '429': ActiveX component can't create object。

我已经Option Explicit設定了。

Private Sub ReportBug_Click()

Dim objOutlook As Object
Dim objOutlookMsg As Object
Dim objOutlookRecip As Object
Dim olMailItem As Object
Dim Recipients As Object

    Set objOutlook = CreateObject("Outlook.Application")
    Set objOutlookMsg = objOutlook.CreateObject(olMailItem)
    
    With objOutlookMsg
        Set Recipients = objOutlookMsg.Recipients
        'Set TO: recipient
        Set objOutlookRecip = .Recipients.Add("[email protected]")
        objOutlookRecip.Type = 1 '1 for to
        'Set CC: recipient
        Set objOutlookRecip = .Recipients.Add("[email protected]")
        objOutlookRecip.Type = 2 '2 for cc
    
        'Set Subject Line
        .Subject = "Forecasting Sheet Bug / Recommendation from " & Me.Cells(4, 2).Value
        'start message body
        .HTMLBody = "To whom it may concern," & vbCrLf & vbCrLf & "With respect to the forecasting sheet I noted the following:" & vbCrLf
        
        'Resolve each Recipient's name.
        For Each objOutlookRecip In .Recipients
          objOutlookRecip.Resolve
        Next
        
        'objOutlookMsg.Send
        .Display
        
    End With
        
    Set objOutlook = Nothing
End Sub

我之前研究过的一些问题如下：

这是我学会用数值替换 olTO 和 olCC 的地方。我找不到 olMailItem 列出的数值。

这个看起来更oMail.CC = "email address here"简单

这是我获取的初始启动代码

我发誓还有一个我再也找不到其链接了。

问题

我该如何修复我的错误S并消除错误？

excel

1 个回答

  1. Best Answer

    改变这个：

    Set objOutlookMsg = objOutlook.CreateObject(olMailItem)

    更改为：

    Set objOutlookMsg = objOutlook.CreateItem(0)
    • 3

相关问题