[size=18px]
[提要]我也遇到了，郵箱收到附件tcmime.1258.1288.1754.bin問題。
網上搜索到很多解答，得沒有透徹的解決方案。
[正文]
我在撰寫“易直發EmailZiFa電子郵件專發客戶端v3.0版”時，測驗中
收到這個郵件附件的。
因為我致力于讓發郵件同存盤一樣容易，v3.0更是能一鍵發送硬碟。
顯然，是我發送軟體有缺陷bug，再發送，問題還在。
我不得不找來以前發送成功的軟體，直接當成發送子程式，問題冰釋。
對比研究得知，放入發送器的附件檔案是對的，問題出在它的上級。
比如定義Dim或設定Set。造成發送器的附件檔案實際失效，所發送的
附件實際是空的，并沒有真正發出原附件。
這很類似于，所給定的附件檔案的名稱或路徑有誤碼，找不到真正附件
而空發。
結果就是收到tcmime.1258.1288.1754.bin這樣的附件。
我的正常發送子程式如下，用VB的可試試：
Private Sub Command3_Click()
aa = Text1 '收信箱
bb = Text2 '標題
cc = Text3 '正文
dd = Text4 '附件
Dim Jmail As Object
Set Jmail = CreateObject("jmail.Message")
Jmail.Silent = True '一般不用改
Jmail.Charset = "gb2312" '設定郵件的編碼
Jmail.Silent = False
Jmail.Priority = 2 '設定郵件的重要性
Jmail.MailServerUserName = "[email protected]" '設定郵件的用戶名
Jmail.MailServerPassWord = "sclvdpuwybnmbche" '設定郵件的密碼
Jmail.FromName = bb '設定郵件顯示的發件人
Jmail.From = "[email protected]" '設定你的發件箱
Jmail.Subject = bb '設定你的郵件標題
Jmail.Body = cc '設定郵件正文
If dd = "" Then
Text5 = i
Else
Jmail.AddAttachment (dd) '設定附件App.Path +
End If
Jmail.AddRecipient aa '設定收件人信箱
Jmail.Send ("smtp.qq.com") '設定SMTP服務器地址
'----------------end信箱處理
Set Jmail = Nothing '釋放
Err_test2:
Debug.Print Err.Description
Text5 = "..已發完"
End Sub
[/size][/size][/size]
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/68762.html
標籤：網絡通信
上一篇：多個寬帶賬號撥號，想把設備組在一個局域網內，求大神指導。
下一篇：網格編碼到底是什么？