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


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

   

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


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

主题: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

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


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

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

 回到顶部