blob: bb3959181faff56e5c6b9c818bbde860f1b5db5a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
/***************************************************************************
filter_opera.cpp - Outlook mail import
-------------------
begin : February 01 2005
copyright : (C) 2005 by Danny Kukawka
email : danny.kukawka@web.de
***************************************************************************/
/***************************************************************************
* *
* This program is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
***************************************************************************/
#include <config.h>
#include <tdelocale.h>
#include <tdefiledialog.h>
#include <tdetempfile.h>
#include <kdebug.h>
#include "filter_outlook.h"
FilterOutlook::FilterOutlook() :
Filter( i18n("Import Outlook Emails"),
"Danny Kukawka",
i18n("<p><b>Outlook email import filter</b></p>"
"<p>This filter will import mails from a Outlook pst-file. You will need to locate "
"the folder where the pst-file has been stored by searching for .pst files under: "
"<i>C:\\Documents and Settings</i> in Windows 2000 or later</p>"
"<p><b>Note:</b> Emails will be imported into a folder named after the "
"account they came from, prefixed with OUTLOOK-</p>" ))
{}
FilterOutlook::~FilterOutlook()
{
}
void FilterOutlook::import(FilterInfo *info)
{
info->alert(i18n("No directory selected."));
info->addLog(i18n("Counting files..."));
info->addLog(i18n("Counting mail..."));
info->addLog(i18n("Counting directories..."));
info->addLog(i18n("Counting folders..."));
info->addLog(i18n("Importing new mail files..."));
info->addLog(i18n("No files found for import."));
TQString outlookDir;
outlookDir = KFileDialog::getExistingDirectory(TQDir::homeDirPath(), info->parent());
TQDir importDir (outlookDir);
TQStringList files = importDir.entryList("*.[pP][sS][tT]", TQDir::Files, TQDir::Name);
for ( TQStringList::Iterator pstFile = files.begin(); pstFile != files.end(); ++pstFile) {
info->addLog( i18n("Importing emails from %1...").arg( *pstFile ) );
info->addLog( i18n("1 duplicate message not imported", "%n duplicate messages not imported", count_duplicates));
info->alert( i18n("Unable to open %1, skipping").arg( *pstFile ) );
}
}
|
