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

运行正常。

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

代码没实质变动，参考附上的TXT文本：

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

2008-7-30 09:14 上传

点击文件名下载附件
[分享]自动发送邮件避免Outlook的安全提示方法之二-Redemption

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

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

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

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

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，然后使用它的发送属性。

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

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

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

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

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