请问delphi7如何实现发送邮件

Question

请问如何实现用户加载我的程序窗体之后自动发送邮件到别人邮箱?例如别人的邮箱是[email protected]

Answer 1

你得窗体负责发送邮件吗,如果是这样可以在加载你得程序时,假如是通过ShellExecute加载的,可以传递参数,参数可以是邮件地址或内容等,同时你得程序也需要添加处理参数的代码

Answer 2

发送邮件，可以用IdMessage和IdSMTP实现，简单的参考代码procedure TForm4.SpeedButton2Click(Sender: TObject);
var
  mxlist:tstringlist;
  i:integer;
  qname,thoughaddress:string;
begin
  form4.IdMessage1.Body.Assign(form4.Memo1.Lines);
  form4.IdMessage1.From.Address:=form4.Edit2.Text;
  form4.IdMessage1.Recipients.EMailAddresses:=trim(form4.Edit1.Text);
  form4.IdMessage1.Subject:=form4.Edit3.Text;
  qname:=trimright(copy(form4.Edit1.Text,pos('@',form4.Edit1.Text)+1,length(form4.Edit1.Text)));
  mxlist:=tstringlist.create;
  try
    form4.GetMxList(mxlist,qname);
    thoughaddress:=mxlist.Names[0];
  finally
    mxlist.Free;
  end;
  form4.IdSMTP1.Host:=thoughaddress;
  form4.IdSMTP1.Port:=25;
  form4.IdSMTP1.Connect;
  try
    form4.IdSMTP1.Send(form4.IdMessage1);
    form4.StatusBar1.SimpleText:='邮件发送成功...';
  finally
    form4.IdSMTP1.Disconnect;
    form4.StatusBar1.SimpleText:='';
  end;
end;

Answer 3

按楼上的方法就行，不过邮件服务器，得支持SMTP方式，另外得delphi写的的邮件不认为是垃圾邮件，不然发不成功