請問各位大德,我想把一串字串如 '某某客戶您好',直接丟到 PostMessage的body 裡,不要再
透過 memo 或 RichEdit ,請問程式碼要如何寫?
我是用 delphi5

底下是我透過RichEdit 的程式碼,如要直接丟字串,程式碼要如何寫?
程式碼NMSMTP1.PostMessage .Body.Assign (RichEdit1.lines)

謝謝幫忙!

var
ssl:TStringList;
begin
ssl:=TStringList.Create;
ssl.Add('某某客戶您好');
//ssl.LoadFromFile('c:test');
NMSMTP1.PostMessage.Body:=ssl;
ssl.Free;
end;
===================引 用 joana 文 章===================
請問各位大德,我想把一串字串如 '某某客戶您好',直接丟到 PostMessage的body 裡,不要再
透過 memo 或 RichEdit ,請問程式碼要如何寫?
我是用 delphi5

底下是我透過RichEdit 的程式碼,如要直接丟字串,程式碼要如何寫?
程式碼NMSMTP1.PostMessage .Body.Assign (RichEdit1.lines)

謝謝幫忙!

------
What do we live for if not to make life less difficult for each other?

編輯記錄

謝謝Christie的回覆,可否再請教一個問題

當 NMSMTP1 Connect 不上時,要如何讓user 知道沒有連上線
用下面的程式,當跑到 NMSMTP1.Connect 時,如果沒連上線,整個程式就動彈不得,死當了

if not NMSMTP1.Connected then
NMSMTP1.Connect
else NMSMTP1.Disconnect

不好意思,請再幫幫忙,謝謝!

    Try
NMSMTP1.Connect;
Except
on E: Exception do ;
End;{試試看}

===================引 用 joana 文 章===================
謝謝Christie的回覆,可否再請教一個問題

當 NMSMTP1 Connect 不上時,要如何讓user 知道沒有連上線
用下面的程式,當跑到 NMSMTP1.Connect 時,如果沒連上線,整個程式就動彈不得,死當了

if not NMSMTP1.Connected then
NMSMTP1.Connect
else NMSMTP1.Disconnect

不好意思,請再幫幫忙,謝謝!

------
What do we live for if not to make life less difficult for each other?

謝謝Christie的回覆,但程式執行到 NMSMTP1.Connect 就沒動靜了,不會再往下執行,整支程式也無法關畢
必須強制reset 才可關畢
try
NMSMTP1.Connect;
Except
on E: Exception do ;
End;{試試看}

NMSMTP1.TimeOut :=10000;{ Try it ! }
try
NMSMTP1.connect;
except
Showmessage('Not Connectted !');
end;

------
What do we live for if not to make life less difficult for each other?

begin
try
if nmsmtp1.connected then
nmsmtp1.disconnect;
nmsmtp1.connect;
except
showmessage('nmsmtp failed');
end;
showmessage('program still keep on');
end;