Problema ao ler o arquivo .eml no vbScript: Embora não haja erro de compilação, não há saída

Question

Estou escrevendo o seguinte programa vbscript para ler um arquivo .eml e extrair o ID de email do remetente. Embora seja executado com sucesso sem nenhum erro, ele não mostra a caixa de mensagens com o ID de e-mail. Por favor me guie como resolver esse problema.

Este Código funciona bem com o 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

End Sub

    

Answer 1

Não é totalmente claro se este é um trecho de um pedaço maior de trabalho, mas você realmente não chamar reademl() no seu exemplo, então o código, que está em uma Sub, está inacessível.

Provavelmente você chama o sub ao usar o VBA.

Tente adicionar reademl após End Sub