主页
Top.Mail.Ru Yandeks.Metrika
论坛:“WinAPI”;
当前存档:2002.04.25;
下载:[xml.tar.bz2];

向下

电子邮件 找到类似的分支


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

该程序需要通过电子邮件发送一些文件,
默认情况下安装的邮件客户端。
使用ShellExecute:
ShellExecute(Application.Handle,“打开”,“ 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.55 MB
时间:0.02 c
1-80934
ppcat
2002-04-11 15:55
2002.04.25
快速报告的问题


1-80998
安德烈森琴科
2002-04-12 13:22
2002.04.25
我想在表格上绘制:)


3-80834
trever
2002-04-05 13:11
2002.04.25
如何更新dblucapcombox的内容?


1-80842
Schummi
2002-03-30 08:12
2002.04.25
错误是什么?


3-80802
Glonia zbanov
2002-04-05 10:58
2002.04.25
人! 解释查询设计。





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский