Send email from specific account - Outlook 365 2013 version

Hi Team,

So far below coding was working fine to send email from particular account but recently we moved to Outlook 365 - 2013 version and now coding is not recognizing the account and i do not want to use SentOnBehalfOfName.

Kindly advise and help me with the coding.

Sub Which_Account_Number()
    Dim OutApp As object,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

Thanks in advance for all your help and support.

Cross posted in "https://www.excelforum.com/excel-programming-vba-macros/1234292-send-email-from-specific-account-outlook-365-2013-version.html"

Regards,
Rahaman

Hi Team,

I am in need of your help to complete this task.

I request you to kindly look into this and advice.

thanks in advance for all your help and support.

regards,
Rahaman.