|
 |
栏目导栏 |
|
| |
|
|
|
|
|
资料搜索 |
|
| |
|
|
|
|
|
热门文章 |
|
| |
|
|
|
|
|
最新文章 |
|
| |
|
|
|
| |
| |
|
|
|
|
TNMSMTP控件可以方便的发送邮件，当然，我们在使用中稍加控制，就可以发送匿名邮件了。YQuLinux联盟
匿名邮件，即隐藏邮件的地址和姓名，甚至所有的发送者的信息。YQuLinux联盟
我们知道，发送者的信息在邮件头中，使用TNMSMTP发送时，邮件头在 FinalHeader属性中。哈哈，只要我们能将FinalHeader中的值删除，那么......YQuLinux联盟
不是能不能删除FinalHeader属性中的值，应该是我们在邮件发送前有没有机会来删除它？幸运的是，TNMSMTP有一个OnSendStart事件，它是在所有的合法性验证完成后，即将开始发送邮件时触发的。验证完成，而邮件还没发送，哈哈，机会就在这！YQuLinux联盟
新建一个应用程序，在窗何中加入YQuLinux联盟
Label1 Caption = 邮件服务器YQuLinux联盟
Edit1YQuLinux联盟
Label2 caption = 端口YQuLinux联盟
Edit2YQuLinux联盟
Label3 caption = 用户名YQuLinux联盟
Edit3YQuLinux联盟
Label4 caption = 接收人邮箱YQuLinux联盟
Edit4YQuLinux联盟
Label5 caption = 标题YQuLinux联盟
Edit5YQuLinux联盟
Label6 caption = 发收人邮箱YQuLinux联盟
Edit6YQuLinux联盟
Label7 caption = 发收人名称YQuLinux联盟
Edit7YQuLinux联盟
Label8 caption = 邮件内容YQuLinux联盟
Memo1YQuLinux联盟
Button1 caption = 发送YQuLinux联盟
YQuLinux联盟
在按下“发送”按钮后进行邮件发送：YQuLinux联盟
YQuLinux联盟
procedure TForm1.Button1Click(Sender:TObject);YQuLinux联盟
beginYQuLinux联盟
With NMSMTP1 do beginYQuLinux联盟
if Connected thenYQuLinux联盟
Disconnect;YQuLinux联盟
Host := Edit1.Text;YQuLinux联盟
Port := StrToInt(Edit2.Text);YQuLinux联盟
UserID := Edit3.Text;YQuLinux联盟
YQuLinux联盟
tryYQuLinux联盟
connect;YQuLinux联盟
exceptYQuLinux联盟
MessageDlg('连接服务错误！',mtError,[mbAbort],0);YQuLinux联盟
exit;YQuLinux联盟
end;YQuLinux联盟
YQuLinux联盟
PostMessage.FromAddress := Edit6.Text;YQuLinux联盟
PostMessage.FromName := Edit7.Text;YQuLinux联盟
PostMessage.Subject := Edit5.Text;YQuLinux联盟
PostMessage.ToAddress.Add(Edit4.Text);YQuLinux联盟
PostMessage.Body.Assign(Memo1.Lines);YQuLinux联盟
YQuLinux联盟
tryYQuLinux联盟
SendMail;YQuLinux联盟
exceptYQuLinux联盟
MessageDlg('嗨，Sorry，我不得不遗憾但又不能不告诉你——邮件发送失败！',mtError,[mbAbort],0);YQuLinux联盟
End;YQuLinux联盟
YQuLinux联盟
Disconnect;YQuLinux联盟
end;YQuLinux联盟
end;YQuLinux联盟
YQuLinux联盟
procedure TForm1.NMSMTP1.Success(Sender:TObject);YQuLinux联盟
beginYQuLinux联盟
ShowMessage('祝贺你，邮件发送成功！');YQuLinux联盟
end;YQuLinux联盟
YQuLinux联盟
procedure TForm1.NMSMTP1SendStart(Sender:TObject);YQuLinux联盟
beginYQuLinux联盟
NMSMTP1.FinalHeader.Clear; //匿名就在此了，清除所有的邮件头YQuLinux联盟
end;YQuLinux联盟
|
|
|
|
|
|
|
