Portal Acror Portal Acror Portal Acror
Sentimentos

Meu livro de poesias recém lançado.
Adquire o seu Aqui
Ou entre em contato

Home
  Estatisticas
  Recomende
  FAQ
Sistemas
  Codomínios
  Sistemas On-line
Suporte
  Produtos
Artigos
  Jornal
Administração
  Painel Controle
  PGDAS
  Nota Carioca
  Webmail
  Sentimentos
Downloads
  Curso on-Line
  Web Links
PHP
  Tools - PHP
  Manual PHP
Links
  Souza Ramos
  Lumagraf
  Traduz Online
  Games Bestlife

Atualização
Grátis
SistemaBaixar
TPM




ENVIANDO EMAIL COM HOTMAIL

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase,
IdSMTP, StdCtrls, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL,
IdSSLOpenSSL;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var SMTP : TidSMTP;
EMAIL : TIdMessage;
SSL : TIdSSLIOHandlerSocketOpenSSL;
i : integer;
begin

// Criando a mensagem de email
EMAIL := TIdMessage.Create(nil);
with EMAIL do
begin
From.Name := 'Mensagem Eletrônica'; // Nome
From.Address := 'meuemail@hotmail.com'; // E-Mail
Recipients.Add;
Recipients.items[0].Address := 'meuemail@hotmail.com'; // Para
Subject := 'Termino de financiamento '; // Assunto

for i := 0 to Memo1.Lines.Count - 1 do
begin
body.Add(Memo1.Lines[i]);
end;
end;

// Criando o Segurança SSL
SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

// Criando o objeto
SMTP := TidSMTP.Create(nil);
with SMTP do
begin
Username := 'meuemail@hotmail.com';
Password := 'minhasenha';
Host := 'smtp.live.com';
port := 25;
IOHandler := SSL;
UseTLS := utUseExplicitTLS;
// Enviando.....
try
Connect();
Send(EMAIL);
Disconnect;
except
MessageDlg('O EMAIL NÃO PODE SER ENVIADO!', mtWarning, [mbOK], 0);
end;
SMTP.Destroy();
EMAIL.Destroy();
SSL.Destroy();
end;
end;

end.



[ Voltar ]




Copyright © 2010 - Portal Acror - Todos os direitos reservados



All logos and trademarks in this site are property of their respective owner. The comments are property of their posters, all the rest © 2002 by me
You can syndicate our news using the file backend.php or ultramode.txt
PHP-Nuke Copyright © 2005 by Francisco Burzi. This is free software, and you may redistribute it under the GPL. PHP-Nuke comes with absolutely no warranty, for details, see the license.
Tempo para gerar esta página: 0.04 segundos