Hello,

I have followed problem (Outlook 2007):

I want to change the Account where I send my e-mail.
I have this code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

....
ActiveInspector.CommandBars.FindControl(, 31224)

.... but where can I now change the value in the listbox from entry 2 to 1?

Thank you!
Michael

On Nov 22, 1:51*pm, Michael <Mich...@discussions.microsoft.com> wrote:
> Hello,
>
> I have followed problem (Outlook 2007):
>
> I want to change the Account where I send my e-mail.
> I have this code:
>
> Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
>
> ...
> ActiveInspector.CommandBars.FindControl(, 31224)
>
> ... but where can I now change the value in the listbox from entry 2 to 1?
>
> Thank you!
> * *Michael

Hi,

Take a look at Ron's solution ...
http://www.rondebruin.nl/mail/account.htm

HTH

Hello,

> Take a look at Ron's solution ...
> http://www.rondebruin.nl/mail/account.htm

Thank you!

I have include the code in my solution and der sender-account is changing.
Unfortunately the mail is get stuck in the Outgoing-Folder.
I must reopen the mail and must once again click of the send button.
Then I must also again sign the mail. Then the mail will be sending.

The code is:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim objRecip As Recipient

Item.SendUsingAccount = Outlook.Application.Session.Accounts.Item(1)

Set objRecip = Item.Recipients.Add("(E-Mail Removed)")
objRecip.Type = olBCC
objRecip.Resolve

Set objRecip = Nothing

End Sub

Thank you!
Michael

You have to set that property before the message is sent. If you use
the code from Ron's site and create your message programmatically, it
should send normally.

--JP

On Nov 24, 3:51*am, Michael <Mich...@discussions.microsoft.com> wrote:
> Hello,
>
> > Take a look at Ron's solution ...
> >http://www.rondebruin.nl/mail/account.htm
>
> Thank you!
>
> I have include the code in my solution and der sender-account is changing..
> Unfortunately the mail is get stuck in the Outgoing-Folder.
> I must reopen the mail and must once again click of the send button.
> Then I must also again sign the mail. Then the mail will be sending.