FAQ DelphiConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
procedure TForm1.btnVerifClick(Sender: TObject); 
var NbrMsgs, i: Integer; 
begin 
  
  lstMsgs.Clear; 
  
  //Renseignement des différentes infos de connexion 
  POP3.Host     := edServeur.Text; 
  POP3.Port     := StrToIntDef(edPort.Text, 110); 
  POP3.Username := edUser.Text; 
  
  //On donne le mot de passe en fonction de l'état de la case à cocher 
  If cbxPass.Checked then 
    POP3.Password := edPass.Text 
  else 
    POP3.Password := ''; 
  
  try 
    try 
      //Connexion au serveur 
      POP3.Connect; 
  
      //On récupère le nombre de messages 
      NbrMsgs := POP3.CheckMessages; 
      lblMsg.Caption := IntToStr(NbrMsgs); 
  
      for i := 1 to NbrMsgs do 
      begin 
        //On récupère l'entête du ième message 
        POP3.RetrieveHeader(i, idMsg); 
        //Affichage de quelques informations dans la liste 
        lstMsgs.Items.Add('"' + idMsg.Subject + '" de ' + idMsg.From.Address); 
        idMsg.Clear; 
      end; 
  
    except 
      on e: exception do ShowMessage(e.Message); 
    end; 
  finally 
    //Le travail est terminé, on se déconnecte 
    POP3.Disconnect; 
  end; 
  
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
  
Var 
  i ,j : integer; 
begin 
  // On se connecte au compte mail si ce n'est pas déjà fait 
  if not IdPop3.connected then 
    idPop3.connect; 
  
  // On va boucler du premier au dernier message sur le compte 
  for i := 1 to idPop3.CheckMessages do 
  begin 
    // On récupère le message complet 
    idPop3.Retrieve(i,IdMessage); 
  
    // Si on a plusieurs parties dans le mail alors on a une pièce jointe  
    if IdMessage.MessageParts.Count > 0 then 
      for j := 0 to IdMessage.MessageParts.count -1 do 
      begin 
        // Est-ce une partie texte du mail ? 
        if IdMessage.MessageParts.Items[j] is TIdText then 
        begin 
          // A vous de traiter comme bon vous semble cette partie du mail  
          Showmessage(TIdText(IdMessage.MessageParts.Items[j]).Body.text); // Par exemple           
        end; 
  
        // Est-ce une pièce jointe ? 
         if IdMessage1.MessageParts.Items[j] is TIdAttachment then 
           With TIdAttachment(IdMessage1.MessageParts.Items[j]) do 
             if not FileExists('C:\Users\C:\Users\xxx\xxx\xxxx\' + FileName) then 
                 // On sauvegarde le fichier 
                 SaveTofile('C:\Users\xxx\xxx\xxxx\' + Filename); 
      end; // for j 
   end; // for i 
end;