运行时错误：438使用macros

我正在使用代码将Outlook电子邮件详细信息提取到使用VBA的Excel中。

运行macros时会抛出一个错误：

运行时错误：438 – 对象不支持此属性或方法

下面是在点击debugging时抛出错误的行。

wks.Cells(oRow, 1) = Folder.Items.Item(iRow).SenderName 

Answer 1

首先，不要使用多点表示法，特别是在循环中。 在进入循环之前cachingItems集合。 其次，你可能有一个MailItem以外的项目，例如ReportItem或MeetingItem对象 – 首先检查Class属性。 对于MailItem对象，它将是olMail（= 46）：

 set items = Folder.Items ... for iRow = 1 to item.Count set item = items.Item(iRow) if item.Class = 46 Then 'olMail wks.Cells(oRow, 1) = item.SenderName End If neext