如何在Outlook中調用帶有字符串vba的方法

Question

我創建了一個二維字符串數組。我設置了一個for循環來從用戶接收一個字符串並搜索數組的第一列。我想使用數組第二列中的相應字符串來調用一個方法。但是，我無法弄清楚如何使用字符串來調用Outlook VBA中的子類或類的方法。有什麼建議麼？

Answer 1

您可以在運行時使用名稱函數使用對象方法的名稱來調用函數。下面的簡單示例創建一個類和一個數組的對象，然後調用該數組的第二個元素中指定的方法。

在類模塊：

Sub Procedure1() 

MsgBox "I'm procedure1" 

End Sub 


Sub Procedure2() 

MsgBox "I'm Procedure2" 

End Sub 


Sub Procedure3(ByVal sName As String) 

MsgBox "Procedure 3 here " & sName 

End Sub 

在標準模塊：

Sub Main() 

Dim myArray(1 To 2, 1 To 3) As String 
Dim oClass1 As Class1 

Set oClass1 = New Class1 
'oClass1.Procedure1 

myArray(1, 1) = "Procedure1" 
myArray(1, 2) = "Procedure2" 
myArray(1, 3) = "Procedure3" 

Call CallByName(oClass1, myArray(1, 1), VbMethod) 
Call CallByName(oClass1, myArray(1, 2), VbMethod) 
Call CallByName(oClass1, myArray(1, 3), VbMethod, "Graham") 
Call CallByName(oClass1, myArray(1, 3), VbMethod, "user3299464") 

End Sub