Automaticly change outgoing isp based on sel email address

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Have ms outlook automatically change outgoing ISP account based on selected
email address. Can I do this with a macro and if so how. Can I at least have
a warning message that the ISP account must be change?
 
You have to "fudge" changing the sending account by automating the clicking
of the appropriate toolbar button:

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

For a warning message, put it in the Item_Send event.
 
Thank you.
--
Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide




--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.
 
I have been trying to implement you program but with my limited expertise I
am having a problem with enabling the macro to rum. I know nothing about a
macro process or how o get one to execute. I have looked at the help with no
luck. Will you advise?

Thanks, paul.
 
Back
Top