发送邮件和邮件附件，当附件大于40k后程序告诉我"溢出"
编号：QA004118
建立日期: 2001年4月17日 最后修改日期：2001年4月17日
所属类别：
wubei168:
我有一个程序可以发送邮件和邮件附件。
但是当我发送附件大于40k后程序告诉我"溢出"
Public Sub Base64EncodeFile(strFile As String, rtfTemp As RichTextBox, txtOutput As TextBox)
Dim intCount As Integer
Dim strTemp As String
Dim lngMax As Long
lngMax = 0
txtOutput.Text = ""
rtfTemp.LoadFile strFile
For intCount = 1 To Len(rtfTemp.Text) Step 3 "就是在这一行"
strTemp = Mid(rtfTemp.Text, intCount, 3)
txtOutput.Text = txtOutput.Text & Base64Encode(strTemp)
lngMax = lngMax + 4
If lngMax = 72 Then
lngMax = 0
txtOutput.Text = txtOutput.Text & vbCrLf
End If
DoEvents
Next intCount
请问该怎么办? 谢谢
回答:
你的问题在于intCount的类型，如果使用Integer，它的范围是-32,768到32,767，所以当你的程序大于40K时，其长度超过了这个范围。所以需要做两个修改，一个是把intCount该为Long，另一个是不要使用TextBox，因为这个控件无法处理超过40K的字符串，使用RichTextBox就可以了。
此问题由李海回答。
| |
|
|
| |
|
|
