各位程設大大好

小妹完全外行人

由於公司三人共用一個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://www.ptt.cc/bbs/Visual_Basic/M.1465012950.A.69B.html