Discussion :

[Oncle_Pete]

Bonjour

j'utilise le code de la FAQ delphi (version Indy) pour essayer d'envoyer un mail.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
var
  IdMessage: TIdMessage;
  IdSMTP: TIdSMTP;
  Message: TStrings;
  i: Integer;
  Fichiers: Array Of String;
begin
  IdMessage := TIdMessage.Create(nil); //création dynamique du composant
 
  IdMessage.From.Address := 'expediteur@domaine.com';
 
  //Ces deux lignes peuvent-être répétées autant de fois que vous désirez 
  //d'adresse de réponse et/ou de destinataire
  IdMessage.ReplyTo.Add.Address := 'expediteur@domaine.com';
  IdMessage.Recipients.Add.Address := 'destinataire@domaine.com' ;
 
  IdMessage.Subject := 'Sujet du message';
 
  IdMessage.ContentType := 'multipart/alternative'; //Message 'découpé' en plusieurs parties
 
  Message := Memo1.Lines; //par exemple... il faut juste que ce soit un TStrings !
 
  //Ici on va créer les différentes parties du message
  //Au cas où le client ne gère pas les messages HTML :
  With TIdText.Create(IdMessage.MessageParts, Message) Do
  Begin
    ContentType := 'text/plain';
    Body.Insert(0, 'Ce message est un message HTML. Configurez votre client de courrier électronique' +
   'pour le visionner de manière appropriée');
  end;
 
  //Ajout du message au format HTML (en supposant que Message contient du HTML) :
  with TIdText.Create(IdMessage.MessageParts, Message) do
    ContentType := 'text/html';
 
  //Et maintenant, l'ajout des pièces jointes :
  //Le tableau de strings Fichiers doit être remplis avec les chemins complets des fichiers à inclure
  for i := Low(Fichiers) to High(Fichiers) do
    TIdAttachment.Create(IdMessage.MessageParts, Fichiers[i]);
 
  //On passe ensuite à l'envoi du message:
  IdSMTP := TIdSMTP.Create(nil) ; //Création dynamique du composant
 
  IdSMTP.Port := 25; //Le port SMTP standard...
  IdSMTP.Host := 'smtp.serveur.com';  //Le serveur auquel se connecter
 
  //Ensuite on se connecte et on envoit le message, en gérant les erreurs, tant qu'à faire !
  Try
    Try
      IdSMTP.Connect;
      IdSMTP.Send(IdMessage);
    except
      on e: exception do MessageDlg(e.Message, mtError, [mbOK], 0);
    end;
  finally
    IdSMTP.Disconnect;
    IdSMTP.Free;
    IdMessage.Free;
  end;
 
end ;

Apres avoir modifie les valeurs qui vont bien (expediteurs/destinataires/host) j'ai le message

<toto@orange.fr> : Recipient address rejected : missing authetification

Pourtant, tout semble convenable.
Quelqu'un aurait une idee ?
Merci a vous

Oncle Pete

[qi130]

Le code de la FAQ, bien qu'intéressant, n'a aucune plus-value à figurer ici...

Apres avoir modifie les valeurs qui vont bien

par contre, mettre ton code modifié aurait été pertinent

[Rayek]

Apres avoir modifie les valeurs qui vont bien (expediteurs/destinataires/host) j'ai le message


Pourtant, tout semble convenable.
Quelqu'un aurait une idee ?
Merci a vous

Oncle Pete

Vu que tu essaies d'envoyer un mail via Orange (<toto@orange.fr>), tu es obligé de renseigner le username et le password du composant IdSMTP.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
With IdSMTP do
begin
  UserName := 'une adresse valide@orange.fr';
  Password := 'Le password du compte';
  // etc ...
end;

[Oncle_Pete]

Bonjour


Merci bien de votre aide.


qi130

Le code de la FAQ, bien qu'intéressant, n'a aucune plus-value à figurer ici...

Certes, certes : c'etait uniquement pour ne pas avoir a quitter le post tout en permettant de voir de quoi il s'agit.

par contre, mettre ton code modifié aurait été pertinent

Je ne suis pas vraiment convaincu que mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IdMessage.From.Address := 'francois_durand@yahoo.fr';

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IdMessage.From.Address := 'expediteur@domaine.com';

soit d'une grande aide dans l'analyse du probleme. Mais bon ...

En tout cas merci encore.
Le sujet est maintenant resolu

Oncle Pete

[Xorsist666]

Bonjour je suis débutant en delphi et nouveau sur le forum.

Mon problème est le suivant: je n'arrive pas à utiliser le bout de code pour l'envoi de mail qui se trouve dans la FAQ (Indy). J'ai des erreurs sur les variables


"IdMessage: TIdMessage;
IdSMTP: TIdSMTP;
Message: TStrings;
i: Integer;
Fichiers: Array Of String;"

quelqu'un pourrait il aider un débutant? Merci d'avance.

[ShaiLeTroll]

Comme tu es nouveau, on passera sur le fait que tu répondes à un sujet vieux de 4 ans marqué comme résolu !

As-tu mis les uses nécessaire ?
Attention, entre la FAQ qui doit dater de Indy 8 ou 9, les uses et certains types ont évolués en 10 et 11 ! cela peut nécessiter une adaptation !

Comme tu réponds sur un sujet D7, je suppose que tu utilises cette version, le code doit donc s'utiliser sans modification, donc uses IdMessage, IdSMTP;

[Xorsist666]

Bonjour, merci pour la réponse rapide.
Je m'excuse d'avoir relancé un résolu.
Donc je suis sur Delphi7 pro et je ne trouvais pas les objets Indy.
J'ai donc voulu installer le paquet que j'ai téléchargé du site Indy, sans succès.
J'utilise le code de la FAQ sans modification.