从Outlook VBA Sub中调用带set-type的Excel VBA函数

可以通过以下步骤实现：

首先，在Outlook VBA中创建一个Sub，用于调用Excel VBA函数。例如：

Sub CallExcelFunction()
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlModule As Object
    Dim result As Variant
    
    ' 创建Excel应用程序对象
    Set xlApp = CreateObject("Excel.Application")
    
    ' 打开Excel工作簿
    Set xlWorkbook = xlApp.Workbooks.Open("C:\Path\To\Your\Excel\File.xlsx")
    
    ' 获取Excel VBA模块
    Set xlModule = xlWorkbook.VBProject.VBComponents("Module1")
    
    ' 调用Excel VBA函数
    result = xlModule.Run("YourExcelFunction")
    
    ' 关闭Excel工作簿
    xlWorkbook.Close SaveChanges:=False
    
    ' 退出Excel应用程序
    xlApp.Quit
    
    ' 释放对象
    Set xlModule = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
    
    ' 处理Excel VBA函数的返回值
    MsgBox result
End Sub

在Excel中创建一个VBA模块，并在该模块中定义一个带有set-type的函数。例如：

Function YourExcelFunction() As Variant
    Dim result As String
    
    ' 执行一些操作，获取结果
    result = "Hello, World!"
    
    ' 将结果赋值给函数名
    Set YourExcelFunction = result
End Function

在上述代码中，我们首先创建了一个Outlook VBA Sub，然后使用CreateObject函数创建了一个Excel应用程序对象。接着，我们打开了指定的Excel工作簿，并获取了Excel VBA模块。然后，通过调用xlModule.Run方法，我们调用了Excel VBA函数。最后，我们关闭了Excel工作簿，退出了Excel应用程序，并处理了Excel VBA函数的返回值。