C
ch_yahuu
Unregistered / Unconfirmed
GUEST, unregistred user!
我在用nmsmtp发送邮件时.第一次可以成功发送.但第二次老出这个错:
project project1.exe raised exception class excepttion with message
'Incomplete Header'.Process stopped. Use step or Run to Continue.
各位大虾救命啊.
代码如下.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Psock, NMsmtp, StdCtrls;
type
TForm1 = class(TForm)
NMSMTP1: TNMSMTP;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses UnitSmtpLogin;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
NMSMTP1.Connect;
if login(NMSMTP1,nmsmtp1.userid,'密码') then
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
end;
end.
分全部给你们了啊.谢谢帮忙.
project project1.exe raised exception class excepttion with message
'Incomplete Header'.Process stopped. Use step or Run to Continue.
各位大虾救命啊.
代码如下.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Psock, NMsmtp, StdCtrls;
type
TForm1 = class(TForm)
NMSMTP1: TNMSMTP;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses UnitSmtpLogin;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
NMSMTP1.Connect;
if login(NMSMTP1,nmsmtp1.userid,'密码') then
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
end;
end.
分全部给你们了啊.谢谢帮忙.