Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Como enviar um simples E-mail utilizando o Delphi 2010?

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

    Delphi 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.

  • Font Size
    #2
    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.

    Comment


    • Font Size
      #3
      Obrigado rodrigoninja,mas esta dando o seguinte erro : Must issue a STARTTLS

      Comment


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

        Comment


        • Font Size
          #5
          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?

          Comment

          X
          Working...
          X