outlook密送给自己的VBA
来源:互联网 发布:matlab字符串数组赋值 编辑:程序博客网 时间:2024/04/30 12:51
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim oItem As MailItem
Dim oRecipient As Recipient
Set oItem = Item
Set oRecipient = oItem.Recipients.Add("account@mailserver.com")
oRecipient.Type = Outlook.olBCC
oItem.Recipients.ResolveAll
oItem.Save
Set oRecipient = Nothing
Set oItem = Nothing
End Sub
把 account@mailserver.com 改成自己的邮箱账号
Dim oItem As MailItem
Dim oRecipient As Recipient
Set oItem = Item
Set oRecipient = oItem.Recipients.Add("account@mailserver.com")
oRecipient.Type = Outlook.olBCC
oItem.Recipients.ResolveAll
oItem.Save
Set oRecipient = Nothing
Set oItem = Nothing
End Sub
把 account@mailserver.com 改成自己的邮箱账号
0 0
- outlook密送给自己的VBA
- 送给自己的鼓励
- 送给自己的礼物。
- 送给自己的一句话
- 送给浮躁的自己
- 送给自己的书
- 送给自己的经典语录
- MSFT Outlook VBA处理新邮件的方法
- OutLook的VBA基本对象及操作
- VBA读取Outlook的签名文件
- 送给自己的几句话
- 送给自己的一份忠告
- 送给自己的四句话
- 送给将要找工作的自己
- 送给颓废时的自己
- 送给自己的一篇文章
- 送给自己的处女帖
- 送给不安时候的自己
- python网络编程代码
- windows 32位程序编译成64位
- 为什么同一个串口在不同的电脑上名字不一样?
- vector.resize 与 vector.reserve的区别
- 日志收集分析工具logstash + elasticsearch
- outlook密送给自己的VBA
- hdu1546——Idiomatic Phrases Game
- Android4.4 Telephony流程分析——联系人(Contact)列表缩略图的加载过程
- 俯瞰 cocos2d-x 01 场景的切换
- 指针和引用
- win8.1 开机以后输入法不见了,解决办法
- 跟我一起写makefile 一
- 数据结构第四章字符串与数组
- struts2命名规则