jmail下载邮件不能全部下载，保存附件名称不全

2021-02-21 05:53:06 596 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

模板驱动型文档自动化：让Word/PDF变成智能填空系统文档自动化是企业提升内容生产效率的关键技术，其核心在于将重复性文档生成从人工操作升级为规则可控的自动化流程。它基于结构化模板、数据源绑定与条件逻辑三大原理，实现动态章节增删、跨系统数据实时填充与像素级格式一致性。相比传统邮件合并或AI生成，模板驱动方案在合规性、稳定性与低门槛维护上具备显著优势，尤其适用于投标书、Offer Letter、SOW等强业务规则场景。本文深入解析Sqribble为代表的模板驱动架构，涵盖视觉层/逻辑层/数据层设计、API对接避坑、PDF渲染质量控制及Webhook业务闭环集成，助阅读详情

各位前辈好！
本人新学控件，想写一段代码用于下载邮箱里的附件，但是遇到几个问题。
1邮箱中有邮件一千多封，但是下载的邮件只有43封。
2从下载的邮件里下载附件，发现部分附件的文件名无法正常读取，只能读取前面一部分。
3实际上没有重名的附件由于附件文件名读取错误误判成重名文件。
4部分附件的文件拓展名丢失。
5收取大于1个附件的时候文件名错误

代码如下
Private Sub Form_load()
Dim jmail
Dim pop3 As New jmail.pop3
Dim mailMessage As New jmail.Message
Dim msg As New jmail.Messages
Dim atts As jmail.Attachments
Dim att As jmail.Attachment
Dim m, n As Integer
Set jmail = CreateObject("JMAIL.Message")
pop3.Connect "zhangxiaoxuan05@163.com", "password", "pop3.163.com"
pop3.DownloadMessages
'Response.Write ("You have " & pop3.Count & " mails in your mailbox!<br><br>")
Set att = New jmail.Attachment
If pop3.Count > 0 Then
For m = 1 To pop3.Count
Set atts = pop3.Messages.Item(m).Attachments
mailMessage.Charset = "GB2312"
mailMessage.Encoding = "Base64"
mailMessage.ISOEncodeHeaders = False
Dim strAttName As String
n = 0
strAttName = ""
For n = 0 To atts.Count - 1 '附件
If n <> 0 Then strAttName = strAttName & ","
Set att = atts(n)
strAttName = strAttName & att.Name
If Dir(App.Path & "\rar\" & strAttName) = "" Then '判断文件是否存在，如果存在就删除后保存
att.SaveToFile (App.Path & "\rar\" & strAttName)
Else
Kill App.Path & "\rar\" & strAttName
MsgBox "文件存在" & n
att.SaveToFile (App.Path & "\rar\" & strAttName)
End If
Next n
Next m
Else
MsgBox "没有邮件"
End If

End Sub

...全文