欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件金字塔软件问题提交 → VBA发送邮件附件没有内容

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有2999人关注过本帖树形打印复制链接

主题:VBA发送邮件附件没有内容

帅哥哟,离线,有人找我吗?
Yangygzy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:48 积分:0 威望:0 精华:0 注册:2016/6/5 14:04:25
VBA发送邮件附件没有内容  发帖心情 Post By:2018/4/16 12:01:48 [只看该作者]

我按照下面代码发送邮件,并添加了附件,可是附件内容是空的,这个什么原因?

Sub mail    
     Set smtpmail=CreateObject("wwscommon.smtpmail")    
     smtpmail.sendername="gzy"
     smtpmail.senderaddress="Mymail@163.com"
     smtpmail.subject="预警"        
     Call smtpmail.addreceiver("aa","18623195847@163.com")
     Call smtpmail.addtextcontent("sss")
     Call smtpmail.AppOctStrmContent("D:\INVESTMENT\投资观察.xlsx")
     Call smtpmail.sender("smtp.163.com","Mymail@163.com","password")  
     application.MsgOut("发送邮件完成")
       
End Sub

 回到顶部
帅哥哟,离线,有人找我吗?
Yangygzy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:48 积分:0 威望:0 精华:0 注册:2016/6/5 14:04:25
  发帖心情 Post By:2018/4/16 12:44:14 [只看该作者]

补充,文件附上去了,但没有文件内容,0 kb

 回到顶部
帅哥哟,离线,有人找我吗?
yukizzc
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:21598 积分:0 威望:0 精华:1 注册:2010/7/31 16:35:30
  发帖心情 Post By:2018/4/16 13:03:43 [只看该作者]

工具-网络-设置

看下这里测试发送邮件是否能发


 回到顶部
帅哥哟,离线,有人找我吗?
Yangygzy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:48 积分:0 威望:0 精华:0 注册:2016/6/5 14:04:25
  发帖心情 Post By:2018/4/16 13:13:13 [只看该作者]

可以发的,只是附近内容为0kb

 回到顶部
帅哥哟,离线,有人找我吗?
banzhuan
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:16558 积分:0 威望:0 精华:0 注册:2017/6/1 10:24:09
  发帖心情 Post By:2018/4/16 13:42:27 [只看该作者]

稍等,工作人员本地核实一下该问题
[此贴子已经被作者于2018/4/16 13:46:03编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
yukizzc
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:21598 积分:0 威望:0 精华:1 注册:2010/7/31 16:35:30
  发帖心情 Post By:2018/4/16 14:07:03 [只看该作者]

你发一个txt文件试试呢

 回到顶部