Selecting Outlook mail account in VBA macro generated mail from Excel

[Rustum]

I am using a VBA macro in Excel 2007 to send emails from Outlook 2007 using info in the excel sheet. I wanted to be able to send from a different mail account than the default and added the following line to the macro before the .send command
.SendUsingAccount = OutApp.Session.Accounts.Item(3)
but it has no effect. Whatever account number is selected as the Item Outlook still sends from the default account. As a 'workaround' I can change the default account before I run the macro but I would prefer to have it select the correct account from within the macro. Does anyone know what I may be doing wrong or know a way to do this?

 

[vds1]

Welcome to Mr Excel.com

This thread should get you started..

http://www.mrexcel.com/forum/excel-...sual-basic-applications-specific-account.html

 

[Rustum]

Welcome to Mr Excel.com

This thread should get you started..

http://www.mrexcel.com/forum/excel-...sual-basic-applications-specific-account.html

I have been using Ron de Bruin's code to generate the emails from Excel and the two examples of selecting an account of his you have linked to through the other post work fine for me from Outlook. The problem I have seems to lie in getting the account selection operating from an Excel as opposed to an Outlook macro. I have been careful to add in the Excel VBA editor a reference to the Outlook Object Library but I guess I still have something wrong. Perhaps failed to make the appropriate declarations? Just don't know

 

[daverunt]

Hi,

the example given by Ron works for me as posted below - except you need to add a valid email address and select account item number
Here it is copied from Use the Account you want in mail macro in Excel/Outlook 2007-2010

I added a gmail account to my Outlook as it only had one account and then added the reference to Microsoft Outlook 12.0 Object Library and sent the mail using item(2).
Outlook stated sending using gmail accout

I can only suggest trying Rons simple example first and then move on to yours if it works.

Sub Mail_small_Text_Change_Account()
'Is only working in Office 2007-2010
'You must add a reference to the Microsoft Outlook Library
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"
On Error Resume Next
With OutMail
.To = "[EMAIL="me@gmail.com"]me@gmail.com[/EMAIL]"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = strbody
'SendUsingAccount is new in Outlook 2007
'Change Item(1)to another number to use another account
.SendUsingAccount = OutApp.Session.Accounts.Item(2)
.Send

End With

On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing

End Sub