sfx2/source/dialog/mailmodelapi.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: mailmodelapi.cxx,v $
  10  * $Revision: 1.10 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_sfx2.hxx"
  33 // includes --------------------------------------------------------------
  34 #include <com/sun/star/beans/PropertyValue.hpp>
  35 #include <com/sun/star/frame/XFrame.hpp>
  36 #include <com/sun/star/io/XActiveDataSink.hpp>
  37 #include <com/sun/star/lang/XMultiServiceFactory.hpp>
  38 #include <com/sun/star/mozilla/XPluginInstance.hpp>
  39 #include <com/sun/star/ucb/XDataContainer.hpp>
  40 #include <com/sun/star/ucb/CommandAbortedException.hpp>
  41 #include <com/sun/star/uno/Reference.h>
  42 #include <com/sun/star/util/XURLTransformer.hpp>
  43 #include <com/sun/star/frame/XStorable.hpp>
  44 #include <com/sun/star/frame/XDispatchProvider.hpp>
  45 #include <com/sun/star/frame/XDispatch.hpp>
  46 #include <com/sun/star/util/XModifiable.hpp>
  47 #include <com/sun/star/system/XSimpleMailClientSupplier.hpp>
  48 #include <com/sun/star/system/SimpleMailClientFlags.hpp>
  49 #include <com/sun/star/frame/XModuleManager.hpp>
  50 #ifndef _RTL_TEXTENC_H
  51 #include <rtl/textench.h>
  52 #endif
  53 #include <vos/mutex.hxx>
  54 #include <rtl/uri.h>
  55 #include <rtl/uri.hxx>
  56 #include <rtl/ustrbuf.hxx>
  57 #include <unotools/streamhelper.hxx>
  58 #include <unotools/configitem.hxx>
  59 #include <comphelper/mediadescriptor.hxx>
  60 #include <vos/thread.hxx>
  61 #include <vcl/msgbox.hxx>
  62
  63 #include "mailmodelapi.hxx"
  64 #include <sfx2/docfilt.hxx>
  65 #include <sfx2/docfac.hxx>
  66 #include "sfxtypes.hxx"
  67
  68 #include "dialog.hrc"
  69 #include "sfxresid.hxx"
  70 #include <sfx2/sfxuno.hxx>
  71 #include <sfx2/fcontnr.hxx>
  72 #include "guisaveas.hxx"
  73
  74 #include <unotools/tempfile.hxx>
  75 #include <vcl/svapp.hxx>
  76 #include <svtools/stritem.hxx>
  77 #include <svtools/eitem.hxx>
  78 #include <svtools/useroptions.hxx>
  79 #include <comphelper/processfactory.hxx>
  80 #include <comphelper/extract.hxx>
  81 #include <ucbhelper/content.hxx>
  82 #include <toolkit/helper/vclunohelper.hxx>
  83 #include <tools/urlobj.hxx>
  84
  85 extern sal_Bool GetPasswd_Impl( const SfxItemSet* pSet, String& rPasswd );
  86
  87 // --------------------------------------------------------------
  88 using namespace ::com::sun::star::beans;
  89 using namespace ::com::sun::star::frame;
  90 using namespace ::com::sun::star::frame;
  91 using namespace ::com::sun::star::io;
  92 using namespace ::com::sun::star::lang;
  93 using namespace ::com::sun::star::mozilla;
  94 using namespace ::com::sun::star::ucb;
  95 using namespace ::com::sun::star::uno;
  96 using namespace ::com::sun::star::util;
  97 using namespace ::com::sun::star::system;
  98 using namespace ::rtl;
  99
 100 namespace
 101 {
 102     // functions -------------------------------------------------------------
 103
 104     BOOL CreateFromAddress_Impl( String& rFrom )
 105
 106     /*  [Beschreibung]
 107
 108         Diese Funktion versucht mit Hilfe des IniManagers eine From-Adresse
 109         zu erzeugen. daf"ur werden die Felder 'Vorname', 'Name' und 'EMail'
 110         aus der Applikations-Ini-Datei ausgelesen. Sollten diese Felder
 111         nicht gesetzt sein, wird FALSE zur"uckgegeben.
 112
 113         [R"uckgabewert]
 114
 115         TRUE:   Adresse konnte erzeugt werden.
 116         FALSE:  Adresse konnte nicht erzeugt werden.
 117     */
 118
 119     {
 120         SvtUserOptions aUserCFG;
 121         String aName            = aUserCFG.GetLastName  ();
 122         String aFirstName       = aUserCFG.GetFirstName ();
 123         if ( aFirstName.Len() || aName.Len() )
 124         {
 125             if ( aFirstName.Len() )
 126             {
 127                 rFrom = TRIM( aFirstName );
 128
 129                 if ( aName.Len() )
 130                     rFrom += ' ';
 131             }
 132             rFrom += TRIM( aName );
 133             // unerlaubte Zeichen entfernen
 134             rFrom.EraseAllChars( '<' );
 135             rFrom.EraseAllChars( '>' );
 136             rFrom.EraseAllChars( '@' );
 137         }
 138         String aEmailName = aUserCFG.GetEmail();
 139         // unerlaubte Zeichen entfernen
 140         aEmailName.EraseAllChars( '<' );
 141         aEmailName.EraseAllChars( '>' );
 142
 143         if ( aEmailName.Len() )
 144         {
 145             if ( rFrom.Len() )
 146                 rFrom += ' ';
 147             ( ( rFrom += '<' ) += TRIM( aEmailName ) ) += '>';
 148         }
 149         else
 150             rFrom.Erase();
 151         return ( rFrom.Len() > 0 );
 152     }
 153
 154 }
 155
 156 // class OThread
 157 class OMailSendThreadImpl : public ::vos::OThread
 158 {
 159     public:
 160         OMailSendThreadImpl(
 161                 Reference< XSimpleMailClient > xSimpleMailClient,
 162                 Reference< XSimpleMailMessage > xSimpleMailMessage,
 163                 const Reference< XFrame >&      _xCurrentFrame,
 164                 long nSendFlags ) :
 165             m_nSendFlags( nSendFlags ),
 166             m_bSend( sal_False ),
 167             m_xSimpleMailClient( xSimpleMailClient ),
 168             m_xSimpleMailMessage( xSimpleMailMessage ),
 169             m_xCurrentFrame(_xCurrentFrame) {}
 170
 171         virtual ~OMailSendThreadImpl();
 172
 173         virtual void SAL_CALL run();
 174         virtual void SAL_CALL onTerminated();
 175
 176     private:
 177         long            m_nSendFlags;
 178         sal_Bool        m_bSend;
 179         Reference< XSimpleMailClient > m_xSimpleMailClient;
 180         Reference< XSimpleMailMessage > m_xSimpleMailMessage;
 181         Reference< XFrame >     m_xCurrentFrame;
 182 };
 183
 184 OMailSendThreadImpl::~OMailSendThreadImpl()
 185 {
 186 }
 187
 188 void SAL_CALL OMailSendThreadImpl::run()
 189 {
 190     try
 191     {
 192         m_xSimpleMailClient->sendSimpleMailMessage( m_xSimpleMailMessage, m_nSendFlags );
 193         m_bSend = sal_True;
 194     }
 195     catch ( IllegalArgumentException& )
 196     {
 197         m_bSend = sal_False;
 198     }
 199     catch ( Exception& )
 200     {
 201         m_bSend = sal_False;
 202     }
 203
 204     if ( m_bSend == sal_False )
 205     {
 206         ::vos::OGuard aGuard( Application::GetSolarMutex() );
 207         Reference< ::com::sun::star::awt::XWindow > xParentWindow = m_xCurrentFrame->getContainerWindow();
 208         Window*                                     pParentWindow = VCLUnoHelper::GetWindow( xParentWindow );
 209
 210         ErrorBox aBox( pParentWindow, SfxResId( RID_ERRBOX_MAIL_CONFIG ));
 211         aBox.Execute();
 212     }
 213 }
 214
 215 void SAL_CALL OMailSendThreadImpl::onTerminated()
 216 {
 217     delete this;
 218 }
 219
 220 // class AddressList_Impl ------------------------------------------------
 221
 222 typedef String* AddressItemPtr_Impl;
 223 DECLARE_LIST( AddressList_Impl, AddressItemPtr_Impl )
 224
 225 // class SfxMailModel -----------------------------------------------
 226
 227 void SfxMailModel::ClearList( AddressList_Impl* pList )
 228 {
 229     if ( pList )
 230     {
 231         ULONG i, nCount = pList->Count();
 232         for ( i = 0; i < nCount; ++i )
 233             delete pList->GetObject(i);
 234         pList->Clear();
 235     }
 236 }
 237
 238 void SfxMailModel::MakeValueList( AddressList_Impl* pList, String& rValueList )
 239 {
 240     rValueList.Erase();
 241     if ( pList )
 242     {
 243         ULONG i, nCount = pList->Count();
 244         for ( i = 0; i < nCount; ++i )
 245         {
 246             if ( rValueList.Len() > 0 )
 247                 rValueList += ',';
 248             rValueList += *pList->GetObject(i);
 249         }
 250     }
 251 }
 252 namespace
 253 {
 254     String lcl_getFactoryName(const Reference<XInterface>& _xModel)
 255     {
 256         rtl::OUString sModuleIdentifier;
 257         rtl::OUString sFactoryShortName;
 258         Reference < XModuleManager > xModuleManager( ::comphelper::getProcessServiceFactory()->createInstance(
 259             ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.frame.ModuleManager")) ), UNO_QUERY );
 260
 261         if ( _xModel.is() )
 262         {
 263             try
 264             {
 265                 sModuleIdentifier = xModuleManager->identify( _xModel );
 266             }
 267             catch ( ::com::sun::star::frame::UnknownModuleException& )
 268             {
 269                 DBG_WARNING( "SfxHelp::GetHelpModuleName_Impl(): unknown module (help in help?)" );
 270             }
 271             catch ( Exception& )
 272             {
 273                 DBG_ERRORFILE( "SfxHelp::GetHelpModuleName_Impl(): exception of XModuleManager::identif        y()" );
 274             }
 275         }
 276
 277         return sModuleIdentifier;
 278     }
 279
 280     String lcl_createTempFileName(const Reference < XModel >& _xModel,const ::rtl::OUString& _sAttachmentTitle)
 281     {
 282     // create temp file name with leading chars and extension
 283         Reference < XStorable > xStor( _xModel, UNO_QUERY );
 284         String          aLeadingStr;
 285         if ( xStor.is() )
 286         {
 287             sal_Bool    bHasName = xStor->hasLocation();
 288
 289             if ( !bHasName )
 290             {
 291                 if ( _sAttachmentTitle.getLength() )
 292                     aLeadingStr = _sAttachmentTitle;
 293                 else
 294                     aLeadingStr = String( DEFINE_CONST_UNICODE("noname") );
 295             }
 296             else
 297             {
 298                 INetURLObject aFileObj(_xModel->getURL());
 299                 if ( aFileObj.hasExtension() )
 300                 {
 301                     aFileObj.removeExtension();
 302                     if ( _sAttachmentTitle.getLength() )
 303                         aLeadingStr = _sAttachmentTitle;
 304                     else
 305                         aLeadingStr = aFileObj.getName( INetURLObject::LAST_SEGMENT, true, INetURLObject::DECODE_WITH_CHARSET );
 306                     aLeadingStr += String::CreateFromAscii( "_" );
 307                 }
 308                 else
 309                 {
 310                     if ( _sAttachmentTitle.getLength() )
 311                         aLeadingStr = _sAttachmentTitle;
 312                     else
 313                         aLeadingStr = aFileObj.getName( INetURLObject::LAST_SEGMENT, true, INetURLObject::DECODE_WITH_CHARSET );
 314                     aLeadingStr += String::CreateFromAscii( "_" );
 315                 }
 316             }
 317         }
 318         return aLeadingStr;
 319     }
 320
 321 }
 322 SfxMailModel::SaveResult SfxMailModel::SaveDocument( const ::rtl::OUString& _sAttachmentTitle
 323                                     , const ::com::sun::star::uno::Reference< ::com::sun::star::frame::XModel >& _xModel
 324                                     , String& rFileName)
 325 {
 326     SaveResult                  eRet = SAVE_CANCELLED;
 327     try
 328     {
 329         Reference<XModifiable> xMod(_xModel,UNO_QUERY);
 330
 331         // save the document
 332         if ( xMod.is() )
 333         {
 334             // save old settings
 335 /*
 336             BOOL bModified = xMod->isModified();
 337             // prepare for mail export
 338  TODO
 339             SfxDispatcher* pDisp = pTopViewFrm->GetDispatcher();
 340             pDisp->Execute( SID_MAIL_PREPAREEXPORT, SFX_CALLMODE_SYNCHRON );
 341 */
 342             // detect filter
 343             const SfxFilter* pFilter = SfxFilter::GetDefaultFilter(lcl_getFactoryName(_xModel));
 344 //                      sal_Bool bHasFilter = pFilter != NULL;
 345
 346             sal_Bool bRet = sal_False;
 347             // create temp file name with leading chars and extension
 348             Reference < XStorable > xStor( _xModel, UNO_QUERY );
 349             if ( xStor.is() )
 350             {
 351                 String*         pExt = NULL;
 352                 INetURLObject aFileObj(_xModel->getURL());
 353                 if ( aFileObj.hasExtension() )
 354                     pExt = new String( String::CreateFromAscii( "." ) + (OUString) aFileObj.getExtension() );
 355
 356                 String aLeadingStr = lcl_createTempFileName(_xModel,_sAttachmentTitle);
 357
 358                 if ( pFilter && !pExt )
 359                 {
 360                     pExt = new String( pFilter->GetWildcard()().GetToken(0) );
 361                     // erase the '*' from the extension (e.g. "*.sdw")
 362                     pExt->Erase( 0, 1 );
 363                 }
 364
 365                 {
 366                     ::utl::TempFile aTempFile( aLeadingStr, pExt );
 367                     rFileName = aTempFile.GetURL();
 368                 }
 369                 delete pExt;
 370                 // save document to temp file
 371
 372                 // save document to temp file
 373                 Sequence < PropertyValue > aArgs( _xModel->getArgs() );
 374                 ::comphelper::MediaDescriptor aMedia(aArgs);
 375
 376                 if ( pFilter )
 377                 {
 378                     ::rtl::OUString sFilter(pFilter->GetFilterName());
 379                     ::rtl::OUString sFilterName(RTL_CONSTASCII_USTRINGPARAM("FilterName"));
 380                     if ( !aMedia.createItemIfMissing(sFilterName,sFilter) )
 381                         aMedia[sFilterName] <<= sFilter;
 382                 }
 383
 384                 ::rtl::OUString sURL(RTL_CONSTASCII_USTRINGPARAM("URL"));
 385                 if ( !aMedia.createItemIfMissing(sURL,::rtl::OUString(rFileName)) )
 386                     aMedia[sURL] <<= ::rtl::OUString(rFileName);
 387
 388                 ::rtl::OUString sSaveTo(RTL_CONSTASCII_USTRINGPARAM("SaveTo"));
 389                 if ( !aMedia.createItemIfMissing(sSaveTo,sal_True) )
 390                     aMedia[sSaveTo] <<= sal_True;
 391
 392                 ::rtl::OUString sReadOnly(RTL_CONSTASCII_USTRINGPARAM("ReadOnly"));
 393                 if ( !aMedia.createItemIfMissing(sReadOnly,sal_False) )
 394                     aMedia[sReadOnly] <<= sal_False;
 395
 396                 aMedia >> aArgs;
 397
 398                 try
 399                 {
 400                     Reference < XMultiServiceFactory > xMgr = ::comphelper::getProcessServiceFactory();
 401                     SfxStoringHelper aHelper(xMgr);
 402                     aHelper.GUIStoreModel(_xModel,::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("SaveAs")),aArgs, sal_False, ::rtl::OUString() );
 403                     //  xStor->storeToURL(rFileName,aArgs);
 404                     bRet = sal_True;
 405                 }
 406                 catch(Exception&)
 407                 {
 408                 }
 409             }
 410
 411             // restore old settings
 412 /* TODO
 413             if ( !bModified && xDocShell->IsEnableSetModified() )
 414                 xDocShell->SetModified( FALSE );
 415 */
 416             eRet = bRet ? SAVE_SUCCESSFULL : SAVE_ERROR;
 417         }
 418     }
 419     catch(Exception&)
 420     {
 421         OSL_ENSURE(0,"Exception catched!");
 422     }
 423
 424     return eRet;
 425 }
 426 SfxMailModel::SaveResult SfxMailModel::SaveDocAsPDF( const ::rtl::OUString& _sAttachmentTitle
 427                                     , const ::com::sun::star::uno::Reference< ::com::sun::star::frame::XModel >& _xModel
 428                                     , String& rFileName)
 429 {
 430     SaveResult eRet = SAVE_CANCELLED;
 431     try
 432     {
 433         Reference<XModifiable> xMod(_xModel,UNO_QUERY);
 434
 435         // save the document
 436         if ( xMod.is() )
 437         {
 438             /* TODO
 439             // save old settings
 440             BOOL bModified = xMod->isModified();
 441             // prepare for mail export
 442             SfxDispatcher* pDisp = pTopViewFrm->GetDispatcher();
 443             pDisp->Execute( SID_MAIL_PREPAREEXPORT, SFX_CALLMODE_SYNCHRON );
 444             */
 445
 446             // Get PDF Filter from document
 447             ::rtl::OUString sPDFMediaType(RTL_CONSTASCII_USTRINGPARAM("application/pdf"));
 448
 449             sal_Bool bRet = sal_False;
 450             // create temp file name with leading chars and extension
 451             Reference < XStorable > xStor( _xModel, UNO_QUERY );
 452             if ( xStor.is() )
 453             {
 454                 String aLeadingStr = lcl_createTempFileName(_xModel,_sAttachmentTitle);
 455                 String aPDFExtension = String::CreateFromAscii( ".pdf" );
 456                 ::utl::TempFile aTempFile( aLeadingStr, &aPDFExtension );
 457
 458                 rFileName = aTempFile.GetURL();
 459
 460                 // save document to temp file
 461                 Sequence < PropertyValue > aArgs( _xModel->getArgs() );
 462                 ::comphelper::MediaDescriptor aMedia(aArgs);
 463
 464                 ::rtl::OUString sMediaType(RTL_CONSTASCII_USTRINGPARAM("MediaType"));
 465                 if ( !aMedia.createItemIfMissing(sMediaType,sPDFMediaType) )
 466                     aMedia[sMediaType] <<= sPDFMediaType;
 467
 468                 ::rtl::OUString sURL(RTL_CONSTASCII_USTRINGPARAM("URL"));
 469                 if ( !aMedia.createItemIfMissing(sURL,::rtl::OUString(rFileName)) )
 470                     aMedia[sURL] <<= ::rtl::OUString(rFileName);
 471                 aMedia >> aArgs;
 472
 473                 try
 474                 {
 475                     Reference < XMultiServiceFactory > xMgr = ::comphelper::getProcessServiceFactory();
 476                     SfxStoringHelper aHelper(xMgr);
 477                     aHelper.GUIStoreModel(_xModel,::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("ExportToPDF")),aArgs, sal_False, ::rtl::OUString);
 478                     //  xStor->storeToURL(rFileName,aArgs);
 479                     bRet = sal_True;
 480                 }
 481                 catch(Exception&)
 482                 {
 483                 }
 484
 485                 eRet = bRet ? SAVE_SUCCESSFULL : SAVE_CANCELLED;
 486
 487                 // restore old settings
 488                 /* TODO
 489                 if ( !bModified && xDocShell->IsEnableSetModified() )
 490                     xDocShell->SetModified( FALSE );
 491                 */
 492             }
 493         }
 494     }
 495     catch(Exception&)
 496     {
 497         OSL_ENSURE(0,"Exception catched!");
 498     }
 499
 500     return eRet;
 501 }
 502 // -----------------------------------------------------------------------------
 503 SfxMailModel::SendMailResult SfxMailModel::AttachDocument(   MailDocType _eMailDocType
 504                                     , const Reference< XModel >& _xModel
 505                                     , const ::rtl::OUString& _sAttachmentTitle)
 506 {
 507     SaveResult eSaveResult;
 508     String aFileName;
 509
 510 //      sal_Bool bSuccessfull = sal_False;
 511     if ( _eMailDocType == TYPE_SELF )
 512         eSaveResult = SaveDocument( _sAttachmentTitle,_xModel,aFileName);
 513     else
 514         eSaveResult = SaveDocAsPDF( _sAttachmentTitle,_xModel,aFileName);
 515
 516     if ( eSaveResult == SAVE_SUCCESSFULL && aFileName.Len() )
 517         maAttachedDocuments.push_back(aFileName);
 518     return eSaveResult == SAVE_SUCCESSFULL ? SEND_MAIL_OK : SEND_MAIL_ERROR;
 519 }
 520 // -----------------------------------------------------------------------------
 521
 522 IMPL_LINK_INLINE_START( SfxMailModel, DoneHdl, void*, EMPTYARG )
 523 {
 524     mbLoadDone = sal_True;
 525     return 0;
 526 }
 527 // -----------------------------------------------------------------------------
 528 IMPL_LINK_INLINE_END( SfxMailModel, DoneHdl, void*, EMPTYARG )
 529
 530 SfxMailModel::SfxMailModel( const Reference< XFrame >& _xFrame) :
 531
 532     mpToList    ( NULL ),
 533     mpCcList    ( NULL ),
 534     mpBccList   ( NULL ),
 535     m_xCurrentFrame     ( _xFrame ),
 536     mePriority  ( PRIO_NORMAL ),
 537     mbLoadDone  ( sal_True )
 538
 539 {
 540 }
 541
 542 SfxMailModel::~SfxMailModel()
 543 {
 544     ClearList( mpToList );
 545     delete mpToList;
 546     ClearList( mpCcList );
 547     delete mpCcList;
 548     ClearList( mpBccList );
 549     delete mpBccList;
 550 }
 551
 552 void SfxMailModel::AddAddress( const String& rAddress, AddressRole eRole )
 553 {
 554     // don't add a empty address
 555     if ( rAddress.Len() > 0 )
 556     {
 557         AddressList_Impl* pList = NULL;
 558         if ( ROLE_TO == eRole )
 559         {
 560             if ( !mpToList )
 561                 // create the list
 562                 mpToList = new AddressList_Impl;
 563             pList = mpToList;
 564         }
 565         else if ( ROLE_CC == eRole )
 566         {
 567             if ( !mpCcList )
 568                 // create the list
 569                 mpCcList = new AddressList_Impl;
 570             pList = mpCcList;
 571         }
 572         else if ( ROLE_BCC == eRole )
 573         {
 574             if ( !mpBccList )
 575                 // create the list
 576                 mpBccList = new AddressList_Impl;
 577             pList = mpBccList;
 578         }
 579         else
 580         {
 581             DBG_ERRORFILE( "invalid address role" );
 582         }
 583
 584         if ( pList )
 585         {
 586             // add address to list
 587             AddressItemPtr_Impl pAddress = new String( rAddress );
 588             pList->Insert( pAddress, LIST_APPEND );
 589         }
 590     }
 591 }
 592
 593 SfxMailModel::SendMailResult SfxMailModel::Send( )
 594 {
 595     OSL_ENSURE(!maAttachedDocuments.empty(),"No document added!");
 596     SendMailResult      eResult = SEND_MAIL_ERROR;
 597     if ( !maAttachedDocuments.empty() )
 598     {
 599
 600         Reference < XMultiServiceFactory > xMgr = ::comphelper::getProcessServiceFactory();
 601         if ( xMgr.is() )
 602         {
 603             Reference< XSimpleMailClientSupplier >      xSimpleMailClientSupplier;
 604
 605             // Prefer the SimpleSystemMail service if available
 606             xSimpleMailClientSupplier = Reference< XSimpleMailClientSupplier >(
 607                 xMgr->createInstance( OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.system.SimpleSystemMail" ))),
 608                 UNO_QUERY );
 609
 610             if ( ! xSimpleMailClientSupplier.is() )
 611             {
 612                 xSimpleMailClientSupplier = Reference< XSimpleMailClientSupplier >(
 613                     xMgr->createInstance( OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.system.SimpleCommandMail" ))),
 614                     UNO_QUERY );
 615             }
 616
 617             if ( xSimpleMailClientSupplier.is() )
 618             {
 619                 Reference< XSimpleMailClient > xSimpleMailClient = xSimpleMailClientSupplier->querySimpleMailClient();
 620
 621                 if ( !xSimpleMailClient.is() )
 622                 {
 623                     // no mail client support => message box!
 624                     return SEND_MAIL_ERROR;
 625                 }
 626
 627                 // we have a simple mail client
 628                 Reference< XSimpleMailMessage > xSimpleMailMessage = xSimpleMailClient->createSimpleMailMessage();
 629                 if ( xSimpleMailMessage.is() )
 630                 {
 631                     sal_Int32 nSendFlags = SimpleMailClientFlags::DEFAULTS;
 632                     if ( maFromAddress.Len() == 0 )
 633                     {
 634                         // from address not set, try figure out users e-mail address
 635                         CreateFromAddress_Impl( maFromAddress );
 636                     }
 637                     xSimpleMailMessage->setOriginator( maFromAddress );
 638
 639                     sal_Int32 nToCount          = mpToList ? mpToList->Count() : 0;
 640                     sal_Int32 nCcCount          = mpCcList ? mpCcList->Count() : 0;
 641                     sal_Int32 nCcSeqCount       = nCcCount;
 642
 643                     // set recipient (only one) for this simple mail server!!
 644                     if ( nToCount > 1 )
 645                     {
 646                         nCcSeqCount = nToCount - 1 + nCcCount;
 647                         xSimpleMailMessage->setRecipient( *mpToList->GetObject( 0 ));
 648                         nSendFlags = SimpleMailClientFlags::NO_USER_INTERFACE;
 649                     }
 650                     else if ( nToCount == 1 )
 651                     {
 652                         xSimpleMailMessage->setRecipient( *mpToList->GetObject( 0 ));
 653                         nSendFlags = SimpleMailClientFlags::NO_USER_INTERFACE;
 654                     }
 655
 656                     // all other recipient must be handled with CC recipients!
 657                     if ( nCcSeqCount > 0 )
 658                     {
 659                         sal_Int32                               nIndex = 0;
 660                         Sequence< OUString >    aCcRecipientSeq;
 661
 662                         aCcRecipientSeq.realloc( nCcSeqCount );
 663                         if ( nCcSeqCount > nCcCount )
 664                         {
 665                             for ( sal_Int32 i = 1; i < nToCount; ++i )
 666                             {
 667                                 aCcRecipientSeq[nIndex++] = *mpToList->GetObject(i);
 668                             }
 669                         }
 670
 671                         for ( sal_Int32 i = 0; i < nCcCount; i++ )
 672                         {
 673                             aCcRecipientSeq[nIndex++] = *mpCcList->GetObject(i);
 674                         }
 675                         xSimpleMailMessage->setCcRecipient( aCcRecipientSeq );
 676                     }
 677
 678                     sal_Int32 nBccCount = mpBccList ? mpBccList->Count() : 0;
 679                     if ( nBccCount > 0 )
 680                     {
 681                         Sequence< OUString > aBccRecipientSeq( nBccCount );
 682                         for ( sal_Int32 i = 0; i < nBccCount; ++i )
 683                         {
 684                             aBccRecipientSeq[i] = *mpBccList->GetObject(i);
 685                         }
 686                         xSimpleMailMessage->setBccRecipient( aBccRecipientSeq );
 687                     }
 688
 689                     Sequence< OUString > aAttachmentSeq(&(maAttachedDocuments[0]),maAttachedDocuments.size());
 690
 691                     xSimpleMailMessage->setSubject( maSubject );
 692                     xSimpleMailMessage->setAttachement( aAttachmentSeq );
 693
 694                     // Bugfix: #95743#
 695                     // Due to the current clipboard implementation we cannot stop the main thread
 696                     // because the clipboard implementation calls the main thread from another thread
 697                     // and this would result in a deadlock!
 698                     // Currently we create a thread to send a message and process all remaining error
 699                     // handling in this thread!!
 700
 701                     OMailSendThreadImpl* pMailSendThread = new OMailSendThreadImpl( xSimpleMailClient, xSimpleMailMessage, m_xCurrentFrame,nSendFlags );
 702                     pMailSendThread->create();
 703
 704                     // Return always true as the real error handling occurss in the OMailSendThreadImpl-implementation!
 705                     eResult = SEND_MAIL_OK;
 706                 }
 707             }
 708         }
 709     }
 710     else
 711         eResult = SEND_MAIL_CANCELLED;
 712
 713     return eResult;
 714 }