标题：VBA发送邮件附件没有内容

1楼

Yangygzy 发表于：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

2楼

Yangygzy 发表于：2018/4/16 12:44:14

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

3楼

yukizzc 发表于：2018/4/16 13:03:43

工具-网络-设置

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

4楼

Yangygzy 发表于：2018/4/16 13:13:13

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

5楼

banzhuan 发表于：2018/4/16 13:42:27

稍等，工作人员本地核实一下该问题

[此贴子已经被作者于2018/4/16 13:46:03编辑过]

6楼

yukizzc 发表于：2018/4/16 14:07:03

你发一个txt文件试试呢

共6 条记录, 每页显示 10 条, 页签: [1]