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.
tdepim/kmail/mailserviceimpl.cpp

136 lines
5.0 KiB

/*
*
* This file is part of KMail, the KDE mail client.
* Copyright (c) 2003 Zack Rusin <zack@kde.org>
*
* KMail is free software; you can redistribute it and/or modify it
* under the terms of the GNU General Public License, version 2, as
* published by the Free Software Foundation.
*
* KMail 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
* General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*
* In addition, as a special exception, the copyright holders give
* permission to link the code of this program with any edition of
* the TQt library by Trolltech AS, Norway (or with modified versions
* of TQt that use the same license as TQt), and distribute linked
* combinations including the two. You must obey the GNU General
* Public License in all respects for all of the code used other than
* TQt. If you modify this file, you may extend this exception to
* your version of the file, but you are not obligated to do so. If
* you do not wish to do so, delete this exception statement from
* your version.
*/
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#include "mailserviceimpl.h"
#include "composer.h"
#include "kmmessage.h"
#include "kmmsgpart.h"
#include <dcopobject.h>
#include <kurl.h>
#include <kdebug.h>
#include <tqstring.h>
namespace KMail {
MailServiceImpl::MailServiceImpl()
: DCOPObject( "MailTransportServiceIface" )
{
}
bool MailServiceImpl::sendMessage( const TQString& from, const TQString& to,
const TQString& cc, const TQString& bcc,
const TQString& subject, const TQString& body,
const KURL::List& attachments )
{
if ( to.isEmpty() && cc.isEmpty() && bcc.isEmpty() )
return false;
KMMessage *msg = new KMMessage;
msg->initHeader();
msg->setCharset( "utf-8" );
if ( !from.isEmpty() ) msg->setFrom( from );
if ( !to.isEmpty() ) msg->setTo( to );
if ( !cc.isEmpty() ) msg->setCc( cc );
if ( !bcc.isEmpty() ) msg->setBcc( bcc );
if ( !subject.isEmpty() ) msg->setSubject( subject );
if ( !body.isEmpty() ) msg->setBody( body.utf8() );
KMail::Composer * cWin = KMail::makeComposer( msg );
cWin->setCharset("", TRUE);
cWin->addAttachmentsAndSend(attachments, "", 1);//send now
return true;
}
bool MailServiceImpl::sendMessage( const TQString& to,
const TQString& cc, const TQString& bcc,
const TQString& subject, const TQString& body,
const KURL::List& attachments )
{
kdDebug(5006) << "DCOP call MailTransportServiceIface bool sendMessage(TQString to,TQString cc,TQString bcc,TQString subject,TQString body,KURL::List attachments)" << endl;
kdDebug(5006) << "This DCOP call is deprecated. Use the corresponding DCOP call with the additional parameter TQString from instead." << endl;
return sendMessage( TQString(), to, cc, bcc, subject, body, attachments );
}
bool MailServiceImpl::sendMessage( const TQString& from, const TQString& to,
const TQString& cc, const TQString& bcc,
const TQString& subject, const TQString& body,
const TQByteArray& attachment )
{
if ( to.isEmpty() && cc.isEmpty() && bcc.isEmpty() )
return false;
KMMessage *msg = new KMMessage;
msg->initHeader();
msg->setCharset( "utf-8" );
if ( !from.isEmpty() ) msg->setFrom( from );
if ( !to.isEmpty() ) msg->setTo( to );
if ( !cc.isEmpty() ) msg->setCc( cc );
if ( !bcc.isEmpty() ) msg->setBcc( bcc );
if ( !subject.isEmpty() ) msg->setSubject( subject );
if ( !body.isEmpty() ) msg->setBody( body.utf8() );
KMMessagePart *part = new KMMessagePart;
part->setCteStr( "base64" );
part->setBodyEncodedBinary( attachment );
msg->addBodyPart( part );
KMail::Composer * cWin = KMail::makeComposer( msg );
cWin->setCharset("", TRUE);
return true;
}
bool MailServiceImpl::sendMessage( const TQString& to,
const TQString& cc, const TQString& bcc,
const TQString& subject, const TQString& body,
const TQByteArray& attachment )
{
kdDebug(5006) << "DCOP call MailTransportServiceIface bool sendMessage(TQString to,TQString cc,TQString bcc,TQString subject,TQString body,TQByteArray attachment)" << endl;
kdDebug(5006) << "This DCOP call is deprecated. Use the corresponding DCOP call with the additional parameter TQString from instead." << endl;
return sendMessage( TQString(), to, cc, bcc, subject, body, attachment );
}
}//end namespace KMail