如何编写免SMTP的发信程序

Question

想写一个邮件群发程序，用SMTP的太麻烦，所以想用 邮件快递那种原理，把自己的电脑当作邮件服务器，不知道可否行得通，我用网上已经存在的软件的免SMTP发信功能，一般的像163  SOHU 等邮箱收不到信，是不是163 SOHU等的邮件会验证是不是真正的服务器发来的信
希望各位提供相关免SMTP发信的资料

Answer 1

----------------
没人会我的天啦
----------------
又不是什么高难度，别这么夸张好不好？
全是转贴，没找到原文出处
-----------------------------------------
MAPI发送电子邮件var
  MapiMessage: TMapiMessage;
  MError: Cardinal;
begin
  with MapiMessage do
  begin
    ulReserved := 0;
    lpszSubject := nil;
//    lpszNoteText := PChar(RichEdit1.Lines.Text);
     lpszNoteText := PChar('fuack');
    lpszMessageType := nil;
    lpszDateReceived := nil;
    lpszConversationID := nil;
    flFlags := 0;
    lpOriginator := nil;
    nRecipCount := 0;
    lpRecips := nil;
    nFileCount := 0;
    lpFiles := nil;
  end;  MError := MapiSendMail(0, 0, MapiMessage,
    MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0);
  if MError <> 0 then MessageDlg(SSendError, mtError, [mbOK], 0);
还可以自己对错误进行处理