应用OUTLOOK2003发送附件

使用OUTLOOK2003发送附件
代码如下：

  try
    IdSMTP1.Username:='aa';
    IdSMTP1.Password:='dfdf';
    IdMessage1.From.Address:='dfd@ldjfl.com';
    IdMessage1.Recipients.EMailAddresses:='dfd@ldjfl.com';
    IdSMTP1.Host:='192.168.30.207';
    IdSMTP1.Port:=25;
    IdSMTP1.Connect;
  except
    Showmessage('ok!');
    Exit;
  end;
  IdMessage1.Body.Clear;
  IdMessage1.Subject:='test';
  IdMessage1.Body.Text:='ssdsdsd';
  try
    idSMTP1.Send(IdMessage1);
    Showmessage('fail!')
  Except
  end;

使用的控件是：IdSMTP1，IdMessage1，请问如何发送指定的附件？
[解决办法]
idattachment这个没在控件面板中

你改成下面的试下：

interface

uses IdMessage;


procedure TFmRossSearchBrowser.RzBitBtn_CreateClick(Sender: TObject);
Var
  ExlApp: Variant;
  flag,filename:String;
  i,k:Integer;
  att:TIdattachment;
begin
Try
    IdSMTP1.Username:=DM_RossSearchSql.Qy_eMailList.FieldByName('EmailAccount').AsString;
    IdSMTP1.Password:=DecryStrHex(DM_RossSearchSql.Qy_eMailList.FieldByName('EmailPassword').AsString,'123');
    IdMessage1.From.Address:=DM_RossSearchSql.Qy_eMailList.FieldByName('EmailAddress').AsString;  
    IdSMTP1.Host:='192.168.30.207';
    IdSMTP1.Port:=25;
    IdSMTP1.Connect;
    //att.Create(IdMessage1.MessageParts,'c:\1.rar');
    TIdAttachment.Create(IdMessage1.MessageParts,'c:\1.rar');
  Except
    Showmessage('rtrt!');
    Exit;
  end;
  IdMessage1.Subject:='gfg';
  IdMessage1.Body.Text:='Hi'+#13+#10+#9+#9+'34343';
  IdSMTP1.Send(IdMessage1);
end;

查看更多 下一篇