將MailItem傳遞到函數

Question

我正在搜索如何通過函數傳遞MailItem。

例如：我想調用一個提取MailItem的Subject的函數。

Function testpassing(myMail As Outlook.MailItem) As Actions 
    MsgBox (myMail.Subject) 
End Function 

Sub passing() 
    Dim myItem As Outlook.MailItem 
    Set myItem = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items(1) 

    MsgBox (myItem.Subject) '<~ Work correctly 
    testpassing (Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items(1)) '<~ Run-time error 438 Object doesn't support this property or method 
    testpassing (myItem)  '<~ Run-time error 438 Object doesn't support this property or method 
End Sub 

新的VBA展望。請幫忙。謝謝:)

Answer 1

叫它testpassing myItem而testpassing Application.GetNamespace("MAPI").GetDefaultFolder(olFolderIn‌​box).Items(1)

也考慮ByRef and ByVal

您可以通過引用或按值傳遞參數給一個過程（函數或子）。

一如既往快樂編碼:-)

Answer 2

該文件夾可能包含不同的項目類型。我建議首先檢查的項目類型（或信息類）：

If Item(1).Class = OlObjectClass.olMail Then 
    ' 
End If 

更多信息請參見How to: Programmatically Determine the Current Outlook Item。