Bem-vindo(a) ao Fórum do Guia do Hacker.
Guia do Hacker - Seu Guia Completo de Informação Digital

Fórum do Guia do Hacker » Programação e Banco de Dados » Programação Desktop » Delphi/Pascal » Delphi Como enviar um simples E-mail utilizando o Delphi 2010?

Delphi/Pascal Área destinada a programação Delphi & Pascal.

Tópicos Similares
Tópico Tópico Iniciado Por Fórum Respostas Última Mensagem
Video Aula Curso Delphi 2010 - Criando uma Aplicação Completa de vendas com Delphi 2010 maicrotec_acn Delphi/Pascal 4 16-03-2013 11:50
Duvida Formulario (Enviar Dados Para 2 E-Mail Cco) MShadow PHP 3 05-03-2012 22:17
25/09/2010 18h10 - Atualizado em 25/09/2010 19h43 TSE alerta para e-mail falso enviado em seu nome M2G Notícias 0 26-09-2010 02:08
Delphi [Duvida] Eu uso o Delphi 2010 como instalar o TWindows media Player? L3ND4URB4N4' Delphi/Pascal 0 21-01-2010 00:20

Resposta
Ferramentas do Tópico vBmenu Seperating Image Modos de Exibição vBmenu Seperating Image
Delphi Como enviar um simples E-mail utilizando o Delphi 2010?
Antigo 15-09-2012, 13:27   #1
Geek404
Membro
 
Avatar de Geek404
 
Status: Membro
Registrado em: Jul 2012
Localização: Brasil
Posts: 4
Agradeceu: 1
Agradecido 0 Vezes em 0 Posts
Geek404 é um desconhecido na estrada
Post Como enviar um simples E-mail utilizando o Delphi 2010?

Olá galera do Guia do Hacker,sou novo no forum e estou tendo dificuldade para enviar um e-mail utilizando delphi...

O aplicativo funciona da seguinte forma:

1º Pega dados da maquina.
2º Envia os dados para determinado endereço de e-mail.

Se puderem me ajudar fico muito grato.

Obrigado.



Notice: This Ad only show to guest, please register now to disappear !
Geek404 está offline   Responder com Citação
Links Patrocinados
Antigo 03-10-2012, 20:32   #2
rodrigoninja
Membro
 
Avatar de rodrigoninja
 
Status: Membro
Registrado em: May 2011
Localização: Patrocínio
Posts: 3
Agradeceu: 0
Agradecido 1 Vez em 1 Post
rodrigoninja é um desconhecido na estrada
Padrão

Abaixo um exemplo. se vc já resolveu beleza. Caso contrário vai ajudar outros que tiverem a mesma dificuldade.
O exemplo abaixo foi feito no Delphi XE. Insira um botão num form (botão enviar) e dentro dele cole o seguinte código.

Código:
1 • Introduza num Form o coponente IdSmtp.
2 • Introduza num Form o coponente IdMessage.
Segue Código:

begin
idsmtp1.AuthType:=satDefault; { Conexão com autenticação }
idsmtp1.Host:='smtp.live.com';   //ou gmail, yahoo, etc
idsmtp1.Password:='senhadoemail'; { Senha }
idsmtp1.Port:=25; { porta é sempre essa não mude isso }
idsmtp1.Username:='seuemail@hotmail.com'; 
idmessage1.From.Address:='seuemail@hotmail.com';   //pode ser gmail, etc
idmessage1.From.Name:='Seu nome'; { nome que sairá na menssagem }
idmessage1.From.Text:='Seu nome <seuemail@hotmail.com>'; { Texto composto do Nome <Email> }
{ corpo da mensagem }
idmessage1.Body.Add('Coloque aqui a mensagem ou componente q foi escrita a mensagem');
idmessage1.Body.Add(datetostr(date));
idmessage1.Body.Add(timetostr(now));
idmessage1.Body.Add('Deu Certo');
idmessage1.Recipients.EMailAddresses:='email de quem vai receber este email'; { o email do destinatário }
idmessage1.Subject:='assunto da mensagem'; { assunto da mensagem }
//******************************
idsmtp1.Connect; { conecta ao servidor de email }
try
idsmtp1.Send(idmessage1); { envia a menssagem }
finally
idsmtp1.Disconnect; { Disconecta do servidor }
end;
end;
end.
É um exemplo simples, que pode ser adaptado.



Notice: This Ad only show to guest, please register now to disappear !
rodrigoninja está offline   Responder com Citação
O seguinte Usuário Agradeceu (a): rodrigoninja por gostar desta postagem:
Geek404 (20-10-2012)
Antigo 20-10-2012, 18:40   #3
Geek404
Membro
 
Avatar de Geek404
 
Status: Membro
Registrado em: Jul 2012
Localização: Brasil
Posts: 4
Agradeceu: 1
Agradecido 0 Vezes em 0 Posts
Geek404 é um desconhecido na estrada
Padrão

Obrigado rodrigoninja,mas esta dando o seguinte erro : Must issue a STARTTLS



Notice: This Ad only show to guest, please register now to disappear !
Geek404 está offline   Responder com Citação
Antigo 20-10-2012, 18:46   #4
Geek404
Membro
 
Avatar de Geek404
 
Status: Membro
Registrado em: Jul 2012
Localização: Brasil
Posts: 4
Agradeceu: 1
Agradecido 0 Vezes em 0 Posts
Geek404 é um desconhecido na estrada
Padrão

Obrigado rodrigoninja,mas esta dando o seguinte erro : Must issue a STARTTLS command first (Deve emitir um comando STARTTLS primeiro)...



Notice: This Ad only show to guest, please register now to disappear !
Geek404 está offline   Responder com Citação
Antigo 29-11-2012, 15:04   #5
alboca
Membro
 
Avatar de alboca
 
Status: Membro
Registrado em: Nov 2012
Localização: Brasil
Posts: 1
Agradeceu: 0
Agradecido 0 Vezes em 0 Posts
alboca é um desconhecido na estrada
Padrão

Citação:
Postado Originalmente por Geek404 Ver Post
Obrigado rodrigoninja,mas esta dando o seguinte erro : Must issue a STARTTLS command first (Deve emitir um comando STARTTLS primeiro)...
Alguém conseguiu resolver este problema?



Notice: This Ad only show to guest, please register now to disappear !
alboca está offline   Responder com Citação
Resposta

Ferramentas do Tópico
Modos de Exibição

Regras para Posts
Você não pode postar novos tópicos
Você não pode postar respostas
Você não pode postar anexos
Você não pode editar seus posts

Código [IMG] Sim
Código HTML Não

Ir para...


 

Horários baseados na GMT -3. Agora são 04:19.


Please enable / Bitte aktiviere JavaScript!
Veuillez activer / Por favor activa el Javascript![ ? ]