我正在编写以下 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