Discussion :

[bidochon]

Bonjour,

Je souhaite envoyer un mailling par e-mail grace aux composant Indy.
J'ai une liste contenant un certain nombre d'adresses email et je voudrais pouvoir faire parvenir un mail a tous les destinataires (la liste est dans un Combobox).
Mon code :

Code :

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

1
2
3
4
5
6
7
8
9
with IdMessage1 do
 begin
  IdMessage1.Body.Assign(Memo1.Lines);
  IdMessage1.From.Text := 'Moi';
  IdMessage1.From.Address := 'monAdresse@monfournisseur.fr';
  IdMessage1.Subject := EditObjet.Text;
  IdSMTP1.AuthenticationType := atLogin;
  IdMessage1.Recipients.FillTStrings(ComboboxAdr.Items);
 end;

C'est la derniere ligne qui me pose probleme et je n'ai pas reussit a trouver un exemple...

Merci de votre aide

@ plus

Bidochon

[Sub0]

Salut!

-> 13 résultats avec "IdSMTP"!!!

http://delphipage.free.fr/indyexemple2.html

à+

_________________
• Merci de lire les règles du forum!
• Chercher une réponse dans la FAQ Delphi
• Merci de chercher un peu avant de poster dans le forum...
• Ne poster qu'en dernier recours!
• Merci d'utiliser les balises CODE dans vos posts!
• N'oubliez pas d'ajouter le tag [résolu]!

[bidochon]

Salut Sub 0,

Salut!
-> 13 résultats avec "IdSMTP"!!!
http://delphipage.free.fr/indyexemple2.html

J'espere que tu ne doutes pas que je n'ai pas chercher avant de coller ce post !!! Je te rassure J'ai visionné les 12 (et non 13 resultats) sans pour autant trouver la reponse a la question que j'ai posé !
Je pense que tu n'as pas suffisamment pris le temps de lire ma question ou bien j'ai du mal m'exprimer
Je reprend donc :
Je souhaiterais envoyer un mail a une liste de destinataires sans pour autant renouveller l'operation d'envoi du mail autant de fois qu'il y a de destinataires dans la liste.(Un petit peu comme dans dans Outlook où on separes les destinataires par des ';')
Y-a-t-il moyen de faire passer une liste (TString) contenant les destinataires a l'objet IdMessage1.Recipients ?
@ plus
Bidochon

[Sub0]

ahhh! ok! (non, c moi qui n'ai pas percuté)
J'imagine qu'il suffit de remplacer l'adresse du destibataire par plusieurs séparées par un point virgule...
Faudrait déjà essayer ça pour voir!
Il existe le champs Cc (copie carbone) qui serait normalement prévu pour ça...
Dans ces 2 cas, les destinataires pourra voir la liste d'adresse.

Sinon, je crois qu'il ya le champs Bcc qui permet justement de masquer la liste aux différents destinatires.

Trouvé avec Google en 30s avec "idsmtp + bcc"!
http://users.skynet.be/bk296578/Dro/Delphi/MailOut.pas

Code :

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

1
2
3
Mess := TIdMessage.Create(nil);
...
Mess.BCCList.EMailAddresses := BCC;

J'espère que ça t'aidera! à+

[bidochon]

Merci SUB ZERO


Effectivement, les destinataires doivent etre passer à l'objet IdMessage1.Recipients par la propriété EMailAddresses et doivent etre séparés par des ';'

Voila le bout de code :

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
FOR i:=0 TO ComboboxAdr.Items.Count-1 DO
  Destinataires:=Destinataires+comboboxAdr.Items.Strings[i]+';';
WITH IdMessage1 DO
 BEGIN
  Body.Assign(Memo1.Lines);
  From.Name := 'Moi';
  From.Address := 'monAdresse@monfournisseur.fr';
  Recipients.Emailaddresses := Destinataires;
  Subject := EditObjet.Text;
  IdSMTP1.AuthenticationType := atLogin;
  MessageParts.Clear;      // traitement des pieces jointes
  IF OpenDialog1.FileName<>'' THEN
   BEGIN
    For i:=0 to OpenDialog1.Files.Count-1 do TIdAttachment.Create(IdMessage1.MessageParts,OpenDialog1.Files.Strings[i]);
   END;
  END;
   IdSMTP1.Host := 'mon.smtp.fr';
   IdSMTP1.Port := 25;
etc ...

[Sub0]

Je suis content d'avoir pu t'aider à résoudre ton problème!
J'apprecie ton remerciement.

à+
_________________
IMPORTANT:
• N'oubliez pas d'ajouter le tag [résolu]!