Outlook 2007’de Otomatik BCC

İş yazışmalarında, gönderdiğiniz e-posta iletilerinin bir kopyasını daima başka bir adrese de aynı anda göndermek, hem anında yedek almanızı, hem de ilave bir kanıt elde etmenizi sağlaması bakımından yararlı.

Bu bir e-posta istemcisi için çok temel bir işlev sayılabilecek olmasına rağmen, Outlook 2007’de (ve internette yaptığım aramalardan anladığım kadarıyla Outlook 2010’da da) bunu sağlamak için sunulmuş hazır bir seçenek olmaması düşündürücü.

Ücretli eklentiler kullanarak veya makro yazarak bunu mümkün kılabiliyoruz.

Makro için aşağıdaki yolu takip edebilirsiniz.

1. Outlook 2007’de Alt+F11 tuşlayın ya da Araçlar – Makro – Visual Basic Düzenleyicisi’ni tıklayın.

2. Sol panelde Proje1 – Microsoft Office Outlook Objects – ThisOutlookSession seçili halde iken, ve,

Sağ panelde sol üst kutuda “Application”, sağ üst kutuda “Itemsend” seçili halde iken,

Sağ panele aşağıdaki linkte yer alan kodu girin, fakat işaretli yeri kendi adresinizle değiştirmeyi unutmayın:

 

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 = "...@...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

 

3. CTRL + S tuşlayın veya File – Save tıklayın. Microsoft Visual Basic Düzenleyicisini kapatın.

4. Araçlar – Makro – Güvenlik tıklayın ve “Tüm makrolar için uyarı ver” veya “Makrolar için güvenlik denetimi yok” seçeneklerinden birini seçin ki yazdığımız bu makro çalışma imkanı bulsun.

Şimdi bir e-posta göndererek deneme yapabilirsiniz.