madimbu182

Ola Pessoal Pessoa juda de vocês por que eu estou fasendo um programinha base que o moderador ensinou a faser um programinha de enviar emails do delphi7 que é o que eu uso então o meu programa esta totalmente terminado mas esta dando um erro:5.7.0 must issue a starttls command first.(já baixei os pacotes de dll de SLL ou e SSL esqueci a) alguém me ajuda, Ai Moderador ajuda eu. aki esta a foto do programa do meu programa. http://www.4shared.com/photo/boO2B3nV/prog...em_delphi7.html Aki estão os codigos gerais do meu programa. unit uisis; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, IdBaseComponent, IdMessage; type TfrmIsis = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; edtPara: TEdit; lbxAnexos: TListBox; mmMensagem: TMemo; edtAssunto: TEdit; btAnexos: TBitBtn; btEnviar: TBitBtn; btFEchar: TBitBtn; odAnexos: TOpenDialog; idMessage: TIdMessage; idSmtp: TIdSMTP; Label4: TLabel; procedure btAnexosClick(Sender: TObject); procedure btFEcharClick(Sender: TObject); procedure btEnviarClick(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var frmIsis: TfrmIsis; implementation {$R *.dfm} procedure TfrmIsis.btAnexosClick(Sender: TObject); begin if odAnexos.Execute then lbxAnexos.Items.Add(odAnexos.FileName); end; procedure TfrmIsis.btFEcharClick(Sender: TObject); begin Application.Terminate; end; procedure TfrmIsis.btEnviarClick(Sender: TObject); var Anexo:integer; begin idMessage.Recipients.EMailAddresses := edtPara.Text; idMessage.Subject := edtAssunto.Text; idMessage.Body := mmMensagem.Lines; for Anexo := 0 to lbxAnexos.Items.Count-1 do TIdAttachment.Create(idmessage.MessageParts, TFileName(lbxAnexos.Items.Strings[Anexo])); IdSMTP.Connect; try IdSMTP.Send(IdMessage); finally IdSMTP.Disconnect; end; Application.MessageBox('Email enviado com sucesso!', 'Confirmação', MB_ICONINFORMATION + MB_OK); end; procedure TfrmIsis.FormCreate(Sender: TObject); begin end; end.