使用exoplayer读取字幕文件时出错

Question

我正在使用vtt文件dor字幕，但出现此错误：

Sub test()
    Dim File As Variant
    Dim count As Integer
    Set mailobj = CreateObject("Outlook.Application")
    count = 0
    File = Dir(ActiveWorkbook.path & "\Daily\INDIA\ready\")
    While (File <> "")
      If InStr(File, "msg") > 0 Then
        Set xOutMail = mailobj.CreateItemFromTemplate(ActiveWorkbook.path & "\Daily\INDIA\ready\" & File)
        xOutMail.Display
      End If
      File = Dir
    Wend
    Debug.Print count
End Sub

您能帮忙找到原因和解决方案吗？