E possivel checar meu email atraves do delphi

Delphi

03/08/2003

E posivel checar meu email atraves do delphi, gostaria de saber se tenho novos email e abrir o provedor do mesmo ou baixar os novos email isto e possivel usando o delphi 5 , alguem terial um ex. para me passar.

ex. checar email bol, terra. ect.

MArcos Diirr


Marcosdiirr

Marcosdiirr

Curtidas 0

Respostas

Edilcimar

Edilcimar

03/08/2003

eu já vi resposta sobre isto aqui mesmo parece-me que foi este
Estes examplos utilizam uma API do Windows muito popular, a shellexecute, por isso não se esqueça de colocar a ShellApi unit no uses clause da sua unit.
// URL(endereço da internet)
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Handle,´open´,´http://www.bytesul.com.br´,nil,nil,SW_SHOW);
end;
// e-mail
procedure TForm1.Label2Click(Sender: TObject);
begin
ShellExecute(Handle,´open´,´mailto:melo@bytesul.com.br´,nil,nil,SW_SHOW);
end;


GOSTEI 0
Afarias

Afarias

03/08/2003

Vc pode utilizar os componentes da paleta FASTNET ou INDY (se não tiver, pode baixar na net e instalar, é OpenSource) ... para construir clientes de email POP ou IMAP.


T+


GOSTEI 0
Gilsonlongo

Gilsonlongo

03/08/2003

Oi,

Estou testando o exemplo citado, mas devo ter deixado algo importante de fora, pois não está funcionando.

Veja:

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ShellApi,
StdCtrls, Buttons;
type
TFGLD456 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
Label2: TLabel;
procedure Label1Click(Sender: TObject);
procedure Label2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

e,

// URL(endereço da internet)
procedure TFGLD456.Label1Click(Sender: TObject);
begin
ShellExecute(Handle,´open´,´http://www.bytesul.com.br´,nil,nil,SW_SHOW);
end;

// e-mail
procedure TFGLD456.Label2Click(Sender: TObject);
begin
ShellExecute(Handle,´open´,´mailto:melo@bytesul.com.br´,nil,nil,SW_SHOW);
end;

Um abraço,


eu já vi resposta sobre isto aqui mesmo parece-me que foi este Estes examplos utilizam uma API do Windows muito popular, a shellexecute, por isso não se esqueça de colocar a ShellApi unit no uses clause da sua unit. // URL(endereço da internet) procedure TForm1.Label1Click(Sender: TObject); begin ShellExecute(Handle,´open´,´http://www.bytesul.com.br´,nil,nil,SW_SHOW); end; // e-mail procedure TForm1.Label2Click(Sender: TObject); begin ShellExecute(Handle,´open´,´mailto:melo@bytesul.com.br´,nil,nil,SW_SHOW); end;



GOSTEI 0
POSTAR