怎样写发送匿名邮件的程序(50分)

L

ligwin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-11

• #1

同题。这里所说的匿名邮件即为收件后不显示发送人E-MAIL地址的邮件（邮件头内没有相应
的信息）。不知道这种技术是否能够实现。如果能够实现具体应该怎样来实现。
由于心里没有底到底有没有人会回答，所以先给50分，如果您答案令我满意的话，还可以加
分。分数多多，你还等什么快来答吧。

 

L

Liyue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-11

• #2

使用nmsmpt和nmpop控件。在delphi中编这类程序十分简单，但要设计的完美，
需要超人的设计思想（不是计算机语言能力）。如果需要，我可以在几分钟内
写一个简单的例程。

 

R

R_Baggio

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-11

• #3

With ServerSMTP do
begin
Host := 'xxx';//smtp 的服务器地址
Port := 25;
UserID := 'xxx';
Connect;
PostMessage.Body.Text := Memo1.Lines.Text;
PostMessage.FromAddress := '';
PostMessage.FromName := '';
PostMessage.Subject :=HeadEdit.Text;
PostMessage.ToAddress.Text := ReceiverEdit.Text;
SendMail;
DisConnect;
end;//用TNMSMTP

 

L

ligwin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-12

• #4

楼上那段代码巴乔兄试过没有，反正我试了一下程序执行时说，缺少信息。

 

龙

龙蛋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-12

• #5

listen

 

L

luby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-12

• #6

我曾经成功实现，关键是使用NMSMTP控件。在其SendStart事件中：
写关键的一句：
NMSMTP1.FinalHeader.delete(1);
这样可以对FinalHeader中的任何条目做修改。

希望你成功！

luby

 

L

luby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-12

• #7

需不需要TNMSMTP控件的用法？
其实，您可以将他拖上FORM再看帮助，其中有一个例子

 

郝

郝好

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-13

• #8

这个例子有问题，
还是看帮助吧。

 

L

luby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-13

• #9

应该非常方便地可以实现，TNMSMTP在您指定好有关信息后就开始发送，（CONNECT方法）
这时他会触发SENDSTART事件，你可以在此时拦截FinalHeader的内容看看，然后选择
删掉一些行，甚至还可以加上一些假信息！

luby

 

L

ligwin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-15

• #10

luby能不能给份源码看一看。

 

N

netwind

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-22

• #11

多人接受答案了。