FastReport 發送MAIL的問題 |
缺席
|
ken.hsiao
一般會員 發表:17 回覆:15 積分:6 註冊:2007-03-14 發送簡訊給我 |
請教一下各位前輩,小弟使用fastreport3 的frxMailExport元件,來發送MAIL,要如何做才能將付檔變成PDF呢?而不是預設的格式??
frxMailExport1.Address := ADDRESS; frxMailExport1.FromCompany := mCmp.CName; frxMailExport1.FromMail := EMAIL; frxMailExport1.SmtpHost := SMTP; frxMailExport1.Subject := mUsr.Name '公司-採購單'; rp1.Export(frxMailExport1); |
ken.hsiao
一般會員 發表:17 回覆:15 積分:6 註冊:2007-03-14 發送簡訊給我 |
小弟利用google 找到了答案了
frxMailExport1.ExportFilter := frxPDFExport1; frxMailExport1.FilterDesc := 'PDF per E-Mail versenden'; frxMailExport1.Address := GetFAC_EMAIL(qPRINT.FieldByName('FAC_CODE').AsString); frxMailExport1.FromCompany := mCmp.CName; frxMailExport1.FromName := mUsr.Name; frxMailExport1.FromMail := EMAIL; LINES.Clear; LINES.Add('您好,附件為產品採購單,請如期將產品送達指定地點,謝謝!'); LINES.Add('(詳細資料請見附件,若有問題請與本公司聯絡,謝謝!)'); frxMailExport1.Lines := LINES; frxMailExport1.SmtpHost := SMTP; frxMailExport1.Subject := mUsr.Name '公司-採購單' mtMD1.FieldByName('SP_NUM').AsString; frxPDFExport1.FileName := mtMD1.FieldByName('SP_NUM').AsString '.pdf'; rp1.Export(frxMailExport1); |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |