一键发放工资明细VBA代码

sweetlyeep

https://club.excelhome.net/thread-1528834-1-1.html
可以看我之前的帖子

wcj6376tcp

jnzxwjch 发表于 2024-11-24 13:51
wcj6376tcp老师：我要怎样开通stmp获取密码呢？请赐教。

百度一下不就有了
1、进入QQ邮箱首页，在页面左上角位置找到“设置”。
2、进入“设置”界面，找到“账户”。
3、点击”账户“选项，下拉页面，找到”POP3/IMAP/SMTP/Exchange/CardDAV/CalDAV服务“，点击”POP3/SMTP服务“后面的”开启“。
4、在弹出窗口中使用手机短信或安全中心验证密保。
5、验证通过后，我们就已经成功开启了SMTP功能，获取了相应的授权码。

wcj6376tcp

重新给你找了一个，修改为你的即可发送成功

wcj6376tcp

   对你这个格式修改
Const Email_From As String = "你的QQ@qq.com" ' 发件人邮箱
    Const Password As String = "你的smtp密码"  ' 授权码
换成你的存放图片文件夹
ws.Range("G" & i).Value = ThisWorkbook.Path & "\" & ws.Range("F" & i).Value '生成附件名

jnzxwjch

wcj6376tcp老师：运行出错。

wcj6376tcp

jnzxwjch 发表于 2024-11-24 15:50
wcj6376tcp老师：运行出错。

用13楼附件。配置修改你的密码啊

wcj6376tcp

测试了完全没问题啊