如何获取xlsx指定单元格内容并发送邮件或微信

linlianboy

请问下各位如何根据单元格D的要求来推送到指定人员邮箱或微信去呢


待推送数据.7z (9.07 KB, 下载次数: 1)

2023-1-24 18:38 上传

点击文件名下载附件

linlianboy

各位大佬过年好，有空帮忙看看怎么弄

鄂龙蒙

也想知道怎么做

linlianboy

鄂龙蒙 发表于 2023-1-25 09:42
也想知道怎么做

我去学python了，很容易就解决

17343331152

你好，以前在设计公司，被人力资源部的同事每个月考勤和加班折磨很久，然后就帮人力资源部的写了个Excel插件，让她以后直接在统计完成的表格里面一键发送邮件给我们核对，，，，，

如果选择VBA，主要发送邮件的代码是这样：

Sub 邮件3发送()
'Dim cm As New CDO.Message
Set cm = CreateObject("CDO.Message")
cm.From = "7？？？？？？@qq.com"
cm.To = "7？？？？？？@qq.com"
cm.Subject = "主题:邮件发送试验"
cm.TextBody = "邮件发送，收到邮件说明这个插件是正常运行的" '邮件正文，使用文本格式发送邮件
'cm.HTMLBody = "邮件发送试验^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
'cm.AddAttachment ThisWorkbook.Path & "/a.xls"
stUl = "http://schemas.microsoft.com/cdo/configuration/"

With cm.Configuration.Fields
.Item(stUl & "smtpusessl") = True '这个才是正解
.Item(stUl & "smtpserver") = "smtp.qq.com"
.Item(stUl & "smtpserverport") = 465
.Item(stUl & "sendusing") = 2
.Item(stUl & "smtpauthenticate") = 1
.Item(stUl & "sendusername") = "这里是你的QQ号，不要后面的@QQ.Com"
.Item(stUl & "sendpassword") = "这里是你的QQ邮箱发送密码，不行邮箱登录密码"
.Update

End With
cm.Send '最后当然是执行发送了
Set cm = Nothing
'发送成功后即时释放对象
End Sub


以上就是发送邮件部分的代码，其他的主体逻辑判断，应该都不难，附件中的是一位大佬写的CDO发送邮件的示例，可以看看哦，我发现很多重要的内容，中文网络上找不到，在外网反而都有很多人帮忙

17343331152

奇怪了，刚刚回复了，被网站吞了帖子？？

我以前是做设计的，被人力资源部门的考勤加班统计折腾了很久，然后自己写个插件，让人力资源部给我们群发邮件，让我们自己检查核对考勤和工资条，，，，

我是看蓝色幻想VBA教程的，但是明明是一样的代码，就是发送不出来，后来是在外面找了大神，发现用现在的邮件都要用到ssl协议，，，，，，

邮件发送部分的代码如下：：
Sub 邮件3发送()
'Dim cm As New CDO.Message
Set cm = CreateObject("CDO.Message")
cm.From = "7？？？？？@qq.com"
cm.To = "7？？？？？qq.com"
cm.Subject = "主题:邮件发送试验"
cm.TextBody = "邮件发送，收到邮件说明这个插件是正常运行的" '邮件正文，使用文本格式发送邮件
'cm.HTMLBody = "邮件发送试验^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
'cm.AddAttachment ThisWorkbook.Path & "/a.xls"
stUl = "http://schemas.microsoft.com/cdo/configuration/"

With cm.Configuration.Fields
.Item(stUl & "smtpusessl") = True '这个才是正解
.Item(stUl & "smtpserver") = "smtp.qq.com"
.Item(stUl & "smtpserverport") = 465
.Item(stUl & "sendusing") = 2
.Item(stUl & "smtpauthenticate") = 1
.Item(stUl & "sendusername") = "7？？？？？这里是你的邮件账号，没有@qq.com"
.Item(stUl & "sendpassword") = "这里填写你的邮箱发送密码，不是邮箱登录密码，请注意"
.Update

End With
cm.Send '最后当然是执行发送了
Set cm = Nothing
'发送成功后即时释放对象
End Sub


后面附上大佬写的CDO发送邮件的详细解释

17343331152

Sub 邮件3发送()
'Dim cm As New CDO.Message
Set cm = CreateObject("CDO.Message")
cm.From = "718064834@qq.com"
cm.To = "718064834@qq.com"
cm.Subject = "主题:邮件发送试验"
cm.TextBody = "邮件发送，收到邮件说明这个插件是正常运行的" '邮件正文，使用文本格式发送邮件
'cm.HTMLBody = "邮件发送试验^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
'cm.AddAttachment ThisWorkbook.Path & "/a.xls"
stUl = "http://schemas.microsoft.com/cdo/configuration/"

With cm.Configuration.Fields
.Item(stUl & "smtpusessl") = True '这个才是正解
.Item(stUl & "smtpserver") = "smtp.qq.com"
.Item(stUl & "smtpserverport") = 465
.Item(stUl & "sendusing") = 2
.Item(stUl & "smtpauthenticate") = 1
.Item(stUl & "sendusername") = "718064834"
.Item(stUl & "sendpassword") = "这里写邮箱发送密码，不是邮箱登录密码"
.Update

End With
cm.Send '最后当然是执行发送了
Set cm = Nothing
'发送成功后即时释放对象
End Sub

17343331152

刚刚才发现回复有字数限制，，，
以前被人力资源部折腾了，自己写插件核对考勤和加班费的，让她每个月群发邮件给每个设计亲自核对，有了这个邮件的插件，其实也是看VBA蓝色幻想，自己折腾写的，

你看看附件里面的说明，都不难，自己写下你要判断的主体，一个下午的事情就搞定了。。

linlianboy

17343331152 发表于 2023-1-26 12:53
刚刚才发现回复有字数限制，，，
以前被人力资源部折腾了，自己写插件核对考勤和加班费的，让她每个月群发 ...

非常感谢您的帮助，谢谢了