HELP!!!

← →
Ольга (2002-03-19 16:17) [0]

Скажите, пожалуйста, как прочитать файл с помощью Outlook&

← →
MBo (2002-03-19 16:36) [1]

может, пригодится
http://src.fitkursk.ru/articles/art0000039.asp
http://www.compress.ru/Article.asp?id=586

← →
Ольга (2002-03-20 10:18) [2]

Спасибо, но это немного не то...

← →
nimble (2002-03-20 10:40) [3]

А если попробовать ShellExecute.

← →
Ольга (2002-03-20 10:49) [4]

А получиться с помощью него взять почтовое сообщение из дирректории на диске и поместить его в папку Outlook?

← →
nimble (2002-03-20 10:52) [5]

ShellExecute сможет открыть файл из любой папки зарегистрированной для этого файло программой.

← →
Ольга (2002-03-20 11:04) [6]

А можно примерчик, pls

← →
Song (2002-03-20 11:04) [7]

Ольга, наблюдаю как Вы уже мучаетесь какую неделю подряд. Есть идея, но она кривая. Так программисты не поступают. Но если ничего не останется, тогда попробуйте.
1. Открывайте сообщение через ShellExecute с максимизированием окна. При этом постоянство расположения системного меню гарантируется.
2. Потом, отключаете консоль и через эмуляцию движения и кликов мыши открываете последовательно: меню "Файл" --> "Переместить в папку" --> в открывшемся окне выбираете нужную папку --> Нажимаете кнопку "Ok". Сообщение перемещено.
Отрегулируете примерные относительные задержки.
Таким образом можно поступать только для папок, которые обязательно будут "на своём месте" - Входящие, Исходящие, Удалённые и Черновики.
3. Включаете консоль.
Вот и всё. Хотел бы подсказать Вам как через DDE или ActiveX, но не могу ничем помочь.

← →
Song (2002-03-20 11:07) [8]

ShellExecute(Handle,"open",PChar("Ваш_файл"),nil,nil,SW_MAXIMIZE);

← →
Ольга (2002-03-20 11:08) [9]

спаибо, попробую...

Кривая идея - Мне такую задачу поставили...

← →
Ольга (2002-03-20 13:52) [10]

Он открывает файл, а мне надо поместить его в папку Исходящие Outlook

← →
Ghost. (2002-03-20 14:13) [11]

вОТ ТАК ЭТО МОЖНО СДЕЛАТЬ и еще и отправить
procedure TfrmMain.btnOKClick(Sender: TObject);
var
err: ULONG;
AnyStr: PChar;
nAttachments,
nRecipients: Cardinal;
begin

if (txtTo.Text <> "") and (txtSubject.Text <> "") and (moBody.Lines.Count > 0) then
begin
nAttachments:=1;
nRecipients:=0;
if txtTo.Text<>"" then Inc(nRecipients);
if txtCC.Text<>"" then Inc(nRecipients);
if txtBCC.Text<>"" then Inc(nRecipients);

FillChar(lppMapiRecipDesc, SizeOf(TMapiRecipDesc), 0);
lparrayRecips:=TlpRecipArray(StrAlloc(nRecipients*SizeOf(TMapiRecipDesc)));
FillChar(lparrayRecips^, StrBufSize(PChar(lparrayRecips)), 0);
lparrayAttachments:=TlpAttachArray(StrAlloc(nAttachments*SizeOf(TMapiFileDesc)));
FillChar(lparrayAttachments^, StrBufSize(PChar(lparrayAttachments)), 0);

if txtAttachment.Text <> "" then
begin
{

← →
Ольга (2002-03-20 14:21) [12]

txtTo.Text
txtCC.Text
txtBCC.Text

У меня нету этих данных, у меня готовое сообщение, которое просто надо поместить в папку Исходящие

← →
Ольга (2002-03-20 14:31) [13]

По крайней мере я не могу вытащить из файла эти данные

← →
Song (2002-03-20 16:43) [14]

Я считаю, что человек сам должен стремиться к победе, а не отчаиваться. Вам написали готовый исходник, хотя бы разберитесь в нём.
Что касается ShellExecute: я знаю, что он открывает, эта команда выполняет часть того решения, которое предложил я ( Открывайте сообщение через ShellExecute с максимизированием окна)
Если Вы думаете, что за Вас сделают полностью Вашу задачу, Вы ошибаетесь. Извините, если грубо.

← →
Song (2002-03-20 16:47) [15]

О птичках:
txtTo.Text можно вырезать из Вашего письма на диске после слова To
txtCC.Text и txtBCC.Text можно оставить пустыми.

← →
Ольга (2002-03-21 16:17) [16]

ShellExecute(Handle,"open",Phar(s),nil,nil,SW_Maximize);

И как же мне это вырезать

← →
Song (2002-03-21 16:34) [17]

Вырезать надо не отсюда, а из Вашего письма на диске.

← →
Ольга (2002-03-21 16:40) [18]

Оно храниться в формате .msg,

← →
Song (2002-03-21 17:26) [19]

И что? В любом случае это текстовый файл. Ольга, пишите на мыло, а то мы скоро будем раздражать людей своей болтовнёй. И ветка в "потрепаться" пойдёт, а там Вам много хороших слов наговорят по поводу знания Паскаля за место советов.

HELP!!! Найти похожие ветки