-1

就像主题行所说的那样，我在以下代码中收到了这个愚蠢的错误消息“找不到方法或数据成员”。我不确定我需要做什么来修复它。这可能是愚蠢的事情吧？在我创建变量的地方，您会注意到一个名为 tempMailItem。它是 Outlook.MailItem 类型。当我单击点运算符时，MailItem 是成员之一。但是，当我在进行强制转换的 Outlook 对象上键入点运算符时，突然 MailItem 不是该对象的成员之一。我不明白！这是怎么回事？

艾伦

Sub MoveHarpStatMail()

Dim olapp As Outlook.Application
Dim olappns As Outlook.NameSpace
Dim oitem As Object
Dim ItemsToProcess As Outlook.Items
Dim myFolder As MAPIFolder
Dim sFilter As String
Dim tempMailItem As Outlook.MailItem

On Error GoTo LocalErr

'set outlook objects
Set olapp = New Outlook.Application
Set olappns = olapp.GetNamespace("MAPI")
Set myFolder = olappns.GetDefaultFolder(olFolderInbox)
'Filter or only MailItems received today
sFilter = "[ReceivedTime] >= " & AddQuotes(Format(Date, "ddddd"))
Set ItemsToProcess = Session.GetDefaultFolder(olFolderInbox).Items.Restrict(sFilter)

For Each oitem In ItemsToProcess
 If TypeName(oitem) = "MailItem" Then
   Set tempMailItem = DirectCast(oitem, Outlook.MailItem) '<<<< Problem is here with Outlook object
   If CheckSubject(tempMailItem.Subject) Then
     MoveToArchiveFolder (tempMailItem)
  End If
 End If
Next oitem

ExitProc:
Set olapp = Nothing
Set olappns = Nothing
Set myFolder = Nothing
Set ItemsToProcess = Nothing

Exit Sub
4

1 回答 1

2

VBA中没有Directcast。利用：

Set tempMailItem = oitem
于 2012-12-05T23:38:40.833 回答