楼主:
virfish (大宝)
2016-06-04 12:02:21各位程设大大好
小妹完全外行人
由于公司三人共用一个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([email protected]/*