CommandBar ID's changed in Outlook 2016

[authoriton]

Hi All,

First post to the forum and i would really appreciate some help with this issue.

My company has recently migrated be from Outlook 2010 to Outlook 2016. In 2010, i had a macro embedded in the Application_ItemSend event that changed the value of the 'From' field automatically from whatever it was set to, to my personal account.

To do this, I used control ID 31224 and modified the 'Caption' with:

Private Sub Application_ItemSend(ByVal item As Object, Cancel As Boolean)
   oAccount = Application.Session.Accounts.item(1).UserName
  Call set_account(item,oAccount)
End Sub

Function Set_Account(M,AccountName)
  Set OLI = M.GetInspector
  Set CBs = OLI.CommandBars
  Set CBP = CBs.FindControl(, 31224)
  For Each MC In CBP.Controls
    intLoc = InStr(MC.Caption, " ")    strAccountBtnName = MC.Caption
    If strAccountBtnName <> AccountName Then
       MC.Execute
       Set_Account = AccountName
       GoTo Exit_Function
    End If
 Next
Exit_Function:
End Function

However, Office 2016 doesn't seem to have Control ID 31224. Any idea how I can change the account I am sending the email 'From' using a VBA macro in Outlook 2016?

I have checked through all the CommandBars and I cant find an alternative option.

[authoriton]

Lots of views and no help :-(
Its really stumping me too!

Perhaps the question is too specific. If anyone has any idea how I can interact with the 'From' field via VBA (other than via the CommandBars) in Outlook 2016 that would work too.

[skatonni]

This should change the "from" to the first account. If your set up does not do this automatically perhaps you need the second option.

Private Sub Application_ItemSend(ByVal item As Object, Cancel As Boolean)
    
    ' option 1
    item.SentOnBehalfOfName = Session.GetDefaultFolder(olFolderInbox).Parent
    
    '  option 2
    ' item.SentOnBehalfOfName = meATSIGNsomewhere.com
   
End Sub

[authoriton]

The SentOnBehalfOfName property indicates whether an email has previously been sent on behalf of someone else. On a new email this property is blank. It does not have any effect on the account that will send the email.

Thanks for the suggestion though. All suggestions welcome :-)

[skatonni]

See if SendUsingAccount does what you want.

Private Sub Which_Account()
    
    Dim i As Long
            
    For i = 1 To Session.Accounts.count
        Debug.Print "Account # " & i & ": " & Session.Accounts.Item(i)
    Next i
End Sub

Private Sub SendUsingAccount_Sample()
Dim objMailItem As mailItem
Dim AccountName As String
AccountName = "Found with Which_Account"
Set objMailItem = CreateItem(olMailItem)
With objMailItem
    On Error GoTo notAvailable
    .SendUsingAccount = Session.Accounts(AccountName)
    'or index
    '.SendUsingAccount = Session.Accounts.Item(2)
    .Display ' or .Send
End With
ExitRoutine:
    Set objMailItem = Nothing
    Exit Sub
    
notAvailable:
    MsgBox "Verify " & AccountName
End Sub