T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
看到有关于E-MAIL的发送函数，即，('mailto:xxx@163.com?subject='about'body=....')但是他们都要弹出窗口，让用户点击，我想请问，有没有一种后台自行发送的。即，只要一按钮，他就会自行发送，无需提示客户。
Z
zkktom
Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵 两种方式，一种是检测窗口，自动通过程序鼠标点击发送 一种是换种发送发送，大富翁上有邮件发送的例子～
T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
to:zkktom可否给我连接看看？
D
dmzn
Unregistered / Unconfirmed
GUEST, unregistred user!
Indy->TIdSMTP
T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
我也知道是用IDSMTP,关键是要代码啊？让他后台默认发送。而不是弹出窗体，让客户点击。
S
smlabc
Unregistered / Unconfirmed
GUEST, unregistred user!
以前写的一个发邮件的函数,能用就拿去用吧function TSendMailForm.Sendmail(MailList: TStrings; Subject: String; Content: TStrings): Boolean;var MailAddr: String; i: Integer;begin Result := true; try if not FidSmtp.Connected then begin ExchangeData(True); FidSmtp.Connect; end; except //Self.ShowModal; //Sendmail(MailList, Subject, Content); Application.MessageBox('设置错误不能连接到指定的SMTP服务器'+#13+'请重新设置!', '系统提示'); Result := false; end; if FIdSmtp.Connected then begin for i := 0 to MailList.Count - 1 do begin if i = 0 then MailAddr := MailList.Strings else MailAddr := MailAddr + ',' + MailList.Strings; end; FIdMessage.Recipients.EMailAddresses := MailAddr; FIdmessage.Subject := Subject; FIdMessage.Body.Assign(Content); try FidSmtp.Send(FIdmessage); except ON E: Exception Do begin MsgBox(E.Message); Result := false; exit; end; end; MsgBox('发送成功!'); end;end;
地
地质灾害
Unregistered / Unconfirmed
GUEST, unregistred user!
谁要代码 就跟他要money。
S
smlabc
Unregistered / Unconfirmed
GUEST, unregistred user!
记得以前一个前辈说过:写代码就如堆垃圾,写得越多,堆得越多.我深以为然.我不过给出一堆垃圾,哪还敢要money啊?
T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
to,地质灾害大家都是学习的。不用这个样子吧。[
]
]
T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
有没有一行解决的？比如说下面的代码：ShellExecute(handle,nil,"mailto:zh@163.com?subject=about the program"&body=hello world'nil,nil,sw_shownormal);就一行搞定，但是问题是他界面会有提示，让客户选择，我的意思就是想不要让他出来这个提示，直接就发送了。但是好像用WinExec函数我又不会写啊。还有人可以帮帮我？
S
szhcracker
Unregistered / Unconfirmed
GUEST, unregistred user!
想一行搞定就别写代码。你的这种想法可没人会帮你的。
T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
不是啊，我在离线的资料里面看到有此语法vara:string;begina:=Edit1.Text;ShellExecute(Application.Handle,nil,pchar('mailto:'+a+''),nil,nil,SW_SHOWNORMAL);但是问题就是主题和内容是怎么添加啊？
T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
大家帮帮我啊，我想用一行的目的就是不想让用户还要设置相应的SMTP服务器还有用户名和代码，可以用系统默认的自行发送，难道也有错？
T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
真的没有高手在吗？还有，我如何使执行此命令时，不显示电子邮件软件的主窗体，让他自行发送？ShellExecute(Application.Handle,nil,pchar('mailto:'+a+''),nil,nil,SW_SHOWNORMAL);
V
Vsun
Unregistered / Unconfirmed
GUEST, unregistred user!
楼主知道ShellExecute(Application.Handle,nil,pchar('mailto:'+a+''),nil,nil,SW_SHOWNORMAL);是怎么一会事吗?它可是调用的系统的outlook，如果本机的outlook没有设置过，你要是能把邮件发送出去了，你就是个神，什么东西都想一条代码搞定，呵呵
T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
那么有没有办法让他在后台自行发送，不弹出程序窗口。即不用客户自己来点击发送按钮？
F
foam
Unregistered / Unconfirmed
GUEST, unregistred user!
用 IdSMTP 和 IdMessage，可以不弹出窗口
S
smlabc
Unregistered / Unconfirmed
GUEST, unregistred user!
现在的人啊,代码都给出来了还JJYY的,什么都不懂就知道瞎猜.肤浅,做程序不是Copy一下就完事,知道原理才是王道.无知,只会拖拖控件,用用函数,对底层一无所知.懒惰才是你的原罪,造成了肤浅和无知.
T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
楼上的，我不懂啊，也没有说啥啊。就是看以前的论坛记录里面中，有人这么做的。所以就想来问问，谢谢你给了我代码[]
]
S
szhcracker
Unregistered / Unconfirmed
GUEST, unregistred user!
宽容菜鸟，但自己也要自觉，尽量自己去学习一些基本的知识，不要什么都问，其实LZ的问题很简单，也可以很复杂，关键是LZ的态度不好，不是学习的态度。