- Cách 1 : Dùng Rule & Auto CC (demo với Outlook 2010)
- Hình ảnh minh họa:
-
Cách 2 : Dùng VBA Macro (Outlook nào cũng OK) trong bài này Long demo bằng cách bật VBA của Outlook 2010, các bạn dùng Outlook bản khác thì tìm cách bật giao diện VBA tương ứng nhé
- Ở giao diện VBA, double-click vào ThisOutlookSession trên cái panel bên trái, bên phải chọn Application & Item Send như hình:
- Thay đoạn code mặc định của Outlook bằng đoạn code sau:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim objRecip As Recipient Dim strMsg As String Dim res As Integer Dim strBcc As String On Error Resume Next ' #### USER OPTIONS #### ' address for Bcc -- must be SMTP address or resolvable ' to a name in the address book strBcc = "longnx@fsoft.com.vn" Set objRecip = Item.Recipients.Add(strBcc) objRecip.Type = olBCC If Not objRecip.Resolve Then strMsg = "Could not resolve the Bcc recipient. " & _ "Do you want still to send the message?" res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _ "Could Not Resolve Bcc Recipient") If res = vbNo Then Cancel = True End If End If Set objRecip = Nothing End Sub
Xong.
No comments:
Post a Comment