大清早来提问,关于EMAIL发送 |
答題得分者是:ttring
|
zhouying82
高階會員 ![]() ![]() ![]() ![]() 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
|
st33chen
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
|
zhouying82
高階會員 ![]() ![]() ![]() ![]() 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
|
ttring
一般會員 ![]() ![]() 發表:11 回覆:23 積分:16 註冊:2008-11-19 發送簡訊給我 |
我是用idmessage 寄信的..@@ 不會彈視窗..
不過我是公司內自己人使用的 @@ with idmessage1 do begin MessageParts.Clear; //清除附件 From.Address:=XXXXXXXXX; From.Name:=XXXXX; From.Text:=XXXXX<'">XXXXXXX>'; Recipients.EMailAddresses:=''; // ts:=FormatDateTime('yyyy/mm/dd hh:mm',now); Subject:=Title; //信件抬頭 Recipients.EMailAddresses:=MailAddress; //放入要傳送的信箱 for i:=0 to TxtMemo.Lines.Count-1 do begin if i=0 then Body.Text:=TxtMemo.Lines[i] //信件內容 else Body.Text:=Body.Text #13 TxtMemo.Lines[i]; //信件內容 end; if AddFileName<>'' then begin //如果有需要添加附件 if FileExists(AddFileName) then begin //確認該檔案有存在 IdMessage1.MessageParts.Add; tidattachment.Create(IdMessage1.MessageParts,AddFileName); end; end; end; idsmtp1.Connect; idsmtp1.Send(IdMessage1); idsmtp1.Disconnect; ===================引 用 zhouying82 文 章=================== 我用的是D2009,另外,我想使用MAILTO函数。直接调用默认的邮件帐户进行发送。大大有没有代码啊? |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |