作者virfish (大宝)
看板Visual_Basic
标题[VBA ] 使用在outlook进行自动密件副本设定
时间Sat Jun 4 12:02:21 2016
各位程设大大好
小妹完全外行人
由於公司三人共用一个gmail帐户,
一个人用outlook收 另一个人用G主要帐户收 第三个人用G次要帐户 使用代表收件
但第三人 的信箱 收不到1跟2寄出去的寄件备份 导致有时候事情会重工处理
我想设定outlook 与G主要帐户 寄出去的信 都会自动BCC密件副本到G次要帐户
唯一google到的解法 只有使用VBA来做设定
http://slashlook.com/articles_20140625.html
我看到的是这一篇 也有看到别人使用这个方法成功
内容如下
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.Class = olMail Then
If Item.SendUsingAccount.DisplayName =
"你的OutlookMailProfile名称" Then
Dim oRecipient As Recipient
Set oRecipient = Item.Recipients.Add(
"你的EmailAddress")
oRecipient.Type = olBCC
oRecipient.Resolve
Set oRecipient = Nothing
End If
End If
End Sub
原本部落格作者要求的功能是 BCC回 "自己的"信箱 且要求归到寄件备份去
但我要的是 BCC到 "指定的"信箱 不用归到哪去
不知道原PO的程式是否符合我的诉求
我更改完以後 变成这样
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.Class = olMail Then
If Item.SendUsingAccount.DisplayName =
pop.gmail.com Then
Dim oRecipient As Recipient
Set oRecipient = Item.Recipients.Add(
我指定的次要@gmail.com)
oRecipient.Type = olBCC
oRecipient.Resolve
Set oRecipient = Nothing
End If
End If
End Sub
而且现在寄测试信 寄不出去耶 ^^"
不知道是不是我哪里填错了
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 220.136.85.241
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1465012950.A.69B.html