ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 4402|回复: 4

[原创] BA新来邮件弹框及声音提醒工具

[复制链接]

TA的精华主题

TA的得分主题

发表于 2010-9-1 13:42 | 显示全部楼层 |阅读模式
分享一个最近为公司发明的小工具:BA(BUSINESS ADDRESS)新来邮件弹框及声音提醒。希望对大家的工作有所帮助,总结了一下使用方法如下:

1.设置MACRO安全级别:选择 MEDIUM (建议)或 LOW 。
MACROSETTING.JPG

2.添加代码:按ALT+F11,弹出VBE窗口:
VBE.JPG
双击 左上角的 THISOUTLOOK SESSION,在右侧代码窗口粘贴如下代码:

Dim myOlApp As New Outlook.Application
Public WithEvents myOlItems1 As Outlook.Items

Private Declare Function PlayWaveSound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszsoundname As String, ByVal uflags As Long) As Long

Public Sub Application_Startup()
    Set myOlItems1 = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders("BA").Folders("SZH2").Folders("SZHGSCSCVEREG").Items
End Sub

Sub myOlItems1_ItemAdd(ByVal Item As Object)

    With UserForm2
    .Label1.Caption = "EREG new mail receipt on " & Now
    .Repaint
    End With
   
    soundName = "C:\WINDOWS\media\ringin.wav"   
    PlayWaveSound soundName, 0
        
    UserForm2.Show

End Sub

'注意:红色字体部分需要根据您实际的BA的文件夹名和BA名来修改。

3.导入模块:
将如下两个文件解压后另存到桌面,  
UserForm2.zip (1.17 KB, 下载次数: 36)
在如上的THISOUTLOOK SESSION 上右键,选择IMPORT FILE,将上述两个文件(实际上只看到 USERFORM2.FRM文件)导入后,变成如下:
FORM.JPG

4.使用:点击一下上图里的“保存”按钮,然后,关闭OUTLOOK,并重新开启,会出现如下提示:(如果安全级别选择“LOW”,则不会出现如下提示。)
ENABLEMACRO.JPG
选择 ENABLE MACROS,就可以使用了,一旦来了新邮件,你会看到“叮”的一声和红色弹框如下:
KUANG.JPG
它会一直停在屏幕最前方提醒你,直至你点它右上角的“X”才消失。

希望对在公司工作的朋友会有所帮助哈!谢谢!

TA的精华主题

TA的得分主题

发表于 2010-9-1 15:31 | 显示全部楼层
支持楼主原创

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-9-1 16:28 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
原帖由 dsd999 于 2010-9-1 15:31 发表
支持楼主原创

谢谢!其实也不完全算原创啦,都是从EH和百度里学的,到处东拼西凑的。还望高手指点!

TA的精华主题

TA的得分主题

发表于 2010-9-7 16:34 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-9-7 16:39 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-3-29 19:09 , Processed in 0.051843 second(s), 11 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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