Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Вниз

EMail 


mentor   (2002-02-19 07:59) [0]

В программе требуется отправка некоторого файла по e-mail,
почтовым клиентом установленным по умолчанию.
Использую ShellExecute :
ShellExecute(Application.Handle,"open","perso@ikama.tol.ru",nil,nil,0).
Не подскажите ли, уважаемые, как здесь прицепить файл ?



VuDZ   (2002-02-19 12:10) [1]

MAPISendMail() - в свойствах указать атачмент(ы)



Anatoly Podgoretsky   (2002-02-20 02:22) [2]

Здесь его прицеплять не где, протокол mailto: этого не предусмативает, пользуйся чем предложили.



Mover   (2002-02-20 12:48) [3]

Если почтовый клиент TheBat! то отправка аттача выглядит так:

// путь к The Bat из реестра
function GetPathTheBat: String;
const
TheBat="Software\RIT\The Bat!";
begin
Result:="";
with TRegistry.Create do
try
RootKey:=HKEY_CURRENT_USER;
OpenKey(TheBat, False);
Result:=ReadString("ProgramDir");
finally
Free;
end;
end;

(* Отправка: EMAIL, FName - строки с адресом и именем файла *)

// Найти программу The Bat!
Path := GetPathTheBat;
if (EMAIL<>"") and (Path<>"") and
(MessageDlg("В?дправити файл на e-mail: "+EMAIL+" ?",
mtConfirmation, [mbYes, mbNo], 0) = mrYes) then begin
// здесь первый строковый параметр - адрес получателя,
// второй - тема, третий - отправляемый файл,
// queue - означает постановка в очередь ( папка OutBox ; можно поставить send - непосредственная отправка)
ShellExecute(Application.Handle,nil,PChar(Path+"thebat.exe"),PChar(Format("/NOLOGO /mail;to=%s;subject=%s;file="%s";queue",
[EMAIL,"registration",FName])),nil,SW_SHOWNORMAL);
end;


Если OutLook, то вроде бы так:

ShellExecute(Application.Handle,nil,PChar(Format("mailto:%s;subject=%s;%s", [EMAIL,"registration",FName])), nil, nil, SW_SHOWNORMAL);

Или file=%s; точно не пробовал!



SerVS - S   (2002-02-20 13:25) [4]

С клиентом по-умолчанию незнаю :(. А просто отправка возьми NMSMTP или тоже из Indy, я лично пользуюсь вторым




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.018 c
3-80744           Lego                  2002-04-02 02:35  2002.04.25  
Наверное глупый вопрос... но все-же... какие файлы нужны клиенту?


7-81096           Philip                2002-01-27 00:35  2002.04.25  
помогите разобраться с поинтерами


3-80836           Alexsys               2002-04-05 23:38  2002.04.25  
GRID + несколько колонок в внем же...


1-80886           Beginner              2002-04-14 03:31  2002.04.25  
Вывод real чисел на экран


1-80861           Air                   2002-04-13 13:03  2002.04.25  
Как поймать сообщение клиента при дисконнекте?