根据发件人不同将附件保存在不同的文件夹内

ishfb · 发表于 2014-8-11 14:46

Select Case MailItem.SenderName
Case Is = "生 [1111111@qq.com]"
Attachment.SaveAsFile "D:\我的文档\aa" & Attachment.FileName & Time
end select
麻烦修改下，能执行不报错，但附件没有下载

ishfb · 发表于 2014-8-11 14:51

如果是下载后的附件，以指定文件名加时间来命名，怎么写

闻启学 · 发表于 2014-8-11 19:56

Attachment.SaveAsFile "D:\我的文档\aa" & Attachment.FileName & Time

检查一下保存路径

ishfb · 发表于 2014-8-12 08:38

Attachment.SaveAsFile "D:\我的文档\aa\" & Attachment.FileName & now()
改成这样还是不行

闻启学 · 发表于 2014-8-18 15:17

ishfb 发表于 2014-8-12 08:38
Attachment.SaveAsFile "D:\我的文档\aa\" & Attachment.FileName & now()
改成这样还是不行

我帮你测试一下联系我

ishfb · 发表于 2014-8-19 16:26

谢谢，我从另一篇内找到了代码。http://club.excelhome.net/forum.php?mod=viewthread&tid=717218

		自动登录	找回密码
密码			免费注册

[求助] 根据发件人不同将附件保存在不同的文件夹内