CDO邮件中使用.ReadReceiptRequested出现编译错误：找不到方法或数据成员

报错原因 #

你代码里的Message对象并不包含ReadReceiptRequested这个属性或方法，因此编译器提示“找不到方法或数据成员”。要实现已读回执功能，需通过CDO配置项来设置，而非调用这个不存在的对象成员。

修改后的可运行代码 #

Dim Mail As New Message
Dim Config As Configuration: Set Config = Mail.Configuration
Config(cdoSendUsingMethod) = cdoSendUsingPort
' 配置已读回执接收邮箱
Config(cdoDispositionNotificationTo) = """test"" <test@myemail.com>"

With Mail
    .To = str
    .from = """test"" <test@myemail.com>"
    .Subject = str_subject
    .CreateMHTMLBody email_filename
    .Send
End With

关键说明 #

• cdoDispositionNotificationTo是CDO库的配置常量，用于指定已读回执的接收邮箱，可设置为发件人邮箱或其他指定地址。
• 确保项目已正确引用CDO库（通常为Microsoft CDO for Windows 2000 Library），否则配置常量可能会出现未定义报错。

内容的提问来源于stack exchange，提问作者szipet