Прикрепление HTML-файла к электронной почте в VB 6.0 - PullRequest
Новая
       27

Прикрепление HTML-файла к электронной почте в VB 6.0

3 голосов
/ 20 января 2010

Я пытаюсь прикрепить файл 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

Ответы [ 2 ]

3 голосов
/ 08 апреля 2010

Вот почему вы всегда должны использовать OPTION EXPLICIT. Вы должны проверить EOF (handleFile) вместо EOF (hFile).

2 голосов
/ 20 января 2010

Ну, не удается открыть файл для чтения. Проверьте, правильно ли указан путь к файлу, он определенно существует, у вас есть права на его чтение, никакое другое приложение не открыло его и не заблокировало от чтения ...

...