找了好久的文章 也試了好多的方法,但沒一個成功的 我要讓程式自動執行Outlook Express 把值填入後自動傳送出去 內文必需兩行以上 到底要怎麼把換行符號填入呢?? p.s.1使用Indy的元件也無法成功換行 p.s.2限用Outlook Express

hungoo 你好: 我試了一下,應該沒問題,雖然我不是用indy 給你兩個方法: 1.將資料存在 saa: TStringList裡,然後 saa.Text; 2.'ABC' #13#10 'DEF' #13#10 'HELLO' < -- #13#10是換行符號 試試

引言: hungoo 你好: 我試了一下,應該沒問題,雖然我不是用indy 給你兩個方法: 1.將資料存在 saa: TStringList裡,然後 saa.Text; 2.'ABC' #13#10 'DEF' #13#10 'HELLO' < -- #13#10是換行符號 試試

那可以順便PO一下怎麼開Outlook Express 怎麼把值填入嗎? 我會開Microsoft Outlook 但不會開Outlook Express(因為找不到資料)

    function LP_MAIL_Wait: boolean;    function SmailTo(sfromemail,sfromemailName,stoemail,sBccemail,ssubject,sdata:string):boolean;
var
  oNMSMTP:TNMSMTP;
  bSendOk:Boolean;
begin      bSendOk:=False;
  sBccemail:='你們家的某個帳號';
  sBccemail:='';      oNMSMTP:=TNMSMTP.Create(Nil);
  oNMSMTP.Host:='你們家的HOST';      oNMSMTP.PostMessage.FromAddress:=sfromemail;
  oNMSMTP.PostMessage.FromName   := sfromemailName;
  oNMSMTP.Charset := 'big5';      sData    := StringReplace(sData ,';',chr(13) chr(10),[rfReplaceAll]);
  stoemail := StringReplace(stoemail ,';',chr(13) chr(10),[rfReplaceAll]);      if trim(stoemail)<>'' then
     begin
        oNMSMTP.PostMessage.ToAddress.Clear;
        //oNMSMTP.PostMessage.ToAddress.Add(stoemail);
        oNMSMTP.PostMessage.ToAddress.Text:=stoemail;
     end;
  if trim(sBccemail)<>'' then
     begin
        oNMSMTP.PostMessage.ToBlindCarbonCopy.Clear;
        //oNMSMTP.PostMessage.ToBlindCarbonCopy.Add(sBccemail);
        oNMSMTP.PostMessage.ToBlindCarbonCopy.Text:=sBccemail;
     end;
  oNMSMTP.PostMessage.Subject:=ssubject ;
//  oNMSMTP.PostMessage.Attachments.Clear;
//  oNMSMTP.PostMessage.Attachments.Text := sdata;      oNMSMTP.PostMessage.Body.Clear;
  oNMSMTP.PostMessage.Body.Text :=sdata;
  oNMSMTP.PostMessage.Body.Add('');
  oNMSMTP.PostMessage.Body.Add('');
  oNMSMTP.PostMessage.Body.Add('');
  oNMSMTP.PostMessage.Body.Add('傳送時間：' datetimetostr(now));      oNMSMTP.Port := 25;
  try
     bSendOk:=True;
     oNMSMTP.Connect;
     oNMSMTP.SendMail;
     oNMSMTP.DisConnect;
  except
     bSendOk:=False;
  end;      oNMSMTP.Destroy;      Result:=bSendOk;
end;    var
  sBody :TstringList;
  bMail :boolean ;
  s,sSQL:string;
begin
  bMail := true;
  sBody :=TstringList.Create;      sBody.Clear ;
  sBody.Add('專案代號 :  1');
  sBody.Add('專案名稱 :  2' #13#10 '2');        if SmailTo('寄件人帳號'
            ,'物流平台管理者'
            ,'<'   'jimmy@hctdc.com.tw'   '>'   'jimmy'  //如果要寄給多人的話 中間加 ';' 符號
            ,''
            ,'專案代號 '  '123'   ' 完成日從 '  '222'  ' 往後延至'
            ,sBody.Text
            ) then
    begin
      ShowMessage('成功');        end
    else
      bMail := false;
  sBody.Free;
  result := bMail ;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  LP_MAIL_Wait;
end;    

再試試 發表人 - jimmy_wei 於 2005/07/26 17:27:56