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
Please note I don't want to use .SentOnBehalfOfName and any coding inside "thisoutlooksession"
10% paid and here is the transaction ID 50F38114HA831270X
Thanks in advance for all your help and support.
Cross posted here: https://www.excelforum.com/exc…ook-365-2013-version.html