Conectar-se
Quem está conectado
30 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 30 Visitantes

Nenhum

Ver toda a lista


Compartilhe
Ver o tópico anteriorIr em baixoVer o tópico seguinte
avatar
Data de inscrição : 15/08/2010
Número de Mensagens : 1597
Insígnias de JAM :

Insignia 1x 0 Insignia 2x 0 Insignia 3x 0
Reputação : 147

Prêmios
   : 0
   : 0
   : 0
Ver perfil do usuáriohttp://spyreserver.16mb.com

help with DELPHI

em Ter 31 Jul 2012, 04:32
gente preciso de uma ajuda com delphi, se naum pode postar coisas de delphi me perdoem mais é pq é urgente e eu n tenho outro lugar pra buscar ajuda.
o codigo é esse:

Código:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
idSMTP1.AuthenticationType := atLogin;

idSMTP1.Host := 'smtp.mail.yahoo.com.br' ;

idSMTP1.Port := 25;

idSMTP1.Username := 'MEU EMAIL@YAHOO.com.br';

idSMTP1.Password := 'SENHA';

idSMTP1.Connect(30000);

IdMessage1.From.Address := 'MEU EMAIL@YAHOO.com.br';

IdMessage1.Sender.Name := 'MEU EMAIL@YAHOO.com.br';

IdMessage1.Sender.Address := 'MEU EMAIL@YAHOO.com.br';

IdMessage1.Recipients.EMailAddresses := 'MEU EMAIL@YAHOO.com.br';

IdMessage1.Subject := edit1.Text + '''' + edit2.Text;

IdSMTP1.Send(IdMessage1);

IdSMTP1.Disconnect;
end;

end.

esta no botão enviar email!
dá erro todas as vezes Sad
avatar
Ranking : Nota D
Notas recebidas : D - C - D - C
Data de inscrição : 14/05/2009
Número de Mensagens : 712
Insígnias de JAM :

Insignia 1x 0 Insignia 2x 0 Insignia 3x 0
Reputação : 7

Prêmios
   : 0
   : 0
   : 1
Ver perfil do usuário

Re: help with DELPHI

em Ter 31 Jul 2012, 09:05
Amigo é claro que se eu pudesse ajudar ajudaria, mas não sei nada de delphi, tente em um forum sobre esse assunto, creio que pode ser mais util.
avatar
Data de inscrição : 15/08/2010
Número de Mensagens : 1597
Insígnias de JAM :

Insignia 1x 0 Insignia 2x 0 Insignia 3x 0
Reputação : 147

Prêmios
   : 0
   : 0
   : 0
Ver perfil do usuáriohttp://spyreserver.16mb.com

Re: help with DELPHI

em Ter 31 Jul 2012, 18:02
yes intão obrigado Happy
Ver o tópico anteriorVoltar ao TopoVer o tópico seguinte
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum