Esse é meu primeiro artigo aki no DevMedia, espero que seja útil.
Vamos lá então.
Para que o SSL funcione, o Indy usa uma biblioteca (DLL). A OpenSSL que é GPL e foi desenvolvida por terceiros. http://indy.fulgan.com/SSL/indy_OpenSSL096m.zip
Depois de baixar, descompacte e copie para o diretório (c:\Windows\System32) ou no diretório do seu projeto.
Componentes
TEdit;
Name := 'edtRemet';
Name := 'edtRemet';
TEdit;
Name := 'edtDest';
Name := 'edtDest';
TEdit;
Name := 'edtAssunto';
Name := 'edtAssunto';
TListBox;
Name := 'lbAnexos';
Ctl3D := False;
Name := 'lbAnexos';
Ctl3D := False;
TBitBtn;
Name := 'btAnexar';
Caption := 'Anexar arquivo';
Name := 'btAnexar';
Caption := 'Anexar arquivo';
TMemo;
Name := 'memoMSG';
ScrollBars := ssBoth;
Name := 'memoMSG';
ScrollBars := ssBoth;
TBitBtn;
TBitBtn;
Name := 'btEnviar';
Caption := 'Enviar';
Name := 'btEnviar';
Caption := 'Enviar';
TStatusBar;
Name := 'statusBar'; (Não esqueça de adicionar um panel)
TOpenDialog;
Name := 'OpenDialog1';
Options := [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing];
Name := 'statusBar'; (Não esqueça de adicionar um panel)
TOpenDialog;
Name := 'OpenDialog1';
Options := [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing];
TIdSMTP;
Name := 'SMTP';
IOHandler := SSLSocket; <- Aki você linka com o componente TIdSSLIOHandlerSocket.
Host := 'smtp.gmail.com';
Port := 465;
AuthenticationType := atLogin;
Password := 'senha';
Username := 'seu_gmail@gmail.com';
Name := 'SMTP';
IOHandler := SSLSocket; <- Aki você linka com o componente TIdSSLIOHandlerSocket.
Host := 'smtp.gmail.com';
Port := 465;
AuthenticationType := atLogin;
Password := 'senha';
Username := 'seu_gmail@gmail.com';
TIdSSLIOHandlerSocket;
Name := 'SSLSocket';
SSLOptions.Method := sslvSSLv2;
SSLOptions.Mode := sslmUnassigned;
SSLOptions.VerifyMode := [];
SSLOptions.VerifyDepth := 0;
OnStatusInfo := SSLSocketStatusInfo;
Name := 'SSLSocket';
SSLOptions.Method := sslvSSLv2;
SSLOptions.Mode := sslmUnassigned;
SSLOptions.VerifyMode := [];
SSLOptions.VerifyDepth := 0;
OnStatusInfo := SSLSocketStatusInfo;
TIdMessage;
Name := 'Mesage';
Name := 'Mesage';
Formulário
Código
Evento StatusInfo do Componente SSLSocket (TIdSSLIOHandlerSocket)
procedure TForm1.SSLSocketStatusInfo(Msg: String);
begin
Application.ProcessMessages;
statusBar.Panels[0].Text := 'idSSL: ' + Msg;
end;
begin
Application.ProcessMessages;
statusBar.Panels[0].Text := 'idSSL: ' + Msg;
end;
Evento Status do Componente SMTP (TIdSMTP)
procedure TForm1.SMTPStatus(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: String);
begin
Application.ProcessMessages;
statusBar.Panels[0].Text := 'idSMTP: ' + AStatusText;
end;
const AStatusText: String);
begin
Application.ProcessMessages;
statusBar.Panels[0].Text := 'idSMTP: ' + AStatusText;
end;
Evento Click do Componente btAnexar (Botao anexar)
procedure TForm1.btAnexarClick(Sender: TObject);
var
i: integer;
begin
if OpenDialog1.Execute then
begin
for i:= 0 to OpenDialog1.Files.Count -1 do
if (lbAnexos.Items.IndexOf(OpenDialog1.Files[i]) = -1) then
lbAnexos.Items.Add(OpenDialog1.Files[i])
end;
end;
var
i: integer;
begin
if OpenDialog1.Execute then
begin
for i:= 0 to OpenDialog1.Files.Count -1 do
if (lbAnexos.Items.IndexOf(OpenDialog1.Files[i]) = -1) then
lbAnexos.Items.Add(OpenDialog1.Files[i])
end;
end;
Evento Click do Componente btEnviar (Botão Enviar)
procedure TForm1.btEnviarClick(Sender: TObject);
var
i: integer;
begin
var
i: integer;
begin
btEnviar.Enabled := False;
Screen.Cursor := crHourglass;
statusBar.Panels[0].Text := 'Aguarde...';
// anexa os arquivos
if lbAnexos.Items.Count > 0 then
begin
for i:= 0 to lbAnexos.Items.Count -1 do
TIdAttachment.Create(Mesage.MessageParts, lbAnexos.Items[i]);
end;
// email do remetente
Mesage.From.Name := edtRemet.Text;
// email do destinatário
Mesage.Recipients.EMailAddresses := edtDest.Text;
// assunto do email
Mesage.Subject := edtAssunto.Text;
// corpo do email
Mesage.Body.Text := memoMSG.Lines.Text;
Screen.Cursor := crHourglass;
statusBar.Panels[0].Text := 'Aguarde...';
// anexa os arquivos
if lbAnexos.Items.Count > 0 then
begin
for i:= 0 to lbAnexos.Items.Count -1 do
TIdAttachment.Create(Mesage.MessageParts, lbAnexos.Items[i]);
end;
// email do remetente
Mesage.From.Name := edtRemet.Text;
// email do destinatário
Mesage.Recipients.EMailAddresses := edtDest.Text;
// assunto do email
Mesage.Subject := edtAssunto.Text;
// corpo do email
Mesage.Body.Text := memoMSG.Lines.Text;
SMTP.Connect();
try
SMTP.Send(Mesage);
finally
SMTP.Disconnect;
end;
try
SMTP.Send(Mesage);
finally
SMTP.Disconnect;
end;
statusBar.Panels[0].Text := 'Concluído!';
Screen.Cursor := crDefault;
btEnviar.Enabled := True;
end;
Screen.Cursor := crDefault;
btEnviar.Enabled := True;
end;
*** F I M ***
É isso aí.
Espero que tenha gostato. flw!!!
