如何在后台发送邮件？(50分)

J

jxboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-10

• #1

在没有使用窗体的情况下，如何在后台发送简单的邮件？（或只需发个带标题的邮件）。我想用创建NMSMTP控件的办法，但是无法创建这一控件。我该如何实现？

 

S

superatom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-10

• #2

创建一个窗体把Visible设置成False不就行了。

 

J

jxboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-12

• #3

窗体的Visible不用设置本来就是False.

 

A

ArJianzeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-12

• #4

做后台线程

 

T

twos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-12

• #5

你可以连application都不用的
可以使用indy的IDSMTP，当然你说的那个也可以
Create(Nil)就可以创建呀

 

S

sz-xyp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-12

• #6

用SQLMAIL來發好了,不過你先要在SQL_SERVER做一些設置.

 

J

jxboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-12

• #7

谢谢各位。但对后台发送简单的邮件的问题还是不能解决。

 

G

gouhaitao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #8

procedure TForm1.Button1Click(Sender: TObject);
begin
NMSMTP1.Host := 'mail.host.com';
NMSMTP1.UserID := 'username';
NMSMTP1.Connect;

NMSMTP1.PostMessage.FromAddress := 'webmaster@swissdelphicenter.ch';
NMSMTP1.PostMessage.ToAddress.Text := 'user@host.com';
NMSMTP1.PostMessage.Body.Text := 'This is the message';
NMSMTP1.PostMessage.Subject := 'Mail subject';
NMSMTP1.SendMail;
showmessage('Mail sent !');
end;