Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

274 lines
7.3 KiB

// ActionEmailPage.cpp : implementation file
//
// 03/05/00 v-marfin bug 59643 : Make this the default starting page.
#include "stdafx.h"
#include "snapin.h"
#include "ActionEmailPage.h"
#include "Action.h"
#include "BccDialog.h"
#include "CcDialog.h"
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif
/////////////////////////////////////////////////////////////////////////////
// CActionEmailPage property page
IMPLEMENT_DYNCREATE(CActionEmailPage, CHMPropertyPage)
CActionEmailPage::CActionEmailPage() : CHMPropertyPage(CActionEmailPage::IDD)
{
//{{AFX_DATA_INIT(CActionEmailPage)
m_sMessage = _T("");
m_sServer = _T("");
m_sSubject = _T("");
m_sTo = _T("");
//}}AFX_DATA_INIT
m_sHelpTopic = _T("HMon21.chm::/demact.htm");
}
CActionEmailPage::~CActionEmailPage()
{
}
void CActionEmailPage::DoDataExchange(CDataExchange* pDX)
{
CHMPropertyPage::DoDataExchange(pDX);
//{{AFX_DATA_MAP(CActionEmailPage)
DDX_Control(pDX, IDC_EDIT_MESSAGE, m_MessageWnd);
DDX_Text(pDX, IDC_EDIT_MESSAGE, m_sMessage);
DDX_Text(pDX, IDC_EDIT_SERVER, m_sServer);
DDX_Control(pDX, IDC_EDIT_SUBJECT, m_SubjectWnd);
DDX_Text(pDX, IDC_EDIT_SUBJECT, m_sSubject);
DDX_Text(pDX, IDC_EDIT_TO, m_sTo);
//}}AFX_DATA_MAP
}
BEGIN_MESSAGE_MAP(CActionEmailPage, CHMPropertyPage)
//{{AFX_MSG_MAP(CActionEmailPage)
ON_EN_CHANGE(IDC_EDIT_BCC, OnChangeEditBcc)
ON_EN_CHANGE(IDC_EDIT_CC, OnChangeEditCc)
ON_EN_CHANGE(IDC_EDIT_MESSAGE, OnChangeEditMessage)
ON_EN_CHANGE(IDC_EDIT_SERVER, OnChangeEditServer)
ON_EN_CHANGE(IDC_EDIT_SUBJECT, OnChangeEditSubject)
ON_EN_CHANGE(IDC_EDIT_TO, OnChangeEditTo)
ON_BN_CLICKED(IDC_BUTTON_BCC, OnButtonBcc)
ON_BN_CLICKED(IDC_BUTTON_CC, OnButtonCc)
ON_BN_CLICKED(IDC_BUTTON_INSERTION, OnButtonInsertion)
ON_BN_CLICKED(IDC_BUTTON_SUBJECT_INSERTION, OnButtonSubjectInsertion)
ON_WM_DESTROY()
//}}AFX_MSG_MAP
END_MESSAGE_MAP()
/////////////////////////////////////////////////////////////////////////////
// CActionEmailPage message handlers
BOOL CActionEmailPage::OnInitDialog()
{
// v-marfin : bug 59643 : This will be the default starting page for the property
// sheet so call CnxPropertyPageCreate() to unmarshal the
// connection for this thread. This function must be called
// by the first page of the property sheet. It used to
// be called by the "General" page and its call still remains
// there as well in case the general page is loaded by a
// different code path that does not also load this page.
// The CnxPropertyPageCreate function has been safeguarded
// to simply return if the required call has already been made.
// CnxPropertyPageDestory() must be called from this page's
// OnDestroy function.
// unmarshal connmgr
CnxPropertyPageCreate();
CHMPropertyPage::OnInitDialog();
if( ! m_InsertionMenu.Create(&m_MessageWnd,GetObjectPtr(),false) )
{
GetDlgItem(IDC_BUTTON_INSERTION)->EnableWindow(FALSE);
}
// v-marfin : 61671
if( ! m_SubjectInsertionMenu.Create(&m_SubjectWnd,GetObjectPtr(),false) )
{
GetDlgItem(IDC_BUTTON_SUBJECT_INSERTION)->EnableWindow(FALSE);
}
CWbemClassObject* pConsumerObject = ((CAction*)GetObjectPtr())->GetConsumerClassObject();
if( pConsumerObject )
{
pConsumerObject->GetProperty(_T("ToLine"),m_sTo);
pConsumerObject->GetProperty(_T("CcLine"),m_sCc);
pConsumerObject->GetProperty(_T("BccLine"),m_sBcc);
pConsumerObject->GetProperty(_T("SMTPServer"),m_sServer);
if( ! m_sServer.CompareNoCase(_T("NOOP")) )
{
m_sServer.Empty();
}
pConsumerObject->GetProperty(_T("Message"),m_sMessage);
pConsumerObject->GetProperty(_T("Subject"),m_sSubject);
delete pConsumerObject;
}
SendDlgItemMessage(IDC_SPIN1,UDM_SETRANGE32,0,9999);
UpdateData(FALSE);
return TRUE; // return TRUE unless you set the focus to a control
// EXCEPTION: OCX Property Pages should return FALSE
}
BOOL CActionEmailPage::OnApply()
{
if( ! CHMPropertyPage::OnApply() )
{
return FALSE;
}
UpdateData();
CWbemClassObject* pConsumerObject = ((CAction*)GetObjectPtr())->GetConsumerClassObject();
if( pConsumerObject )
{
pConsumerObject->SetProperty(_T("ToLine"),m_sTo);
pConsumerObject->SetProperty(_T("CcLine"),m_sCc);
pConsumerObject->SetProperty(_T("BccLine"),m_sBcc);
pConsumerObject->SetProperty(_T("SMTPServer"),m_sServer);
pConsumerObject->SetProperty(_T("Message"),m_sMessage);
pConsumerObject->SetProperty(_T("Subject"),m_sSubject);
pConsumerObject->SaveAllProperties();
delete pConsumerObject;
}
SetModified(FALSE);
return TRUE;
}
void CActionEmailPage::OnChangeEditBcc()
{
// TODO: If this is a RICHEDIT control, the control will not
// send this notification unless you override the CHMPropertyPage::OnInitDialog()
// function and call CRichEditCtrl().SetEventMask()
// with the ENM_CHANGE flag ORed into the mask.
SetModified();
}
void CActionEmailPage::OnChangeEditCc()
{
// TODO: If this is a RICHEDIT control, the control will not
// send this notification unless you override the CHMPropertyPage::OnInitDialog()
// function and call CRichEditCtrl().SetEventMask()
// with the ENM_CHANGE flag ORed into the mask.
SetModified();
}
void CActionEmailPage::OnChangeEditMessage()
{
// TODO: If this is a RICHEDIT control, the control will not
// send this notification unless you override the CHMPropertyPage::OnInitDialog()
// function and call CRichEditCtrl().SetEventMask()
// with the ENM_CHANGE flag ORed into the mask.
SetModified();
}
void CActionEmailPage::OnChangeEditServer()
{
// TODO: If this is a RICHEDIT control, the control will not
// send this notification unless you override the CHMPropertyPage::OnInitDialog()
// function and call CRichEditCtrl().SetEventMask()
// with the ENM_CHANGE flag ORed into the mask.
SetModified();
}
void CActionEmailPage::OnChangeEditSubject()
{
// TODO: If this is a RICHEDIT control, the control will not
// send this notification unless you override the CHMPropertyPage::OnInitDialog()
// function and call CRichEditCtrl().SetEventMask()
// with the ENM_CHANGE flag ORed into the mask.
SetModified();
}
void CActionEmailPage::OnChangeEditTo()
{
// TODO: If this is a RICHEDIT control, the control will not
// send this notification unless you override the CHMPropertyPage::OnInitDialog()
// function and call CRichEditCtrl().SetEventMask()
// with the ENM_CHANGE flag ORed into the mask.
SetModified();
}
void CActionEmailPage::OnButtonBcc()
{
CBccDialog dlg;
dlg.m_sBcc = m_sBcc;
if( dlg.DoModal() == IDOK )
{
m_sBcc = dlg.m_sBcc;
}
}
void CActionEmailPage::OnButtonCc()
{
CCcDialog dlg;
dlg.m_sCc = m_sCc;
if( dlg.DoModal() == IDOK )
{
m_sCc = dlg.m_sCc;
}
}
void CActionEmailPage::OnButtonInsertion()
{
CPoint pt;
GetCursorPos(&pt);
m_InsertionMenu.DisplayMenu(pt);
UpdateData();
SetModified();
}
void CActionEmailPage::OnButtonSubjectInsertion()
{
CPoint pt;
GetCursorPos(&pt);
m_SubjectInsertionMenu.DisplayMenu(pt);
UpdateData();
SetModified();
}
void CActionEmailPage::OnDestroy()
{
CHMPropertyPage::OnDestroy();
// v-marfin : bug 59643 : CnxPropertyPageDestory() must be called from this page's
// OnDestroy function.
CnxPropertyPageDestroy();
}