[VBA ] 使用在outlook進行自動密件副本設定

看板Visual_Basic作者virfish (大寶)時間8年前 (2016/06/04 12:02)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串1/1

各位程設大大好小妹完全外行人由於公司三人共用一個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