如何通过Excel VBA和Outlook实现自动发送邮件功能
[问题点数：30分，结帖人zhengjj881129]
本版专家分：0
结帖率 100%
CSDN今日推荐
本版专家分：14438
2014年1月 荣获微软MVP称号
2014年9月 其他开发语言大版内专家分月排行榜第二2012年3月 其他开发语言大版内专家分月排行榜第二2010年5月 其他开发语言大版内专家分月排行榜第二
2013年5月 其他开发语言大版内专家分月排行榜第三
匿名用户不能发表回复！
其他相关推荐查看: 12045|回复: 33
请教：如何让用户自动用QQ发邮件给我？
阅读权限95
在线时间 小时
我有一个工作簿（名字是XXXX）是供很多人分别使用的，人们把它填写完成后，能不能将这个工作簿作为附件，用QQ邮箱发给我？
现在请各位赐教一段写在& &XXXX工作簿 里的 VBA代码，完成这个功能。
（在网上搜索很久，只看见“我”给“别人”发的，还要设置很多参数，没有看见“别人”发给“我”的。）
（也没有看见用QQ来发邮件的。而我们单位每个人都有自己的QQ，能不能不要用户设置任何参数，就像操作QQ邮箱一样发邮件呢？）
不能用网上搜索到的代码的原因：
1、我不知道用户安装的是什么版本的系统，也不知道他有没有安装outlook。
2、即使用户安装了outlook，也不允许（XXXX工作簿有VBA密码）也不可能要求他到VBE界面设置发送邮件的各个参数 （例如：工具/引用中的Microseft Outlook *.0 Object Library 等。同时，发送邮件时老是出现对话框：&有一程序试图发送电子邮件，如果你觉得意外，可能是病毒所为，是否继续？&也容易引起用户的疑惑。
例如：我的用户 张三，自己的QQ号是，（假设在填写XXXX工作簿时，这个号已经在线，因此不用再输入QQ邮箱密码）
& && &我的QQ号码是，（但是'我的好友'里也许并没有加入这个号码），放在 XXXX工作簿的 Sheet1的 A1单元格。& &
& && &他把XXXX工作簿填写完成后，用按钮调用这段代码发送邮件给我，邮件主题是“XXXX已经填写结束”，附件也是这个已经填写好的XXXX工作簿本身。
请各位指教！
[ 本帖最后由 lhdcxz 于
09:49 编辑 ]
阅读权限95
在线时间 小时
唉！只好自己顶一下，免得高手看不见。
阅读权限70
在线时间 小时
论坛里有的，具体谁做的忘记了，自己搜一下看看，还有用jsmail和outlook发邮件的，解决方案很多的
阅读权限95
在线时间 小时
我找过多次，没有我要求的。（在网上搜索很久，只看见“我”给“别人”发的，outlook还要设置很多参数，没有看见“别人”发给“我”的。这点请特别注意！！）
[ 本帖最后由 lhdcxz 于
16:44 编辑 ]
阅读权限70
在线时间 小时
谁发给谁都是一样的，不过是发件人和收件人换一下而已，
只要发件人的用户名和密码对了就可以了，
很多参数是默认的，你可以自己测试一下，两个邮箱测试一下也不是什么问题
阅读权限95
在线时间 小时
不能用网上搜索到的代码的原因：
1、我不知道用户安装的是什么版本的系统，也不知道他有没有安装outlook。
2、即使用户安装了outlook，也不允许（XXXX工作簿有VBA密码）也不可能要求他到VBE界面设置发送邮件的各个参数 （例如：工具/引用中的Microseft Outlook *.0 Object Library 等。同时，发送邮件时老是出现对话框：&有一程序试图发送电子邮件，如果你觉得意外，可能是病毒所为，是否继续？&也容易引起用户的疑惑。
阅读权限20
在线时间 小时
发送QQ邮件需要知道QQ密码，这里有一个替代的方法，就是你申请一个专用的邮箱，比如xxxx@gmail来向自己发送这些邮件。
Sub SendMe()
&&Dim NameSpace$, FSO As Object, Email As Object, TW As Workbook, FN$
&&Set TW = ThisWorkbook
&&NameSpace = &http://schemas.microsoft.com/cdo/configuration/&
&&Set FSO = CreateObject(&Scripting.FileSystemObject&)
&&Set Email = CreateObject(&CDO.Message&)
&&TW.Save
&&FN = TW.Path & && & &Re:& & TW.Name
&&FSO.CopyFile TW.FullName, FN
&&Email.AddAttachment FN
&&With Email
& & .FROM = [FROM]
& & .TO = [TO]
& & .Subject = [Subject]
& & .TextBody = [TextBody]
& & With .Configuration.Fields
& && &.Item(NameSpace & &smtpusessl&) = 1
& && &.Item(NameSpace & &sendusing&) = 2
& && &.Item(NameSpace & &smtpserver&) = [SMTP]
& && &.Item(NameSpace & &smtpserverport&) = [SMTP_PORT]
& && &.Item(NameSpace & &smtpauthenticate&) = 1
& && &.Item(NameSpace & &sendusername&) = [FROM]
& && &.Item(NameSpace & &sendpassword&) = [Password]
& && &.Update
& & End With
& & .Send
&&End With
&&MsgBox &OK&
End Sub复制代码
14:09 上传
点击文件名下载附件
16.81 KB, 下载次数: 184
阅读权限95
在线时间 小时
谢谢！但是我的是2003版的，打不开。
我理解你的意思是不是：我为别人先申请一个gmail邮箱，然后，让别人都用这个邮箱向我发邮件？是不是gmail提邮件服务器的服务？
另外，你写的代码里面，有很多[ ... ]，这是什么意思？要在里面填写说明数据呢？请你加上注释，好吗？
[ 本帖最后由 lhdcxz 于
15:24 编辑 ]
阅读权限50
在线时间 小时
回复 7楼 Siriudie 的帖子
不能用？？？？？？？？？？？？？？？？、、
阅读权限95
在线时间 小时
好像还是要用户设置各种配置参数啊？我在网上看到：
POP3具体设置操作
具体配置参数如下：
POP3服务器地址： pop.gmail.com
SMTP服务器地址： smtp.gmail.com
端口：465 或者 587。。。。这个是我做还是用户做？如果是我做，写在代码的什么地方？如果只是在我的电脑上设置，就没有意义了，因为我的要求是让别人自动给我发邮件。如果要用户做，这就不符合我的要求了。
最新热点 /1
本活动是由微软（中国）有限公司发起，申请通过者可以得到Office 365企业级E3 试用账号，并享有全套Office 365客户端及云端高效、协作办公体验。 机会有限，先到先得！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师VBA编程实现：1！+2！+3！+......+N! 请发到邮箱 谢谢_百度知道
VBA编程实现：1！+2！+3！+......+N! 请发到邮箱 谢谢
编程实现：1！+2！+3！+......+N!要求：（1）界面设计美观大方（界面上至少包含自己的照片、学号、班级、专业和一个命令按钮），单击按钮执行程序。（2）N从键盘输入。（3）定义一个求...
编程实现：1！+2！+3！+......+N!要求：（1）界面设计美观大方（界面上至少包含自己的照片、学号、班级、专业和一个命令按钮），单击按钮执行程序。（2）N从键盘输入。（3）定义一个求阶乘的函数。通过调用函数求阶乘。（4）以消息框输出结果。
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
采纳数：17
获赞数：14
哥们儿，按照你的要求已经帮你完成，我用邮箱happy_传送给你的，有什么问题可以随时问我
请问可以了吗
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 1367|回复: 7
vba制作点击按钮直接弹出QQ加好友信息
阅读权限20
在线时间 小时
本帖最后由 lp-201 于
00:45 编辑
请教：vba制作点击按钮直接弹出QQ加好友信息&&如图：
(26.92 KB, 下载次数: 8)
00:44 上传
阅读权限20
在线时间 小时
shell &C:\Program Files\Tencent\QQ\Bin\QQScLauncher.exe&
阅读权限20
在线时间 小时
shell &C:\Program Files\Tencent\QQ\Bin\QQScLauncher.exe&
出错了，如上图一样怎么写代码？谢谢！
阅读权限100
在线时间 小时
复制以下代码，然后在你的excel当中击右键--选择性粘贴---unicode文本
然后点击联系我们---如果出现警告点击是就行了
&table&&a href=&tencent://message/?uin=&Site=联系本站&Menu=yes& rel=&nofollow&&联系我们&/a&&/table&
阅读权限20
在线时间 小时
复制以下代码，然后在你的excel当中击右键--选择性粘贴---unicode文本
然后点击联系我们---如果出现警告点 ...
你好！我还是不知道怎么粘贴，能截个图吗？我QQ.谢谢！
阅读权限100
在线时间 小时
本帖最后由 huang1314wei 于
21:33 编辑
你好！我还是不知道怎么粘贴，能截个图吗？我QQ.谢谢！
等会给你录个GIF
123.gif (456.71 KB, 下载次数: 0)
21:32 上传
阅读权限20
在线时间 小时
等会给你录个GIF
谢谢！高手感谢你的帮助
阅读权限20
在线时间 小时
等会给你录个GIF
老师能把这个代码写在窗体吗？
最新热点 /1
本活动是由微软（中国）有限公司发起，申请通过者可以得到Office 365企业级E3 试用账号，并享有全套Office 365客户端及云端高效、协作办公体验。 机会有限，先到先得！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师you have been blocked}