ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: Long_III

[分享]自动发送邮件避免Outlook的安全提示方法之二-Redemption

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-7-30 09:14 | 显示全部楼层
本帖已被收录到知识树中,索引项:邮件应用开发

运行正常。

今天改了一点,让代码在2点-20点之间按1个小时检测一次,其他时间为20分钟。而且记录了上次的IP地址,只有在IP地址发生变动的情况下,才向指定邮箱发送邮件,避免收到的邮件太多。

代码没实质变动,参考附上的TXT文本:

uEkMxi5l.rar (1.41 KB, 下载次数: 95)

mQYk7s7z.rar

1.41 KB, 下载次数: 96

[分享]自动发送邮件避免Outlook的安全提示方法之二-Redemption

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-7-30 13:47 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

原来还有更简单的方式,参考

http://club.excelhome.net/viewthread.php?tid=199798&extra=&page=2#199798

[原创]在做Outlook VBA开发时如何禁止OUTLOOK的安全提示

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-7-31 14:13 | 显示全部楼层

经过学习帮助,对于上面的代码,可简化为,

Sub send_mail()
    Dim Myol As New Outlook.Application
    Dim Newmail As MailItem
    Dim Cmail As Redemption.SafeMailItem

    Set Newmail = Myol.CreateItem(olMailItem)
        With Newmail
            .Subject = "123456"
            .To = "hjsong_8116@163.com"
        End With
       
    Set Cmail = CreateObject("Redemption.SafeMailItem")
        Cmail.Item = Newmail
        Cmail.Send
End Sub

由于Redemption.SafeMailItem的subject、TO等等属性都是只读属性,因此不能直接建Redemption.SafeMailItem,给它赋值之后再发送,只能在Outlook里先建好一个,再赋给Redemption,然后使用它的发送属性。

TA的精华主题

TA的得分主题

发表于 2008-8-1 13:07 | 显示全部楼层

龙兄,请问,注册和在VBE里引用有什么区别?是不是注册了所有的EXCEL文件都有这个引用,而VBE的引用只是在当前的EXCEL文件中引用?

我想只需安装一次在所有的EXCEL中都能用可以吗?

小弟对这个不是很熟悉,请赐教

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-8-1 15:30 | 显示全部楼层

我也不是很清楚注册的意思。一般来说,注册是告诉windows你的这个控件的位置,以后其他程序访问的时候就方便了。(注册之后excel是不会自动引用的。)

引用,则是选择你要的控件,让它在当前的环境下可以运行,只针对当前的文件。有些文件的引用,需要控件注册之后才能引用,要不然就引用不了。

TA的精华主题

TA的得分主题

发表于 2008-12-23 00:39 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
努力学习中。。

TA的精华主题

TA的得分主题

发表于 2009-1-4 04:50 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
看不懂呀........

TA的精华主题

TA的得分主题

发表于 2009-2-19 14:07 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-10-29 16:57 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
苦苦在找这样的代码,终于找到了

TA的精华主题

TA的得分主题

发表于 2009-12-31 10:41 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
好好学习,谢谢分享。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-12 05:20 , Processed in 0.048178 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表