各位程設大大好 小妹完全外行人 由於公司三人共用一個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/m.aspx?n=bbs/Visual_Basic/M.1465012950.A.69B.html