在VB 6.0中将HTML文件附加为电子邮件

Question

我正在尝试将html文件文件附加到使用Visual Basic 6.0的电子邮件。当光标出现时打开strFile对于二进制访问读为#hFile行给出错误“错误编码文件 - 错误的文件名或编号”。请高度赞赏您的所有帮助和支持。

Dim handleFile    As Integer 
Dim strValue    As String 
Dim lEventCtr   As Long 
handleFile = FreeFile 
Open strFile For Binary Access Read As #handleFile 
Do While Not EOF(hFile) 
    ' read & Base 64 encode a line of characters 
    strValue = Input(57, #handleFile) 
    SendCommand EncodeBase64String(strValue) & vbCrLf 

    ' DoEvents (occasionally) 
    lEventCtr = lEventCtr + 1 
    If lEventCtr Mod 50 = 0 Then DoEvents 
Loop 
Close #handleFile 
Exit Sub 
File_Error: 
Close #handleFile 
m_ErrorDesc = "Error encoding file - " & Err.Description 
Err.Raise Err.Number, Err.Source, m_ErrorDesc 
End Sub 

Answer 1

那么，它无法打开文件进行阅读。检查你的文件路径是否正确，它是否存在，你有权限读取它，没有其他应用程序已经打开并锁定读取...

Answer 2

这就是为什么你应该总是使用OPTION EXPLICIT。您应该检查EOF（handleFile）而不是EOF（hFile）。