Outlook VBA to send from Non-default Account & Data Files

[Jacques]

Operating system::    Windows 11 Pro
Outlook version:     Microsoft 365 V2403
Email type or host:    POP

---

Diane Poremsky helped me in 2014 to code VBA script below in order to send out batch mails for invoicing and statements.

The problem is that since about 2 months ago Outlook sends from my default account and Data file selected which is linked to my Accounting Software that generates the mails. No matter what I do and add to the VBA, the final e-mail is sent from my default account. I place a pause in the VBA to check what is saved and it even saves the correct From Account but after sent it defaults back to my default account. It seems that Outlook uses the default DATA File selection to detemine the account from which to send and not only the default email account setting? I cannot change my Default Data File as all my TASKS and links with iStore etc uses the default setting.

Sub ChangeSubject()

Dim myolApp As Outlook.Application

Dim aItem As Variant 'As Object

Set myolApp = CreateObject("Outlook.Application")

Set mail = myolApp.ActiveExplorer.CurrentFolder.Items

Dim i As Long

Dim strTemp As String

Dim intCount As Integer

On Error Resume Next

intCount = mail.Count

For i = intCount To 1 Step -1

Set aItem = mail.Item(i)

strTemp = "Add to Left Subject" & aItem.Subject & "Add to Right Subject"

aItem.Subject = strTemp

aItem.SendUsingAccount = "xyz.org.za" (added today to try solution)
aItem.SentOnBehalfOfName = "xyv.org.za" (added today to try solution)

aItem.Save

aItem.Send

Next i

Set myolApp = Nothing

End Sub

 

[Diane Poremsky]

the final e-mail is sent from my default account

Are you using mail merge? That will always use the default data file account.

I'll test the code - have another person who wants to change the From address but now it reverts to the account address when it worked like he wanted it previously.

 

[Jacques]

Are you using mail merge? That will always use the default data file account.

I'll test the code - have another person who wants to change the From address but now it reverts to the account address when it worked like he wanted it previously.

Hi Diane, much appreciated. I use SAGE accounting and run my invoice batch for let's say 150 clients. The software generates the 150 invoices which end up in my Default Outbox (I disconnect my Network in order to block the mail being sent). I then move all 150 emails from the Default Outbox to the DRAFT folder of the account from which I want to send. Then I run the macro with changes to my Subject for Example: I add "Levies Invoiced - May 2024". The macro worked like a charm until about 2 months back. As I send out invoices on behalf of clients on a outsourced basis, I have done this for years on end and from many different accounts (Setup each as a separate Outlook Data File and e-mail account). So the mails are moved to the DRAFT Folder of the required e-mail account, I then switch back on my Network (Enable) and run the macro. What's always been weird is that even though it worked using the SENT from account as being correct, all mail ended up in my Default Sent Items Folder. I then just moved them to the other Data File's Sent Folder.

 

[Jacques]

Are you using mail merge? That will always use the default data file account.

I'll test the code - have another person who wants to change the From address but now it reverts to the account address when it worked like he wanted it previously.

Hi Diane - Just following up if you found a solution? Thanks in advance

 

[Jacques]

Good Evening Diane - I have tried everything and my only solution was to edit each mail and select the correct e-mail account and press send. The e-mail then moves from my default outbox/draft to the correct account's outbox. Is there a way to record a macro to that I can capture my actions in the VBA code: