Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

HELP!!! [D6, Win2k]

Ольга © (2002-03-19 16:17:00)
Скажите, пожалуйста, как прочитать файл с помощью Outlook&

Song (2002-03-21 17:26:00) [1]
И что? В любом случае это текстовый файл. Ольга, пишите на мыло, а то мы скоро будем раздражать людей своей болтовнёй. И ветка в "потрепаться" пойдёт, а там Вам много хороших слов наговорят по поводу знания Паскаля за место советов.

Ольга (2002-03-21 16:40:00) [2]
Оно храниться в формате .msg,

Song (2002-03-21 16:34:00) [3]
Вырезать надо не отсюда, а из Вашего письма на диске.

Ольга (2002-03-21 16:17:00) [4]
ShellExecute(Handle,"open",Phar(s),nil,nil,SW_Maximize);

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

Song (2002-03-20 16:47:00) [5]
О птичках:
txtTo.Text можно вырезать из Вашего письма на диске после слова To
txtCC.Text и txtBCC.Text можно оставить пустыми.

Song (2002-03-20 16:43:00) [6]
Я считаю, что человек сам должен стремиться к победе, а не отчаиваться. Вам написали готовый исходник, хотя бы разберитесь в нём.
Что касается ShellExecute: я знаю, что он открывает, эта команда выполняет часть того решения, которое предложил я ( Открывайте сообщение через ShellExecute с максимизированием окна)
Если Вы думаете, что за Вас сделают полностью Вашу задачу, Вы ошибаетесь. Извините, если грубо.

Ольга (2002-03-20 14:31:00) [7]
По крайней мере я не могу вытащить из файла эти данные

Ольга (2002-03-20 14:21:00) [8]
txtTo.Text
txtCC.Text
txtBCC.Text

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

Ghost. (2002-03-20 14:13:00) [9]
вОТ ТАК ЭТО МОЖНО СДЕЛАТЬ и еще и отправить
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 13:52:00) [10]
Он открывает файл, а мне надо поместить его в папку Исходящие Outlook

Ольга (2002-03-20 11:08:00) [11]
спаибо, попробую...

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

Song (2002-03-20 11:07:00) [12]
ShellExecute(Handle,"open",PChar("Ваш_файл"),nil,nil,SW_MAXIMIZE);

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

Ольга (2002-03-20 11:04:00) [14]
А можно примерчик, pls

nimble (2002-03-20 10:52:00) [15]
ShellExecute сможет открыть файл из любой папки зарегистрированной для этого файло программой.

Ольга (2002-03-20 10:49:00) [16]
А получиться с помощью него взять почтовое сообщение из дирректории на диске и поместить его в папку Outlook?

nimble (2002-03-20 10:40:00) [17]
А если попробовать ShellExecute.

Ольга (2002-03-20 10:18:00) [18]
Спасибо, но это немного не то...

MBo (2002-03-19 16:36:00) [19]
может, пригодится
http://src.fitkursk.ru/articles/art0000039.asp
http://www.compress.ru/Article.asp?id=586

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »