Исходный код

//---------------------------------------------------------
// Создает почтовое сообщение,
// показывает диалог редктирования сообщения.
//---------------------------------------------------------

// создать сообщение
CComPtr<ITDMSMessage> pMsg;
CheckError(pApp->CreateMessage(&pMsg));

// получатель
VARIANT var;
var.vt = VT_BSTR;
var.bstrVal = A2BSTR("SysAdmin");
CheckError(pMsg->put_To(var));
VariantClear(&var);

// тема
BSTR bsSubject = A2BSTR("Help me, please!");
CheckError(pMsg->put_Subject(bsSubject));
SysFreeString(bsSubject);

// показать диалог редактирования сообщения
CComPtr<ITDMSDialogs> pDialogs;
CheckError(pApp->get_Dialogs(&pDialogs));
CComPtr<ITDMSEditMessageDlg> pEditMsgDlg;
CheckError(pDialogs->get_EditMessageDlg(&pEditMsgDlg));
CheckError(pEditMsgDlg->put_Message(pMsg));
VARIANT_BOOL bResult;
CheckError(pEditMsgDlg->Show(&bResult));