Indy 10 發信附檔問題 |
尚未結案
|
peterpcc
一般會員 發表:6 回覆:37 積分:13 註冊:2004-09-27 發送簡訊給我 |
with mesgMessage do begin Clear; From.Text := trim(DRLabel13.Caption); Recipients.Add.Text := v_recipients; Subject := v_Subject; Body.Assign(v_Strings); end; with IdSMTP2 do begin Host := 'escort.com.cn'; Connect; try Send(mesgMessage); finally Disconnect; end; end;現在信是可以發出了,但附檔我卻不知道要怎麼做了. 只知道mesgMessage.DoCreateAttachment(AHeaders,TIdAttachment); 卻不知如何給值? |
peterpcc
一般會員 發表:6 回覆:37 積分:13 註冊:2004-09-27 發送簡訊給我 |
我在網上查到一篇,總算解決了這問題.
function SendMail(SenderMail, SenderName, Recipient, Subject, AttachFile, MailText: string): boolean; var Smtp1 : TIdSMTP; Message1 : TIdMessage; Attach1 : TIdAttachmentFile; begin Result := True; Smtp1 := TIdSMTP.Create(nil); Message1 := TIdMessage.Create(nil); if Result then try Smtp1.Host := '1.2.3.4'; Smtp1.Port := 25; Smtp1.MailAgent := 'My Mailer'; Smtp1.Username := 'username'; Smtp1.Password := 'password'; Smtp1.AuthType := atDefault; Message1.CharSet := 'charset=iso-8859-1'; Message1.ContentTransferEncoding := '8bit'; Message1.ContentType := 'text/plain'; Message1.Organization := 'My Company'; Message1.From.Name := SenderName; Message1.From.Address := SenderMail; Message1.Recipients.Clear; with Message1.Recipients.Add do Address := Recipient; Message1.Body.Text := MailText; Message1.Subject := Subject; if AttachFile <> '' then Attach1 := TIdAttachmentFile.Create(Message1.MessageParts, AttachFile); try Smtp1.Connect; if Smtp1.Connected then Smtp1.Send(Message1); except on E: Exception do begin Result := False; TrackError('SendMail', E.Message ' - ' Recipient, DBModule.VerString); end; end; try if Smtp1.Connected then Smtp1.Disconnect; except end; except Result := False; end; if Assigned(Attach1) then Attach1.Free; Message1.Free; Smtp1.Free; end; |
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |