IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

2 страниц V < 1 2  
 Ответить  Открыть новую тему 
> Данные из Outlook, как достать? :)
volvo
сообщение 31.08.2009 21:57
Сообщение #21


Гость






procedure TForm1.OutlookClick(Sender: TObject);
var
i: Integer;
myOutlookApp: TOutlookApplication;

mailItem, objReply: OutlookXP.MailItem;
objRecips: OutlookXP.Recipients;

iCount: Integer;
s, s_addr, firstLine: string;
sL: TStringList;
FromTo, currFolderName: string;
begin
myOutlookApp := TOutlookApplication.Create(nil);
myOutlookApp.ConnectKind := ckRunningInstance;

try
myOutlookApp.Connect;
except
ShowMessage('Нет запущенной копии MS Outlook');
myOutlookApp.Free; Exit;
end;

for iCount := 1 to myOutlookApp.ActiveExplorer.Selection.Count do
begin
mailItem := myOutlookApp.ActiveExplorer.Selection.Item(iCount) as _MailItem;

currFolderName := myOutlookApp.ActiveExplorer.CurrentFolder.Name;
s_addr := '';
if currFolderName = 'Inbox' then
begin
FromTo := 'From';
objReply := mailItem.Reply;
objRecips := objReply.Recipients;
for i := 1 to objRecips.Count do
with objRecips.Item(i) do
begin
s_addr := s_addr + Format('%s <%s> ', [Name, Address]);
end;
end
else
begin
FromTo := 'To';
for i := 1 to mailItem.Recipients.Count do
with mailItem.Recipients.Item(i) do
begin
s_addr := s_addr + Format('%s <%s> ', [Name, Address]);
end;
end;

sL := TStringList.Create;
try
sL.DelimitedText := StringReplace(mailItem.Body, ' ', '&prob;', [rfReplaceAll]);
firstLine := StringReplace(sL.Strings[0], '&prob;', ' ', [rfReplaceAll]);
finally
sL.Free;
end;

s := Format('%s %s : "%s", sent: %s',
[FromTo, s_addr, firstLine, DateToStr(mailItem.SentOn)]);
ShowMessage(s);
end;
myOutlookApp.Disconnect;
myOutlookApp.Free;
end;
Больше править не буду, в конце концов, совесть-то имей! Задание было чье вообще? Ты хоть MSDN на странице Outlook Objects соизволил открыть, или это мне надо больше, чем тебе? Уверяю, МНЕ оно на фиг не надо, я как с MSO не работал, так и не буду. Надо будет что-нибудь исправить - MSDN в зубы и вперед, грызть гранит науки. Я потерял к твоим вопросам интерес.
 К началу страницы 
+ Ответить 

2 страниц V < 1 2
 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 9.07.2025 20:00
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"