Emailing XLS Issue - Account reference.

[selkov]

I am trying to send an email with the xls attached in the body & I have a working macro to do so. I would like to specify the account to email through. This is where it all falls down. I can email from outlook on that account by choosing the "FROM" drop down box in my email. But I do not actually have it set up as an account in account settings. I am trying to use the .SendUsingAccount feature and have run Ron De Bruins code to get the account # [See Below] and it will only return my default account.

How else can I specify the Email From data?



Portion of My code to email:
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strTempHTMLFile = objFileSystem.GetSpecialFolder(2).Path & "\Temp for Excel" & Format(Now, "YYYY-MM-DD hh-mm-ss") & ".htm"
Set objTempHTMLFile = objTempWorkbook.PublishObjects.Add(xlSourceRange, strTempHTMLFile, objTempWorksheet.Name, objTempWorksheet.UsedRange.Address)
objTempHTMLFile.Publish (True)
'Create a new email
Set objOutlookApp = CreateObject("Outlook.Application")
Set objNewEmail = objOutlookApp.CreateItem(olMailItem)
'Read the HTML file data and insert into the email body
Set objTextStream = objFileSystem.OpenTextFile(strTempHTMLFile)
objNewEmail.HTMLBody = objTextStream.readall
'****************************************************************************************
'Specify email recipients, subjects ; etc, Here
mymailact = "needed email account@xxx.com"
.SendUsingAccount = mymailact
objNewEmail.Display
'objNewEmail.To = "johnsmith@"
'objNewEmail.Cc = "carboncopy"
'objNewEmail.Subject = "DataNumen Products"
'objNewEmail.Send '--> directly send out this email
'****************************************************************************************






Ron De Bruins Code

Sub Which_Account_Number()
'Don't forget to set a reference to Outlook in the VBA editor
Dim OutApp As Outlook.Application
Dim I As Long
Set OutApp = CreateObject("Outlook.Application")
For I = 1 To OutApp.Session.Accounts.Count
MsgBox OutApp.Session.Accounts.Item(I) & " : This is account number " & I
Next I
End Sub