private void CreateMailItemFromAccount() 
{ 
    Outlook.AddressEntry addrEntry = null; 

    // Get the store for the current folder. 
    Outlook.Folder folder = 
        Application.ActiveExplorer().CurrentFolder  
        as Outlook.Folder; 
    Outlook.Store store = folder.Store; 

    Outlook.Accounts accounts = 
        Application.Session.Accounts; 

    // Match the delivery store of each account with the  
    // store for the current folder. 
    foreach (Outlook.Account account in accounts) 
    { 
        if (account.DeliveryStore.StoreID ==  
            store.StoreID) 
        { 
            addrEntry = 
                account.CurrentUser.AddressEntry; 
            break; 
        } 
    } 

    // Create MailItem. Account is either the primary 
    // account or the account with a delivery store 
    // that matches the store for the current folder. 
    Outlook.MailItem mail = 
        Application.CreateItem( 
        Outlook.OlItemType.olMailItem) 
        as Outlook.MailItem; 

    if (addrEntry != null) 
    { 
        //Set Sender property. 
        mail.Sender = addrEntry; 
        mail.Display(false); 
    } 
}

// получаем текущую папку
folder = Application.ActiveExplorer().CurrentFolder
// получаем хранилище для этой папки
store = folder.Store
// получаем список аккаунтов
accounts = Application.Session.Accounts
// пробегаемся по аккаунтам и находим AddressEntry для того, чья папка доставки имеет тот же StoreID
// (грубо говоря Store это pst файл, т.е. файл где хранится вся инфа аккаунта - все его папки и т.п.)
// что и найденное выше StoreID для "текущей папки".
// По сути это AddressEntry для текущего активного аккаунта.
foreach account in accounts
 if account.DeliveryStore.StoreID == store.StoreID
  addrEntry = account.CurrentUser.AddressEntry;   
  exit
 endif
endfor
...
// Прописываем для только что созданного письма "Отправителя".
mail.Sender = addrEntry;

#DEFINE MAILITEM 0
*
loOutlook = GETOBJECT('','Outlook.application')

*   получаем текущую папку  
loFolder = loOutlook.ActiveExplorer().CurrentFolder  

*   получаем хранилище для этой папки  
loStore = loFolder.Store

*   получаем список аккаунтов  
loAccounts = loOutlook.Session.Accounts  

*     пробегаемся по аккаунтам и находим AddressEntry для того, чья папка доставки имеет тот же StoreID (грубо говоря Store это pst файл, 
*       т.е. файл где хранится вся инфа аккаунта - все его папки и т.п.) что и найденное выше StoreID для "текущей папки". По сути это AddressEntry для текущего активного аккаунта.  
FOR each account in loAccounts  
    IF account.DeliveryStore.StoreID = loStore.StoreID  
        WAIT WINDOW account.UserName
        loAddressEntry = account.CurrentUser.AddressEntry 
    ENDIF  
ENDFOR  

*
loEmailItem = loOutlook.CreateItem(MAILITEM) 
*   Прописываем для только что созданного письма "Отправителя".  
loEmailItem.Sender = loAddressEntry

loEmailItem.GetInspector.Display
signature = loEmailItem.HTMLbody

WITH loEmailItem
     .Display
    .Recipients.Add('''.phorum_html_encode('test@yandex.ru').''') && uses the Recipients collection
    .Subject = 'test'
    .BodyFormat = 2
    .HTMLBody =    signature
    .Save  
ENDWITH