Change the account from sending e-mail

Status
Not open for further replies.
M

Michael

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...> 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("xxxx@gmail.com")

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...> 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.
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
E Change sending account depending on Subjectline Outlook VBA and Custom Forms 0
M Use Macro to change account settings Outlook VBA and Custom Forms 0
D Change Microsoft Account password - what to do to update on all devices Using Outlook 4
S Example VBA Macro - To Conditionally Change the From Account and Add a BCC Address on Emails Outlook VBA and Custom Forms 11
J Change POP account to Forwarder - What happens in Outlook? Using Outlook 2
H Change Default Email Account Using VBA Outlook VBA and Custom Forms 5
Davzell Change default pop3 account with script, prf or registery ? Outlook VBA and Custom Forms 0
M Change default "automatically test account settings when Next is clicked" Using Outlook 1
Diane Poremsky Change the Social Connector Account Using Outlook 0
Fozzie Bear Change the Display Name recipients see for Exchange account Exchange Server Administration 0
G Outlook2013 - "From" name doesn't change even when changed in Account Setting Using Outlook 4
G Default Account Change Using Outlook 5
O Exchange + pst: Can I change the default Outlook calendar/tasks/account? Exchange Server Administration 2
J Change Email Account Outlook VBA and Custom Forms 5
D How to change account used for replies from default Outlook VBA and Custom Forms 7
S how to add my custom items to "Change E-mail Account" dialog Outlook VBA and Custom Forms 1
P SendUsingAccount to change from account Outlook VBA and Custom Forms 4
P Outlook SendUsingAccount to change from account Outlook VBA and Custom Forms 5
D Unable to change AppointmentItem.Start property Outlook VBA and Custom Forms 3
sjmo2 Change subject for new e-mails only. Outlook VBA and Custom Forms 2
Horsepower Contact phone numbers randomly change Using Outlook 0
P Outlook 2016 Change Paste Special Default Format Using Outlook 8
whizzard Change FROM address based on TO or CC address Outlook VBA and Custom Forms 8
S Outlook 365 Can I change the possible range of highlighting colours when writing an Outlook email? Using Outlook 1
V Can one change the formatting of email title blocks? Using Outlook 0
S Unable to change Message Class Outlook VBA and Custom Forms 0
S New Outlook Appointment - Select All Body Text and Change Font and Size Outlook VBA and Custom Forms 1
J VBA Cannot programmatically input or change Value for User Defined field Using Outlook 1
C Outlook 365 Can you change the follow up colour? Using Outlook 1
A Change settings Send/receive VBA Outlook VBA and Custom Forms 0
E Outlook VBA change GetDefaultFolder dynamically Outlook VBA and Custom Forms 6
O What would be the recommended way to change an email address (family member)? Using Outlook 0
S Change "This Week" flag start date behavior Using Outlook 1
N Help creating a VBA macro with conditional formatting to change the font color of all external emails to red Outlook VBA and Custom Forms 5
S Outlook 2016 Change how Outlook shows me contacts in emails Using Outlook 0
Witzker HowTo Change message Class of contact form Outlook VBA and Custom Forms 0
Z Outlook 365 delete reminder you can’t make change to contents of this-read only folder Using Outlook 4
Witzker Pls help to change the code for inserting date in Ol contact body Outlook VBA and Custom Forms 5
R How to Change Margins In Google Docs...? Using Outlook 0
e_a_g_l_e_p_i Outlook 2010 How can I change the font size on right side appointment pane Using Outlook 12
diver864 vba for a rule to automatically accept meeting requests with 'vacation' in subject, change to all-day event, change to free, don't send reply Outlook VBA and Custom Forms 1
B Change Font and Font size using VBA Outlook VBA and Custom Forms 9
D Change senders title Using Outlook 1
W Recurrence: delete older occurrences / change earliest start time Outlook VBA and Custom Forms 0
J Outlook 2013 Change color of text in data fields of contacts in Outlook 2013? Using Outlook 10
B Change row background color of selected item Using Outlook 1
PGSystemTester VBA To Change AppointmentItem.BusyStatus From MeetingItem Before Send Using Outlook 0
B Change from Address Outlook VBA and Custom Forms 0
X If you change expiration date of repeated task it dupplicates Using Outlook 1
E How to display "Change Folder" in Change Default Email Delivery Location in Exchange Outlook 2016 Using Outlook 1

Similar threads

Back
Top