Форум: "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.044 c
3-80781           sir_musatov           2002-04-04 16:06  2002.04.25  
вопрос про CDX


3-80794           vitnt2000             2002-04-03 06:42  2002.04.25  
SQL Запрос


6-81018           AlexRush              2002-02-14 20:21  2002.04.25  
проблемка с NetServerEnum


4-81108           Vladimir Bolotin      2002-01-10 20:33  2002.04.25  
прозрачность в win2k


3-80813           Atrem                 2002-04-04 19:18  2002.04.25  
небольшой вопросик