Limit VBA Script to one Outlook account

[LAAdams17]

How does one limit a VBA script to run only for one of several Outlook accounts? Specifically the following script:

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

 

[Diane Poremsky]

you'll need to add an if.. then statement and check the item.sendusingaccount... or that is what i think you need to check - my tests of the code are not working, including the BCC without the if... then or the error message when the bcc address is badly formatted. I'll have to test it on a different installation tomorrow.

The account name is what you see in the bnavigation pane or in Account Settings list - in outlook 2010, its usually the email address.

 If Item.SendUsingAccount = "account name" Then 
 
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 
 
End If