envoi de mail avec pièce jointe

envoi de mail avec pièce jointe - Delphi/Pascal - Programmation

Marsh Posté le 27-07-2009 à 10:38:14    

Bonjour,
 
Je dois migrer une vieille appli en Delphi 2009, donc l'envoi de mail se fait via les composants Indy.
Mon mail part bien, et la pièce jointe aussi, mais il me reste 2 problèmes :
- le texte n'utilise pas le charset que je précise
- la pièce jointe n'utilise pas le filename que je précise
du coup je me retrouve avec un mail sans accents et une pièce jointe 'fdsbhjsk.dat' au lieu du nom de l'image.
 
voici le code :

Code :
  1. procedure TF_MAIL_TO.btnEnvoyerClick(Sender: TObject);
  2. var
  3.   i: Integer;
  4.   myMessage: TIdMessage;
  5.   myText: TIdText;
  6.   myAttachment: TIdAttachment;
  7. begin
  8.   {Paramètres serveur SMTP}
  9.   mySMTP.ConnectTimeout := 2000;
  10.   mySMTP.Host := 'A320';
  11.   mySMTP.Username := 'XXXXXX';
  12.   mySMTP.Port := 25;
  14.   {Préparation du message}
  15.   myMessage := TIdMessage.Create(nil);
  16.   try
  17.     myMessage.Encoding := meMIME;
  18.     myMessage.ContentType := 'multipart/mixed';
  19.     myMessage.From.Address := FormInit.CurrentUser.EMail;
  20.     myMessage.From.Text := 'OTC';
  21.     myMessage.ReplyTo.EMailAddresses := FormInit.CurrentUser.EMail;
  22.     myMessage.Recipients.Add.Address := edtA.Text;
  23.     myMessage.CCList.Clear;
  24.     myMessage.CCList.Add.Address := edtcc.Text;
  25.     myMessage.BCCList.Clear;
  26.     myMessage.Subject := edtObjet.Text;
  27.     myMessage.UseNowForDate := true;
  29.     {Ajout du texte}
  30.     myText := TIdText.Create(myMessage.MessageParts);
  31.     myText.Body.Assign(FTexteMail);
  32.     myText.ContentType := 'text/plain';
  33.     myText.CharSet := 'ISO-8859-1';
  34.     myText.ContentTransfer := '8bit';
  36.     {Ajout de la pièce jointe}
  37.     for i := 0 to FListImage.Count-1 do
  38.       if (FileExists(FListImage.Strings[i])) then
  39.       begin
  40.         myAttachment := TIdAttachmentFile.Create(myMessage.MessageParts,FListImage.Strings[i]);
  41.         myAttachment.ContentType := 'image/jpeg';
  42.         myAttachment.ContentDisposition := 'attachment';
  43.         myAttachment.FileName := ExtractFileName(FListImage.Strings[i]);
  44.       end;
  46.     {Envoi du mail}
  47.     try
  48.       mySMTP.Connect;
  49.     except
  50.       MessageDlg('Impossible de se connecter au serveur mail. E-mail non envoyé à ' + edtA.Text + ' !', mtError, [mbOK], 0);
  51.       ModalResult := mrCancel;
  52.     end;
  53.     mySMTP.Send(myMessage);
  54.     mySMTP.Disconnect;
  55.   finally
  56.     myMessage.Free;
  57.     Close;
  58.   end;
  59. end;


 
Si quelqu'un a une idée pour résoudre mon problème ça serait bien cool [:benjiman]

Reply

Marsh Posté le 27-07-2009 à 10:38:14   

Reply

Marsh Posté le 28-07-2009 à 12:02:56    

bon, pour le problème du charset, je n'ai toujours pas trouvé ce qui clochait, j'ai donc adopté une solution alternative.
j'envoie les mails au format html, et je remplace tous les caractères accentués par leur code html avant l'envoi (é etc...)
ça fonctionne, mais bon c'est pas cool pour les clients qui ne peuvent pas lire les mails en html :/
 
en revanche, toujours pas de soluce pour le nom de la pièce jointe :/

Reply

Marsh Posté le 28-07-2009 à 14:08:50    

# for i := 0 to FListImage.Count-1 do
#       if (FileExists(FListImage.Strings[i])) then
#       begin
#         myAttachment := TIdAttachmentFile.Create(myMessage.MessageParts,FListImage.Strings[i]);
#         myAttachment.ContentType := 'image/jpeg';
#         myAttachment.ContentDisposition := 'attachment';
#         myAttachment.FileName := ExtractFileName(FListImage.Strings[i]);
#       end;
 
y'a pas un prob de compteur là si la liste est vide ?

Reply

Marsh Posté le 28-07-2009 à 14:41:40    

non, si la liste est vide on n'entre pas dans la boucle.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed