delphi中怎么实现收发短信与邮件？

Question

如题！急！在线等待。短信与邮件接入服务器已有。有哪位大侠弄过吗？拜托提供点资料

Answer 1

to lgqTiger(【老虎】) 
也发给我看看好吗？学习
[email protected]

Answer 2

[email protected] 不要 说不算 算了不说哦！

Answer 3

我也需要 [email protected]
有好的大家共享吗

Answer 4

wo ye yao :) 如果有第三方控件也告诉我从那里下载,谢谢您!
[email protected]

Answer 5

大哥 我也需要
[email protected]

Answer 6

procedure InitMail();
var
   ini:TiniFile;
   fn:string;
   sHost,sUser,sFromAddress,sFromName,sTitle:string;
   nPort:integer;
begin
    fn:=ExtractFilePath(Paramstr(0))+'mail.ini';
    ini:=TiniFile.Create(fn);
    sHost:=ini.ReadString('MAILINFO','HOST','');
    sUser:=ini.ReadString('MAILINFO','USER','');
    nPort:=ini.ReadInteger('MAILINFO','PORT',25);
    sFromAddress:=ini.ReadString('MAILINFO','FROMEMAIL','');
    sFromName:=ini.ReadString('MAILINFO','FROMNAME','');
    sTitle:=ini.ReadString('MAILCONT','MAILTITLE','');    mailBox:=TNMSMTP.Create(nil);
    mailBox.Host:=sHost;
    mailBox.Port:=nPort;
    mailBox.UserID:=sUser;
    mailBox.PostMessage.ToAddress.Clear;
    mailBox.PostMessage.ToCarbonCopy.Clear;
    mailBox.PostMessage.ToBlindCarbonCopy.Clear;
    mailBox.PostMessage.Body.Clear;
    mailBox.PostMessage.FromAddress:=sFromAddress;
    mailBox.PostMessage.FromName:=sFromName;
    mailBox.PostMessage.Subject:=sTitle;
    ini.Free;
end;procedure FinalMail();
begin
    mailBox.Disconnect;
    mailBox.Free;
    frmMain.StatusBar1.Panels[0].Text:='Disconnected to NMSMTP...';
end;procedure TfrmMailsend.BitBtn1Click(Sender: TObject);
var
     j:integer;
     sMail:string;
     nCoutMail:integer;
begin
     pro:=TProgressBar.Create(frmMain.StatusBar1);
     pro.Parent:=frmMain.StatusBar1;
     pro.Left:=1;
     pro.Top:=3;
     pro.Height:=frmMain.StatusBar1.Height-3;
     pro.Width:=frmMain.StatusBar1.Panels[0].Width;     pro.Position:=1;
     pro.StepBy(1);
     pro.Max:=mailList.Lines.Count-1;     nCoutMail:=0;
     frmMain.StatusBar1.Panels[0].Text:='try connect to NMSMTP...';
     InitMail;
     setFileAdd;
     try
     mailBox.Connect;
     if mailBox.Connected then
     begin
          frmMain.StatusBar1.Panels[1].Text:='连接NMSMTP成功,正在发邮件...';
        setMailCont;
          mailBox.PostMessage.ToAddress.Clear;
          for j:=0 to mailList.Lines.Count-1 do
          begin
              sMail:=mailList.Lines[j];
              //mailBox.PostMessage.ToAddress.Clear;
              if mailBox.PostMessage.ToAddress.Count<1 then
                    mailBox.PostMessage.ToAddress.Add(sMail)
              else
                    mailBox.PostMessage.ToCarbonCopy.Add(sMail);
                    pro.Position:=j;
              //mailBox.SendMail;
              //Inc(nCoutMail);
              //frmMain.StatusBar1.Panels[1].Text:='已发邮件: '+inttostr(nCoutMail)+'封';
          end;
          mailBox.SendMail;
          pro.Position:=0;
     end;
     //pro.Position:=mailList.Lines.Count-1;
     frmMain.StatusBar1.Panels[1].Text:='发送邮件成功，共发了'+inttostr(mailList.Lines.Count)+'封邮件';
     FinalMail;
     except
         on E:exception do
            frmMain.StatusBar1.Panels[0].Text:=E.Message;
     end;
end;

Answer 7

好人真多，我也要，谢谢。
[email protected]

Answer 8

to lgqTiger(【老虎】) 
还有我？现在急需在原来的程序中嵌入这段发短信的代码.
[email protected]

Answer 9

急需!
[email protected]
谢谢