Private Enum SMTP_State
MAIL_CONNECT
MAIL_HELO
MAIL_FROM
MAIL_RCPTTO
MAIL_DATA
MAIL_DOT
MAIL_QUIT
End Enum
Private m_State As SMTP_State
Private m_strEncodedFiles As String
Public Function UUEncodeFile(strFilePath As String) As String
Dim intFile As Integer
Dim intTempFile As Integer
Dim lFileSize As Long
Dim strFileName As String
Dim strFileData As String
Dim lEncodedLines As Long
Dim strTempLine As String
Dim i As Long
Dim j As Integer
Dim strResult As String
strFileName = Mid$(strFilePath, InStrRev(strFilePath, "\") + 1)
strResult = "begin 664 " + strFileName + vbLf
lFileSize = FileLen(strFilePath)
lEncodedLines = lFileSize \ 45 + 1
strFileData = Space(45)
intFile = FreeFile
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余4页未读,立即下载