Outlook : Tự động chèn thêm địa chỉ Bcc mỗi khi gửi thư

Mỗi khi bạn gửi thư điện từ bằng Outlook và muốn gửi thêm thư này tới một địa chỉ bí mật không muốn người nhận biết thì bạn phải dùng cách thủ công chèn thêm địa chỉ này tới trường Bcc .

Để tránh việc làm thủ công gõ địa chỉ vào trường Bcc , bạn có thể dùng Visual Basic để tự động chèn vào một địa chỉ nhất định nào đó cách làm như sau .

Mở Microsoft Outlook , bấm tổ hợp phím Alt_F11 để mở cửa sổ Microsoft Visual Basic .

Bấm đúp vào ThisOutlookSession sau đó bạn dán nội dung bên dưới vào phần cửa sổ bên phải

 \"\"

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

 

    strBcc = \"SomeEmailAddress@domain.com\"

     

    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

 

Trong trường SomeEmailAddress@domain.com là địa chỉ Bcc bạn muốn gửi

Khi bạn đóng Outlook nó hỏi có lưu lại VB này không bạn trả lời là Yes . Như vậy từ lúc này trở đi mỗi khi bạn gửi thư đi đâu đó nó sẽ gửi tự động thêm thư này tới một địa chỉ nhất định bạn đã khai báo .