使用TNMSMTP发送匿名邮件

时间:2010-01-28 08:41:06  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:SMTP发送时,邮件头在 FinalHeader属性中。哈哈,只要我们能将FinalHeader中的值删除,那么......    不是能不能删除FinalHeader属性中的值,应该是我们在邮件发送前有没有机会来删除它?幸运的是,TNMSMTP有一个OnSendStart事件,它是在所有的合法性验证完成后,即将开始发送邮件时触发的。验证完成,而邮件还没发送,哈哈,机会就在这!  &n...
  正文:TNMSMTP控件可以方便的发送邮件,当然,我们在使用中稍加控制,就可以发送匿名邮件了。
    匿名邮件,即隐藏邮件的地址和姓名,甚至所有的发送者的信息。
    我们知道,发送者的信息在邮件头中,使用TNMSMTP发送时,邮件头在 FinalHeader属性中。哈哈,只要我们能将FinalHeader中的值删除,那么......
    不是能不能删除FinalHeader属性中的值,应该是我们在邮件发送前有没有机会来删除它?幸运的是,TNMSMTP有一个OnSendStart事件,它是在所有的合法性验证完成后,即将开始发送邮件时触发的。验证完成,而邮件还没发送,哈哈,机会就在这!
    新建一个应用程序,在窗何中加入
    Label1    Caption = 邮件服务器
    Edit1
    Label2    caption = 端口
    Edit2
    Label3    caption = 用户名
    Edit3
    Label4    caption = 接收人邮箱
    Edit4
    Label5    caption = 标题
    Edit5
    Label6    caption = 发收人邮箱
    Edit6
    Label7    caption = 发收人名称
    Edit7
    Label8    caption = 邮件内容
    Memo1
    Button1    caption = 发送

    在按下“发送”按钮后进行邮件发送:

procedure TForm1.Button1Click(Sender:TObject);
begin
  With NMSMTP1 do begin
      if Connected then
      Disconnect;
      Host := Edit1.Text;
      Port := StrToInt(Edit2.Text);
      UserID := Edit3.Text;
      
      try
        connect;
        except
          MessageDlg('连接服务错误!',mtError,[mbAbort],0);
          exit;
        end;
        
        PostMessage.FromAddress := Edit6.Text;
        PostMessage.FromName := Edit7.Text;
        PostMessage.Subject := Edit5.Text;
        PostMessage.ToAddress.Add(Edit4.Text);
        PostMessage.Body.Assign(Memo1.Lines);
        
        try
          SendMail;
          except
            MessageDlg('嗨,Sorry,我不得不遗憾但又不能不告诉你——邮件发送失败!',mtError,[mbAbort],0);
            End;
            
            Disconnect;
          end;
        end;
        
        procedure TForm1.NMSMTP1.Success(Sender:TObject);
        begin
          ShowMessage('祝贺你,邮件发送成功!');
        end;
        
        procedure TForm1.NMSMTP1SendStart(Sender:TObject);
        begin
          NMSMTP1.FinalHeader.Clear;          //匿名就在此了,清除所有的邮件头

使用TNMSMTP发送匿名邮件》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12545.html


关键字:

关于《使用TNMSMTP发送匿名邮件》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td