在 vbScript 中读取 .eml 文件时出现问题:虽然没有编译错误,但没有输出

在 vbScript 中读取 .eml 文件时出现问题:虽然没有编译错误,但没有输出

我正在编写以下 vbscript 程序来读取 .eml 文件并提取发件人的电子邮件 ID。虽然它成功运行且没有任何错误,但它没有显示带有电子邮件 ID 的消息框。请指导我如何解决这个问题。

此代码与 VBA 配合良好。

Sub reademl()

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fso, MyFile, FileName, emlid, strLine

Set fso = CreateObject("Scripting.FileSystemObject")

' Open the file for output.
FileName = "C:\Documents\VBScript\test-sample-message.eml"

Set MyFile = fso.OpenTextFile(FileName, ForReading, True, TristateTrue)


Do While MyFile.AtEndOfStream <> True
    strLine = MyFile.ReadLine
    If(InStr(strLine,"To:")<>0) Then
        emlid=Mid(strLine,InStr(strLine,":")+2,Len(strLine)-InStr(strLine,":")-1)
        Exit Do
     End If

Loop
MsgBox(emlid)

MyFile.Close

子目录结束

答案1

目前并不完全清楚这是否是一个更大工作片段,但您实际上并没有reademl()在示例中调用它,因此 Sub 中的代码是无法访问的。

假设您在使用 VBA 时确实调用了该子程序。

尝试reademl添加End Sub

相关内容