老掉牙的发邮件问题（indy控件）。

Question

D6下面的Demos\Indy\MailClient应该是一个不错的实例。看看吧。

Answer 1

服务器还需要什么设置吗？我用的是smtp.chinaren.com

Answer 2

没有D6，那么Indy从哪来？你用的是Kylix？

Answer 3

把D6的例子发过去。不过有INDY，怎么会没有Sample呢？

Answer 4

to:chechy
我在网上下载的控件，没有实例。我用的d5啊！
to:sundayboys
我还没那么笨吧！:)
难道是我的d5有问题，为什么你可以connect啊?

Answer 5

D6的例子，考出来。{***************************************************************
 *
 * Project  : MailDemo
 * Unit Name: MsgEditor
 * Purpose  : Sub form
 * Version  : 1.0
 * Date  : Wed 25 Apr 2001  -  01:28:29
 * Author  : Hadi Hari <[email protected]>
 * History  :
 * Tested  : Wed 25 Apr 2001  // Allen O'Neill <[email protected]>
 *
 ****************************************************************}unit MsgEditor;interfaceuses
{$IFDEF Linux}
   QGraphics,  QControls,  QForms,  QDialogs,  QStdCtrls,  QComCtrls,  QExtCtrls,
     QGrids,  QButtons,  QMenus,  QImgList,
{$ELSE}
   Graphics,  Controls,  Forms,  Dialogs,  StdCtrls,  ComCtrls,  ExtCtrls,  Grids,
     Buttons,  Menus,  ImgList,
{$ENDIF}
  windows, messages,  SysUtils,  Classes, IdBaseComponent, IdMessage, IdComponent,
    IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP;type
  TfrmMessageEditor = class(TForm)
    bbtnAdvanced: TBitBtn;
    bbtnCancel: TBitBtn;
    bbtnOk: TBitBtn;
    btnAttachment: TBitBtn;
    btnText: TBitBtn;
    cboPriority: TComboBox;
    chkReturnReciept: TCheckBox;
    Edit1: TEdit;
    edtBCC: TEdit;
    edtCC: TEdit;
    edtSubject: TEdit;
    edtTo: TEdit;
    grpAttachment: TGroupBox;
    IdMsgSend: TIdMessage;
    lblBCC: TLabel;
    lblCC: TLabel;
    lblPriority: TLabel;
    lblSubject: TLabel;
    lblTo: TLabel;
    lvFiles: TListView;
    Memo1: TMemo;
    pnlBottom: TPanel;
    pnlButtons: TPanel;
    pnlMainDetails: TPanel;
    pnlSmallButtons: TPanel;
    pnlTop: TPanel;
    pnlTopLeft: TPanel;
    StatusBar1: TStatusBar;
    SMTP: TIdSMTP;
    OpenDialog1: TOpenDialog;
    procedure bbtnAdvancedClick(Sender: TObject);
    procedure bbtnOkClick(Sender: TObject);
    procedure btnAttachmentClick(Sender: TObject);
    procedure btnTextClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure ResetAttachmentListView;
  public
    { Public declarations }
  end;var
  frmMessageEditor: TfrmMessageEditor;  {TODO:  Handle message body which is typed in the RichEdit}implementation
uses msgEdtAdv, main;{$IFDEF MSWINDOWS}{$R *.dfm}{$ELSE}{$R *.xfm}{$ENDIF}procedure TfrmMessageEditor.bbtnOkClick(Sender: TObject);
begin
  with IdMsgSend do
  begin
    Body.Assign(Memo1.Lines);
    From.Text := UserEmail;
    Recipients.EMailAddresses := edtTo.Text; { To: header }
    Subject := edtSubject.Text; { Subject: header }
    Priority := TIdMessagePriority(cboPriority.ItemIndex); { Message Priority }
    CCList.EMailAddresses := edtCC.Text; {CC}
    BccList.EMailAddresses := edtBCC.Text; {BBC}
    if chkReturnReciept.Checked then
    begin {We set the recipient to the From E-Mail address }
      ReceiptRecipient.Text := From.Text;
    end
    else
    begin {indicate that there is no receipt recipiant}
      ReceiptRecipient.Text := '';
    end;
  end;  {authentication settings}
  case SmtpAuthType of
    0: SMTP.AuthenticationType := atNone;
    1: SMTP.AuthenticationType := atLogin; {Simple Login}
  end;
  SMTP.UserID := SmtpServerUser;
  SMTP.Password := SmtpServerPassword;  {General setup}
  SMTP.Host := SmtpServerName;
  SMTP.Port := SmtpServerPort;  {now we send the message}
  SMTP.Connect;
  try
    SMTP.Send(IdMsgSend);
  finally
    SMTP.Disconnect;
  end;
end;procedure TfrmMessageEditor.bbtnAdvancedClick(Sender: TObject);
begin
  with TfrmAdvancedOptions.Create(Application) do
  try
    edtSender.Text := IdMsgSend.Sender.Text;
    mmoExtraHeaders.Lines := IdMsgSend.ExtraHeaders;
    if ShowModal = mrOk then
    begin
      {Sender header}
      IdMsgSend.Sender.Text := edtSender.Text;
      {Extra header}
      IdMsgSend.ExtraHeaders.Assign(mmoExtraHeaders.Lines);
    end;
  finally
    Free;
  end;
end;procedure TfrmMessageEditor.FormCreate(Sender: TObject);
begin
  cboPriority.ItemIndex := Ord(IdMsgSend.Priority);
end;procedure TfrmMessageEditor.btnAttachmentClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    TIdAttachment.Create(IdMsgSend.MessageParts, OpenDialog1.FileName);
    ResetAttachmentListView;
  end;
end;procedure TfrmMessageEditor.ResetAttachmentListView;
var
  li: TListItem;
  idx: Integer;
begin
  lvFiles.Items.Clear;
  for idx := 0 to Pred(IdMsgSend.MessageParts.Count) do
  begin
    li := lvFiles.Items.Add;
    if IdMsgSend.MessageParts.Items[idx] is TIdAttachment then
    begin
      li.ImageIndex := 0;
      li.Caption := TIdAttachment(IdMsgSend.MessageParts.Items[idx]).Filename;
      li.SubItems.Add(TIdAttachment(IdMsgSend.MessageParts.Items[idx]).ContentType);
    end
    else
    begin
      li.ImageIndex := 1;
      li.Caption := IdMsgSend.MessageParts.Items[idx].ContentType;
    end;
  end;
end;procedure TfrmMessageEditor.btnTextClick(Sender: TObject);
begin
  if Length(Edit1.Text) = 0 then
  begin
    MessageDlg('Indicate ContentType first', mtError, [mbOk], 0);
  end
  else
  begin
    with TIdText.Create(IdMsgSend.MessageParts, Memo1.Lines) do
    begin
      ContentType := Edit1.Text;
    end;
    Memo1.Clear;
    ResetAttachmentListView;
  end;
end;end.

Answer 6

还有就是现在很多服务器要校验，你必须将smtp.AuthenticationType:=atlogin；不要atnone。
  

Answer 7

不对，你必须的保证你的机子和internet联着呢才行，否则出错！我可以给你一个例子！！！！连接前先检测是否和internet 联着！！就行了。