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

作者: 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]/*
繼續閱讀

Links booklink

Contact Us: admin [ a t ] ucptt.com