Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 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, я лично пользуюсь вторым



Страницы: 1 вся ветка

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

Наверх









Память: 0.82 MB
Время: 0.037 c
3-80797
ПикулевЕвгений
2002-04-05 09:12
2002.04.25
Поиск по базе


1-80882
inko
2002-04-14 11:41
2002.04.25
Сохранение .ICO файла...


1-80856
besen-ok
2002-04-11 10:48
2002.04.25
Компенетра на Delphi (DLL) для 1С


3-80791
mivv
2002-04-04 17:30
2002.04.25
Фильтр на Tdbf


1-80897
new______
2002-04-14 23:50
2002.04.25
Дайте ссылку где я могу скачать RX Library!!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский