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 ""


  • 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.


Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!