Esse é meu primeiro artigo aki no DevMedia, espero que seja útil.
Vamos lá então.
Depois de baixar, descompacte e copie para o diretório (c:\Windows\System32) ou no diretório do seu projeto.
Componentes
TEdit;
Name := 'edtRemet';
TEdit;
Name := 'edtDest';
TEdit;
Name := 'edtAssunto';
TListBox;
Name := 'lbAnexos';
Ctl3D := False;
TBitBtn;
Name := 'btAnexar';
Caption := 'Anexar arquivo';
TMemo;
Name := 'memoMSG';
ScrollBars := ssBoth;
TBitBtn;
TBitBtn;
Name := 'btEnviar';
Caption := 'Enviar';
TStatusBar;
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';
TIdSSLIOHandlerSocket;
Name := 'SSLSocket';
SSLOptions.Method := sslvSS
...
Exibição do post interrompida. Para ler conteúdo completo,
clique aqui
01/06/2008 00:47:00
2008
2008
1
0
