/************************************************************************* * * $RCSfile: mailmrge.cxx,v $ * * $Revision: 1.10 $ * * last change: $Author: os $ $Date: 2001-05-15 10:02:00 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses * * - GNU Lesser General Public License Version 2.1 * - Sun Industry Standards Source License Version 1.1 * * Sun Microsystems Inc., October, 2000 * * GNU Lesser General Public License Version 2.1 * ============================================= * Copyright 2000 by Sun Microsystems, Inc. * 901 San Antonio Road, Palo Alto, CA 94303, USA * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License version 2.1, as published by the Free Software Foundation. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, * MA 02111-1307 USA * * * Sun Industry Standards Source License Version 1.1 * ================================================= * The contents of this file are subject to the Sun Industry Standards * Source License Version 1.1 (the "License"); You may not use this file * except in compliance with the License. You may obtain a copy of the * License at http://www.openoffice.org/license.html. * * Software provided under this License is provided on an "AS IS" basis, * WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, * WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS, * MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING. * See the License for the specific provisions governing your rights and * obligations concerning the Software. * * The Initial Developer of the Original Code is: Sun Microsystems, Inc. * * Copyright: 2000 by Sun Microsystems, Inc. * * All Rights Reserved. * * Contributor(s): _______________________________________ * * ************************************************************************/ #ifdef PRECOMPILED #include "ui_pch.hxx" #endif #pragma hdrstop #ifndef _MSGBOX_HXX //autogen #include #endif #ifndef _URLOBJ_HXX #include #endif #ifndef INCLUDED_SVTOOLS_PATHOPTIONS_HXX #include #endif #ifndef _MAILENUM_HXX //autogen #include #endif #ifndef _IODLG_HXX #include #endif #ifndef _SVX_MULTIFIL_HXX #include #endif #ifndef _HELPID_H #include #endif #ifndef _VIEW_HXX #include #endif #ifndef _DOCSH_HXX #include #endif #ifndef _WRTSH_HXX #include #endif #ifndef _DBMGR_HXX #include #endif #ifndef _DBUI_HXX #include #endif #ifndef _SWMODULE_HXX #include #endif #ifndef _MODCFG_HXX #include #endif #ifndef _ENVELP_HRC #include #endif #ifndef _MAILMRGE_HRC #include #endif #ifndef _MAILMRGE_HXX #include #endif #ifndef _COM_SUN_STAR_FRAME_XDISPATCHPROVIDER_HPP_ #include #endif #ifndef _COM_SUN_STAR_SDBCX_XCOLUMNSSUPPLIER_HPP_ #include #endif #ifndef _COM_SUN_STAR_SDBC_XDATASOURCE_HPP_ #include #endif #ifndef _COM_SUN_STAR_FRAME_XFRAME_HPP_ #include #endif #ifndef _TOOLKIT_HELPER_VCLUNOHELPER_HXX_ #include #endif #ifndef _COMPHELPER_PROCESSFACTORY_HXX_ #include #endif #ifndef _COM_SUN_STAR_UI_XFOLDERPICKER_HPP_ #include #endif using namespace rtl; using namespace com::sun::star::container; using namespace com::sun::star::lang; using namespace com::sun::star::sdbc; using namespace com::sun::star::sdbcx; using namespace com::sun::star::beans; using namespace com::sun::star::util; using namespace com::sun::star::uno; using namespace com::sun::star::frame; using namespace ::com::sun::star::ui; #define C2S(cChar) UniString::CreateFromAscii(cChar) #define C2U(cChar) OUString::createFromAscii(cChar) /*------------------------------------------------------------------------ Beschreibung: ------------------------------------------------------------------------*/ SwMailMergeDlg::SwMailMergeDlg(Window* pParent, SwWrtShell& rShell, const String& rSourceName, const String& rTblName, sal_Int32 nCommandType, Sequence< sal_Int32 >* pSelection) : SvxStandardDialog(pParent, SW_RES(DLG_MAILMERGE)), pBeamerWin (new Window(this, ResId(WIN_BEAMER))), aAllRB (this, SW_RES(RB_ALL)), aMarkedRB (this, SW_RES(RB_MARKED)), aFromRB (this, SW_RES(RB_FROM)), aFromNF (this, SW_RES(NF_FROM)), aBisFT (this, SW_RES(FT_BIS)), aToNF (this, SW_RES(NF_TO)), aRecordGB (this, SW_RES(GB_RECORD)), aPrinterRB (this, SW_RES(RB_PRINTER)), aMailingRB (this, SW_RES(RB_MAILING)), aFileRB (this, SW_RES(RB_FILE)), aSingleJobsCB (this, SW_RES(CB_SINGLE_JOBS)), aPathFT (this, SW_RES(FT_PATH)), aPathED (this, SW_RES(ED_PATH)), aPathPB (this, SW_RES(PB_PATH)), aFilenameFT (this, SW_RES(FT_FILENAME)), aColumnRB (this, SW_RES(RB_COLUMN)), aFilenameRB (this, SW_RES(RB_FILENAME)), aColumnLB (this, SW_RES(LB_COLUMN)), aFilenameED (this, SW_RES(ED_FILENAME)), aAddressFT (this, SW_RES(FT_ADDRESS)), aAddressFldLB (this, SW_RES(LB_ADDRESSFLD)), aSubjectFT (this, SW_RES(FT_SUBJECT)), aSubjectED (this, SW_RES(ED_SUBJECT)), aFormatFT (this, SW_RES(FT_FORMAT)), aAttachFT (this, SW_RES(FT_ATTACH)), aAttachED (this, SW_RES(ED_ATTACH)), aAttachPB (this, SW_RES(PB_ATTACH)), aFormatSwCB (this, SW_RES(CB_FORMAT_SW)), aFormatHtmlCB (this, SW_RES(CB_FORMAT_HTML)), aFormatRtfCB (this, SW_RES(CB_FORMAT_RTF)), aDestGB (this, SW_RES(GB_DEST)), aOkBTN (this, SW_RES(BTN_OK)), aCancelBTN (this, SW_RES(BTN_CANCEL)), aHelpBTN (this, SW_RES(BTN_HELP)), rSh (rShell), rDBName (rSourceName), rTableName (rTblName), nMergeType (DBMGR_MERGE_MAILING) { FreeResource(); if(pSelection) { aSelection = *pSelection; //move all controls long nDiff = aRecordGB.GetPosPixel().Y() - pBeamerWin->GetPosPixel().Y(); pBeamerWin->Show(FALSE); Size aSize = GetSizePixel(); aSize.Height() -= nDiff; SetSizePixel(aSize); Window* aCntrlArr[] = { &aAllRB , &aMarkedRB , &aFromRB , &aFromNF , &aBisFT , &aToNF , &aRecordGB , &aPrinterRB , &aMailingRB , &aFileRB , &aSingleJobsCB, &aPathFT , &aPathED , &aPathPB , &aFilenameFT , &aColumnRB , &aFilenameRB , &aColumnLB , &aFilenameED , &aAddressFT , &aAddressFldLB, &aSubjectFT , &aSubjectED , &aFormatFT , &aAttachFT , &aAttachED , &aAttachPB , &aFormatHtmlCB, &aFormatRtfCB , &aFormatSwCB , &aDestGB , 0}; for( Window** ppW = aCntrlArr; *ppW; ++ppW ) { Point aPnt( (*ppW)->GetPosPixel() ); aPnt.Y() -= nDiff; (*ppW)->SetPosPixel( aPnt ); } } else { try { // create a frame wrapper for myself Reference< XMultiServiceFactory > xMgr = comphelper::getProcessServiceFactory(); xFrame = Reference< XFrame >(xMgr->createInstance(C2U("com.sun.star.frame.Frame")), UNO_QUERY); if(xFrame.is()) { xFrame->initialize( VCLUnoHelper::GetInterface ( pBeamerWin ) ); } } catch (Exception&) { xFrame.clear(); } if(xFrame.is()) { Reference xDP(xFrame, UNO_QUERY); URL aURL; aURL.Complete = C2U(".component:DB/DataSourceBrowser"); Reference xD = xDP->queryDispatch(aURL, C2U(""), 0x0C); if(xD.is()) { Sequence aProperties(3); PropertyValue* pProperties = aProperties.getArray(); pProperties[0].Name = C2U("DataSourceName"); pProperties[0].Value <<= OUString(rSourceName); pProperties[1].Name = C2U("Command"); pProperties[1].Value <<= OUString(rTableName); pProperties[2].Name = C2U("CommandType"); pProperties[2].Value <<= nCommandType; xD->dispatch(aURL, aProperties); pBeamerWin->Show(); } } } pModOpt = SW_MOD()->GetModuleConfig(); aSingleJobsCB.Check(pModOpt->IsSinglePrintJob()); sal_Int16 nMailingMode(pModOpt->GetMailingFormats()); aFormatSwCB.Check((nMailingMode & TXTFORMAT_OFFICE) != 0); aFormatHtmlCB.Check((nMailingMode & TXTFORMAT_HTML) != 0); aFormatRtfCB.Check((nMailingMode & TXTFORMAT_RTF) != 0); aAllRB.Check(TRUE); // Handler installieren Link aLk = LINK(this, SwMailMergeDlg, ButtonHdl); aOkBTN.SetClickHdl(aLk); aPathPB.SetClickHdl(LINK(this, SwMailMergeDlg, InsertPathHdl)); aAttachPB.SetClickHdl(LINK(this, SwMailMergeDlg, AttachFileHdl)); aLk = LINK(this, SwMailMergeDlg, RadioButtonHdl); aPrinterRB.SetClickHdl(aLk); aMailingRB.SetClickHdl(aLk); aFileRB.SetClickHdl(aLk); aLk = LINK(this, SwMailMergeDlg, FilenameHdl); aColumnRB.SetClickHdl(aLk); aFilenameRB.SetClickHdl(aLk); BOOL bColumn = pModOpt->IsNameFromColumn(); if(bColumn) aColumnRB.Check(); else aFilenameRB.Check(); FilenameHdl(bColumn ? &aColumnRB : &aFilenameRB); aLk = LINK(this, SwMailMergeDlg, ModifyHdl); aFromNF.SetModifyHdl(aLk); aToNF.SetModifyHdl(aLk); rSh.GetNewDBMgr()->GetColumnNames(&aAddressFldLB, rDBName, rTableName); for(USHORT nEntry = 0; nEntry < aAddressFldLB.GetEntryCount(); nEntry++) aColumnLB.InsertEntry(aAddressFldLB.GetEntry(nEntry)); aAddressFldLB.SelectEntry(C2S("EMAIL")); aPathED.SetText(pModOpt->GetMailingPath()); if (!aPathED.GetText().Len()) { SvtPathOptions aPathOpt; aPathED.SetText( aPathOpt.GetWorkPath() ); } String sMailName = pModOpt->GetMailName(); if (!bColumn || !sMailName.Len()) { aColumnLB.SelectEntry(C2S("NAME")); aFilenameED.SetText(sMailName); } else aColumnLB.SelectEntry(pModOpt->GetNameFromColumn()); if (aAddressFldLB.GetSelectEntryCount() == 0) aAddressFldLB.SelectEntryPos(0); if (aColumnLB.GetSelectEntryCount() == 0) aColumnLB.SelectEntryPos(0); const BOOL bEnable = aSelection.getLength() != 0; aMarkedRB.Enable(bEnable); if (bEnable) aMarkedRB.Check(); else { aAllRB.Check(); aMarkedRB.Enable(FALSE); } } /*------------------------------------------------------------------------ Beschreibung: ------------------------------------------------------------------------*/ SwMailMergeDlg::~SwMailMergeDlg() { if(xFrame.is()) { xFrame->setComponent(NULL, NULL); xFrame->dispose(); } else delete pBeamerWin; } /*------------------------------------------------------------------------ Beschreibung: ------------------------------------------------------------------------*/ void SwMailMergeDlg::Apply() { } /*------------------------------------------------------------------------ Beschreibung: ------------------------------------------------------------------------*/ IMPL_LINK( SwMailMergeDlg, ButtonHdl, Button *, pBtn ) { if (pBtn == &aOkBTN) { ExecQryShell(FALSE); EndDialog(RET_OK); } return 0; } /*------------------------------------------------------------------------ Beschreibung: ------------------------------------------------------------------------*/ IMPL_LINK( SwMailMergeDlg, RadioButtonHdl, RadioButton *, pBtn ) { if (pBtn == &aFileRB) { aAddressFT.Hide(); aAddressFldLB.Hide(); aSubjectFT.Hide(); aSubjectED.Hide(); aFormatFT.Hide(); aFormatSwCB.Hide(); aFormatHtmlCB.Hide(); aFormatRtfCB.Hide(); aSingleJobsCB.Hide(); aAttachFT.Hide(); aAttachED.Hide(); aAttachPB.Hide(); aPathFT.Show(); aPathED.Show(); aPathPB.Show(); aFilenameFT.Show(); aColumnRB.Show(); aFilenameRB.Show(); aColumnLB.Show(); aFilenameED.Show(); } else { aAddressFT.Show(); aAddressFldLB.Show(); aSubjectFT.Show(); aSubjectED.Show(); aFormatFT.Show(); aFormatSwCB.Show(); aFormatHtmlCB.Show(); aFormatRtfCB.Show(); aAttachFT.Show(); aAttachED.Show(); aAttachPB.Show(); aPathFT.Hide(); aPathED.Hide(); aPathPB.Hide(); aFilenameFT.Hide(); aColumnRB.Hide(); aFilenameRB.Hide(); aColumnLB.Hide(); aFilenameED.Hide(); const BOOL bEnable = pBtn != &aPrinterRB; aAddressFT.Enable(bEnable); aAddressFldLB.Enable(bEnable); aSubjectFT.Enable(bEnable); aSubjectED.Enable(bEnable); aFormatFT.Enable(bEnable); aFormatSwCB.Enable(bEnable); aFormatHtmlCB.Enable(bEnable); aFormatRtfCB.Enable(bEnable); aAttachFT.Enable(bEnable); aAttachED.Enable(bEnable); aAttachPB.Enable(bEnable); aAddressFT.Show(bEnable); aAddressFldLB.Show(bEnable); aSingleJobsCB.Show(!bEnable); aSingleJobsCB.Enable(!bEnable); } return 0; } /*------------------------------------------------------------------------ Beschreibung: ------------------------------------------------------------------------*/ IMPL_LINK( SwMailMergeDlg, FilenameHdl, RadioButton *, pBtn ) { BOOL bEnable = pBtn == &aColumnRB; aColumnLB.Enable(bEnable); aFilenameED.Enable(!bEnable); return 0; } /*------------------------------------------------------------------------ Beschreibung: ------------------------------------------------------------------------*/ IMPL_LINK( SwMailMergeDlg, ModifyHdl, NumericField *, pFld ) { aFromRB.Check(); return (0); } /*------------------------------------------------------------------------ Beschreibung: ------------------------------------------------------------------------*/ void SwMailMergeDlg::ExecQryShell(BOOL bVisible) { SwNewDBMgr* pMgr = rSh.GetNewDBMgr(); if (aPrinterRB.IsChecked()) nMergeType = DBMGR_MERGE_MAILMERGE; else if (aMailingRB.IsChecked()) { nMergeType = DBMGR_MERGE_MAILING; pMgr->SetEMailColumn(aAddressFldLB.GetSelectEntry()); pMgr->SetSubject(aSubjectED.GetText()); pMgr->SetAttachment(aAttachED.GetText()); } else { nMergeType = DBMGR_MERGE_MAILFILES; String sPath(aPathED.GetText()); pModOpt->SetMailingPath(sPath); String sDelim(INET_PATH_TOKEN); if (sPath.Len() >= sDelim.Len() && sPath.Copy(sPath.Len()-sDelim.Len()).CompareTo(sDelim) != COMPARE_EQUAL) sPath += sDelim; pModOpt->SetIsNameFromColumn(aColumnRB.IsChecked()); if (aColumnRB.IsChecked()) { pMgr->SetEMailColumn(aColumnLB.GetSelectEntry()); pModOpt->SetNameFromColumn(aColumnLB.GetSelectEntry()); } else { String sName(aFilenameED.GetText()); if (!sName.Len()) { sName = rSh.GetView().GetDocShell()->GetTitle(); INetURLObject aTemp(sName); sName = aTemp.GetBase(); } sPath += sName; pMgr->SetEMailColumn(aEmptyStr); pModOpt->SetMailName(sName); } pMgr->SetSubject(sPath); } if (aFromRB.IsChecked()) // Liste Einfuegen { ULONG nStart = aFromNF.GetValue(); ULONG nEnd = aToNF.GetValue(); if (nEnd < nStart) { ULONG nZw = nEnd; nEnd = nStart; nStart = nZw; } aSelection.realloc(nEnd - nStart + 1); sal_Int32* pSelection = aSelection.getArray(); sal_Int32 nPos = 0; for (ULONG i = nStart; i <= nEnd; i++, nPos++) pSelection[nPos] = i; } if (aAllRB.IsChecked() ) aSelection.realloc(0); // Leere Selektion = Alles einfuegen pModOpt->SetSinglePrintJob(aSingleJobsCB.IsChecked()); BYTE nMailingMode = 0; if (aFormatSwCB.IsChecked()) nMailingMode |= TXTFORMAT_OFFICE; if (aFormatHtmlCB.IsChecked()) nMailingMode |= TXTFORMAT_HTML; if (aFormatRtfCB.IsChecked()) nMailingMode |= TXTFORMAT_RTF; pModOpt->SetMailingFormats(nMailingMode); } /*------------------------------------------------------------------------ Beschreibung: ------------------------------------------------------------------------*/ IMPL_LINK( SwMailMergeDlg, InsertPathHdl, PushButton *, pBtn ) { String sPath( aPathED.GetText() ); if( !sPath.Len() ) { SvtPathOptions aPathOpt; sPath = aPathOpt.GetWorkPath(); } Reference< XMultiServiceFactory > xMgr( ::comphelper::getProcessServiceFactory() ); Reference < XFolderPicker > xFP; if( xMgr.is() ) { xFP = Reference< XFolderPicker >( xMgr->createInstance( C2U( "com.sun.star.ui.FolderPicker" ) ), UNO_QUERY ); } DBG_ERROR("how to set help ids at com.sun.star.ui.FolderPicker") // pFileDlg->SetHelpId(HID_FILEDLG_MAILMRGE1); xFP->setDisplayDirectory(sPath); if( xFP->execute() == RET_OK ) { aPathED.SetText(xFP->getDisplayDirectory()); } return 0; } /*------------------------------------------------------------------------ Beschreibung: ------------------------------------------------------------------------*/ IMPL_LINK( SwMailMergeDlg, AttachFileHdl, PushButton *, pBtn ) { SvxMultiFileDialog* pFileDlg = new SvxMultiFileDialog(this); pFileDlg->SetFiles(aAttachED.GetText()); pFileDlg->SetHelpId(HID_FILEDLG_MAILMRGE2); if (pFileDlg->Execute()) aAttachED.SetText(pFileDlg->GetFiles()); delete pFileDlg; return 0; }