You can't change the sending account using the Outlook Object Model, but you
can automate the selection of the account in the dropdown on the Standard
toolbar, provided you open the e-mail first:
Sub ChangeSendingAccount()
Dim objCBPU As Office.CommandBarPopup
Dim objCBB As Office.CommandBarButton
Set objCBPU = ActiveInspector.CommandBars.FindControl(, 31224) 'get
Accounts button on Standard toolbar
'Get menu item by name or index number
Set objCBB = objCBPU.Controls.Item("&1 Microsoft Exchange Server")
'Set objCBB = objCBPU.Controls.Item(2)
objCBB.Execute
Set objCBPU = Nothing
Set objCBB = Nothing
End Sub

Signature
Eric Legault (Outlook MVP, MCDBA, old school WOSA MCSD, B.A.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/
> Hello,
>
[quoted text clipped - 8 lines]
>
> Thanks in advance for any suggestion,
Catalin - 18 Jan 2006 09:58 GMT
Thanks very much.
But pls explain me some more... I am a newbie with VBA.
How do you make it work? I've tried to run it from inside of VB Editor but I
get an error.
How do you refer to the routine?
Thanks in advance
Catalin
> You can't change the sending account using the Outlook Object Model, but you
> can automate the selection of the account in the dropdown on the Standard
[quoted text clipped - 29 lines]
> >
> > Thanks in advance for any suggestion,
Eric Legault [MVP - Outlook] - 18 Jan 2006 16:28 GMT
You should be able to call the procedure as is, however you do need to set a
reference to the Microsoft Office Object Model in the References dialog in
the VBA editor.

Signature
Eric Legault (Outlook MVP, MCDBA, old school WOSA MCSD, B.A.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/
> Thanks very much.
> But pls explain me some more... I am a newbie with VBA.
[quoted text clipped - 41 lines]
> > >
> > > Thanks in advance for any suggestion,