Envoi de mail texte avec pièce jointe quelconque

**Heremion** · 06/05/2014, 15h31

Bonjour à tous,

Je viens vers vous car je n'arrive pas à trouver de solution à mon problème. Je cherche à envoyer par mail un backup d'une base de données réalisé préalablement et l'accompagner d'un peu de texte.
Pour cela, j'ai écrit le code suivant :

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
procedure TFMaintenance.actEnvoyerExecute(Sender: TObject);
var iPos : integer ;
    domaine : string ;
    email : string ;
    SSLHandler : TIdSSLIOHandlerSocketOpenSSL ;
    pwd : string ;
    numero : string ;
    myText : TIdTExt ;
    myAttachment : TIdAttachmentFile ;
begin
  bSend := true ;
  //On envoie le contenu au développeur//
  email := '' ;
  email := IBTUtilisateur.Lookup('ID',FDmKSF.idUser,'MAIL') ;
  pwd := '' ;
  pwd := IBTUtilisateur.Lookup('ID',FDmKSF.idUser,'MOT_DE_PASSE') ;
 
  iPos := pos('@',email) ;
  domaine := copy(email,iPos+1,length(email)) ;
 
  //Correspondances//
  if domaine = 'hotmail.fr' then domaine := 'live.fr' ;  
 
  SSLHandler := TIdSSLIOHandlerSocketOpenSSL.create(nil) ;
 
  try
    try
      SSLHandler.MaxLineAction := maException ;
      SSLHandler.SSLOptions.Method := sslvTLSv1 ;
      SSLHandler.SSLOptions.Mode := sslmUnassigned ;
      SSLHandler.SSLOptions.VerifyMode := [] ;
      SSLHandler.SSLOptions.VerifyDepth := 0 ;
 
      IdSMTP1.IOHandler := SSLHandler ;
      IdSMTP1.Host := 'smtp.' + domaine ;
      IdSMTP1.Port := 587 ;
      IdSMTP1.Username := email ;
      IdSMTP1.Password := pwd ;
      IdSMTP1.UseTLS := utUseExplicitTLS ;
 
      IdMessage1.Encoding := meMIME;
      IdMessage1.ContentType := 'multipart/mixed';
      IdMessage1.From.Address := email ;
      IdMessage1.Recipients.Add.Address := 'xxxx_xxxx@hotmail.fr' ;
      IdMessage1.Subject := 'test' ;
      IdMessage1.UseNowForDate := true;
 
      {Ajout du texte}
      myText := TIdText.Create(IdMessage1.MessageParts);
      myText.Body.Assign(RichEdit1.Lines);
      myText.ContentType := 'text/plain';
      myText.CharSet := 'ISO-8859-1';
      myText.ContentTransfer := '8bit';
 
      if CheckBox1.Checked then
      begin
        actRealiserBackup.Execute ;
      end ;
 
      {Ajout de la pièce jointe}
      myAttachment := TIdAttachmentFile.Create(IdMessage1.MessageParts,back);
      myAttachment.ContentType := 'text/html';
      myAttachment.ContentDisposition := 'attachment';
      myAttachment.FileName := ExtractFileName(back);
 
    IdSMTP1.Connect ;
      IdSMTP1.Send(idMessage1);
      IdSMTP1.Disconnect;
 
      Dialogs.MessageDlg('Le mail a bien été envoyé au service client.', mtInformation,
          [mbOk], 0, mbOk)
    finally
      SSLHandler.Free ;
      IdMessage1.MessageParts.Clear ;
    end;
    except on E:Exception do
      try
      IdSMTP1.Port := 25 ;
      IdSMTP1.Connect ;
      IdSMTP1.Send(idMessage1);
      IdSMTP1.Disconnect;
      Dialogs.MessageDlg('Le mail a bien été envoyé au service client.', mtInformation,
          [mbOk], 0, mbOk)
      except
      Dialogs.MessageDlg('Une erreur est survenue lors de l''envoi. Veuillez vérifier votre connexion à Internet.', mtError,
        [mbOk], 0, mbOk) ;
      end;
    end;
end ;

Le souci, c'est que ce mail, je l'envoie vers une adresse @hotmail.fr et quand je me connecte à l'adresse hotmail, je reçois bien un mail avec le texte comme je l'ai écrit dans mon application. Le problème vient de la pièce jointe. En fait, quand je consulte mon mail directement sur le navigateur Hotmail/Outlook, il y a un trombone mais une fois le mail ouvert, pas de pièce jointe. Et si je teste via le logiciel Windows Live Mail, je vois une pièce jointe ATT000xx.dat.

Je précise que j'ai ce problème avec tout type de pièce jointe (doc, pdf, zip...)

Pouvez-vous m'aider à voir d'où vient le problème svp ?

Merci encore.

**ShaiLeTroll** · 06/05/2014, 15h56

As-tu essayé de simplement supprimé ceci ?

Car forcé le type HTML sur un fichier binaire Zip ???
Voir cette proposition de Rayek si cela ne suffit pas mais je n'ai jamais eu besoin d'un truc aussi compliqué !

Code :

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

1
2
3
myAttachment.ContentType := 'text/html';
      myAttachment.ContentDisposition := 'attachment';
      myAttachment.FileName := ExtractFileName(back);

Voici une version élaguée du dernier code que j'ai utilisé pour envoyer des pièces jointes (j'avais d'ailleurs juste rajouter cette partie en C++2007 et C++XE2)

Code c++ :

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
 
//---------------------------------------------------------------------------
//                                  TMail                                   -
//---------------------------------------------------------------------------
/*static*/ bool __fastcall TMail::SendAction(const DATA_ACTION_xxx &ADataAction,
                        const TFileName FileAttache)
{
  bool Result = false;
 
  ...
  if (ChargePreferenceSMTP())
  {
    TIdSMTP *IdSMTPMail = new TIdSMTP(NULL);
    IdSMTPMail->Host = FSMTPConf->ServerSMTP;
    IdSMTPMail->Port = FSMTPConf->PortSMTP;
    // Login pour un mode Hors-FAI
    // TODO SSL TLS
    if (FSMTPConf->UseAuthLogin)
    {
      IdSMTPMail->Username = FSMTPConf->Login;
      IdSMTPMail->Password = FSMTPConf->PassWord;
    }
 
#ifdef _BDS5
    TIdAttachmentFile *ptrAttachmentFile = NULL;
#else
    TIdAttachment *ptrAttachmentFile = NULL;
#endif
    TIdMessage *ptrIDMessage = NULL;
    try
    {
      IdSMTPMail->Connect();
      ptrIDMessage = new TIdMessage(NULL);
 
      ptrIDMessage->From->Name = ...
      ptrIDMessage->From->Address = ...
 
      ptrIDMessage->Subject = ...
      ...
 
      szMessage = ...
      ptrIDMessage->Body->Add(szMessage);
 
      //------------attachment file
      if ( ! FileAttache.IsEmpty())
      {
        if (FileExists(FileAttache))
        {
  #ifdef _BDS5
          ptrAttachmentFile = new TIdAttachmentFile(ptrIDMessage->MessageParts, FileAttache);
  #else
          ptrAttachmentFile = new TIdAttachment(ptrIDMessage->MessageParts, FileAttache);
  #endif
          szMessage = ...
          ptrIDMessage->Body->Add(szMessage);
          ptrIDMessage->Body->Add("");
        }
      }
 
      IdSMTPMail->Send(ptrIDMessage);
      Result = true;
 
      IdSMTPMail->Disconnect();
    }
    catch(Exception *e)
    {
      xxx::DefaultInstance->Trace(...);
    }
 
    if (ptrAttachmentFile)
      delete ptrAttachmentFile;
 
    if (ptrIDMessage)
    	delete ptrIDMessage;
 
    delete IdSMTPMail;
  }
  else
    xxx::DefaultInstance->Trace(...);
 
  return Result;
}

**Heremion** · 06/05/2014, 15h59

En enlevant la ligne

Code :

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

myAttachment.ContentType := 'text/html';

, j'ai toujours le même message vide (enfin toujours le fichier .DAT bizarre).
J'ai cru comprendre que cela pouvait fortement provenir du content-type mais quoi que je mette, je n'obtiens pas ma pièce jointe en réception.

**ShaiLeTroll** · 06/05/2014, 16h09

Dans mon code C++, je ne forçais ni le ContentType ni le Encoding !
je ne touche ni au TIdMessage ni au TIdAttachmentFile
Je laisse l'objet le plus neutre que possible !

Note que tout est créé à la volée aussi bien le TIdSMTP et TIdMessage !
Je crois qu'en les posant sur une Form, cela met des valeurs par défaut assez pourrie !
Fait un code sans passer par le Builder, le mieux est de faire cela dans une simple unit pour avoir un code réutilisable !
J'ai commencé pour ma part ce travail pour l'envoi de mail simple
Si j'ai l'occasion de le faire pour une pièce jointe, je le publierais.

Et je n'avais aucun soucis, j'envoyais des AVI, dans le mail, la pièce jointe pouvait être lu directement par WMP11 ou VLC

En Delphi7, je l'ai fait mais je ne m'en rappele plus, j'ai copié le code de la FAQ Comment envoyer un e-mail ?
Et je crois que j'ai eu de la chance pour que cela fonctionne presque du 1er coup !

**Heremion** · 07/05/2014, 21h43

En fait, dans ma messagerie Hotmail, je ne vois pas la pièce jointe. Si je m'envoie ce mail sur GMail, je vois une pièce jointe noname. Si je l'enregistre et que je rajoute l'extension .pdf, je peux l'ouvrir et je découvre mon pdf nickel. Du coup, je me demande s'il n'y a pas un problème dans la façon de rattacher simplement le fichier au mail (et qui ferait que le fichier est mal transmis aux messageries cibles) ?

**Ph. B.** · 07/05/2014, 23h37

Bonjour,

Envoyé par Heremion

En fait, dans ma messagerie Hotmail, je ne vois pas la pièce jointe. Si je m'envoie ce mail sur GMail, je vois une pièce jointe noname. Si je l'enregistre et que je rajoute l'extension .pdf, je peux l'ouvrir et je découvre mon pdf nickel. Du coup, je me demande s'il n'y a pas un problème dans la façon de rattacher simplement le fichier au mail (et qui ferait que le fichier est mal transmis aux messageries cibles) ?

Changez le contenu de la propriété ContentType en fonction du type de pièces jointes, par exemple, on a

pour un fichier Zip :myAttachment.ContentType := 'application/x-zip-compressed';,
pour un pdf :myAttachment.ContentType := 'application/pdf';.

**Heremion** · 08/05/2014, 09h03

Envoyé par Ph. B.

Bonjour,
Changez le contenu de la propriété ContentType en fonction du type de pièces jointes, par exemple, on a

pour un fichier Zip :myAttachment.ContentType := 'application/x-zip-compressed';,
pour un pdf :myAttachment.ContentType := 'application/pdf';.

Bonjour PH. B.!

Je vais essayer ça mais alors quand j'essaie d'envoyer un backup de ma base Firebird qui est un .FBK, que dois-je mettre dans le content-type?

Edit :
Je viens d'essayer et j'ai toujours le même fichier noname en arrivée. Il semblerait que de renseigner le content-type à application/pdf ne donne pas l'effet escompté.

**Papy214** · 08/05/2014, 09h47

Question bête : Et en faisant l'essai avec d'autres composants comme ICS ou IP*Works, le problème est identique ??

**Heremion** · 08/05/2014, 09h50

Euh désolé Papy, mais c'est quoi ICS ou IP*Works ?

**Papy214** · 08/05/2014, 10h03

ICS est une suite de composants réseau qui permettent entre autres l'envoi d'email.

IP*Works est une autre bibliothèque du même genre fournie en version réduite (mais néanmoins tout à fait utilisable) avec les dernières versions de Delphi.

J'utilise les 2 (ICS dans une application Delphi 5 et IP*Works dans XE2) sans problèmes.

**Heremion** · 08/05/2014, 10h06

Tu sais où on peut les télécharger ? Je suis sous Delphi 2009 moi, ça va fonctionner ?

**Papy214** · 08/05/2014, 10h12

euh ... IP*Works, si tu as un Delphi XE minimum, tu as du avoir accès à une page de téléchargements supplémentaires quand tu as installé l'IDE

Pour ICS, il suffisait de cliquer sur le mot ICS de mon message
Pour ICS, il y a différentes versions compatibles même avec Delphi 1 .

**Heremion** · 08/05/2014, 11h01

Envoyé par Papy214

euh ... IP*Works, si tu as un Delphi XE minimum, tu as du avoir accès à une page de téléchargements supplémentaires quand tu as installé l'IDE

Pour ICS, il suffisait de cliquer sur le mot ICS de mon message
Pour ICS, il y a différentes versions compatibles même avec Delphi 1 .

Mouais bizarre, j'essaie d'installer le composant mais ça plante avec pas mal d'erreur à la compilation pour l'install de la version correspondant à ma version de delphi :/

**Heremion** · 08/05/2014, 15h21

En fait, je me demande s'il n'y a pas un petit blocage au niveau de tous les content-type puisque dans mon code, j'en vois certains pour les IdText, d'autres pour les IdAttachmentFile et encore d'autres...
Au final, dans mon code construisant le mail, je me retrouve avec les content-type suivants :
- application/pdf
- multipart/mixed
- text/html
- image/png

Est-ce qu'il n'y a pas un ordre dans les constructions d'un mail (TIdText, TIdAttachment, etc...) et dans les content-type, j'avoue que je m'y perds un peu.

**Ph. B.** · 08/05/2014, 18h46

Bonjour,

Envoyé par Heremion

En fait, je me demande s'il n'y a pas un petit blocage au niveau de tous les content-type puisque dans mon code, j'en vois certains pour les IdText, d'autres pour les IdAttachmentFile et encore d'autres...
Au final, dans mon code construisant le mail, je me retrouve avec les content-type suivants :
- application/pdf
- multipart/mixed
- text/html
- image/png

Est-ce qu'il n'y a pas un ordre dans les constructions d'un mail (TIdText, TIdAttachment, etc...) et dans les content-type, j'avoue que je m'y perds un peu.

Il y a des content-type pour chaque partie du mail qui est multipart/mixed.

J'ai testé votre code en y retirant toute la partie relative à TIdText que je n'ai pas avec ma version de Indy de Delphi XE2. J'ai pu envoyer un mail avec un pièce jointe au format zip ou pdf comme je l'avais indiqué précédemment.
Pour un fichier *.fbk ou tout autre fichier binaire "exotique", je tenterais : Content-Type: application/octet-stream;

**Heremion** · 08/05/2014, 20h18

Envoyé par Ph. B.

Bonjour,
Il y a des content-type pour chaque partie du mail qui est multipart/mixed.

J'ai testé votre code en y retirant toute la partie relative à TIdText que je n'ai pas avec ma version de Indy de Delphi XE2. J'ai pu envoyer un mail avec un pièce jointe au format zip ou pdf comme je l'avais indiqué précédemment.
Pour un fichier *.fbk ou tout autre fichier binaire "exotique", je tenterais : Content-Type: application/octet-stream;

Tu as réussi à envoyer un mail donc le corps est pris depuis un contenu html et avec un fichier pdf en pièce jointe ? J'ai beau faire plusieurs essais, j'ai toujours le même problème, même en supprimant la partie IdText.

Si tu as repris mon code pour essayer, peux-tu me le montrer car je n'y arrive vraiment pas...

**Ph. B.** · 09/05/2014, 00h46

Envoyé par Heremion

Si tu as repris mon code pour essayer, peux-tu me le montrer car je n'y arrive vraiment pas...

Voila la procédure que j'ai évoquée dans mon précédent message :

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
procedure TForm1.actEnvoyerExecute(Sender: TObject);
var iPos : integer ;
    domaine : string ;
    email : string ;
    SSLHandler : TIdSSLIOHandlerSocketOpenSSL ;
    pwd : string ;
//    numero : string ;
//    myText : TIdTxt ;
    myAttachment : TIdAttachmentFile ;
    back: String;
begin
  back := 'C:\Temp\MonFichier.zip';
//  bSend := true ;
  //On envoie le contenu au développeur//
  email := 'monadresse@free.fr' ;
//  email := IBTUtilisateur.Lookup('ID',FDmKSF.idUser,'MAIL') ;
  pwd := 'MotDePasseFree' ;
//  pwd := IBTUtilisateur.Lookup('ID',FDmKSF.idUser,'MOT_DE_PASSE') ;
 
  iPos := pos('@',email) ;
  domaine := copy(email,iPos+1,length(email)) ;
 
  //Correspondances//
  if domaine = 'hotmail.fr' then domaine := 'live.fr' ;
 
  SSLHandler := TIdSSLIOHandlerSocketOpenSSL.create(nil) ;
 
  try
    try
//      SSLHandler.MaxLineAction := maException ;
      SSLHandler.SSLOptions.Method := sslvTLSv1 ;
      SSLHandler.SSLOptions.Mode := sslmUnassigned ;
      SSLHandler.SSLOptions.VerifyMode := [] ;
      SSLHandler.SSLOptions.VerifyDepth := 0 ;
 
      IdSMTP1.IOHandler := SSLHandler ;
      IdSMTP1.Host := 'smtp.free.fr' ;
      IdSMTP1.Port := 465;                  //587 ;
      IdSMTP1.Username := email ;
      IdSMTP1.Password := pwd ;
      IdSMTP1.UseTLS := utUseExplicitTLS ;
 
      IdMessage1.Encoding := meMIME;
      IdMessage1.ContentType := 'multipart/mixed';
      IdMessage1.From.Address := email ;
      IdMessage1.Recipients.Add.Address := 'monadresse@destinataire.net' ;
      IdMessage1.Subject := 'test' ;
      IdMessage1.UseNowForDate := true;
 
      {Ajout du texte}
//      myText := TIdText.Create(IdMessage1.MessageParts);
//      myText.Body.Assign(RichEdit1.Lines);
//      myText.ContentType := 'text/plain';
//      myText.CharSet := 'ISO-8859-1';
//      myText.ContentTransfer := '8bit';
 
//      if CheckBox1.Checked then
//      begin
//        actRealiserBackup.Execute ;
//      end ;
 
      {Ajout de la pièce jointe}
      myAttachment := TIdAttachmentFile.Create(IdMessage1.MessageParts, back);
      myAttachment.ContentType := 'application/x-zip-compressed'; //'text/html';
      myAttachment.ContentDisposition := 'attachment';
      myAttachment.FileName := ExtractFileName(back);
 
      IdSMTP1.Connect ;
      IdSMTP1.Send(idMessage1);
      IdSMTP1.Disconnect;
 
      MessageDlg('Le mail a bien été envoyé au service client.', mtInformation,
          [mbOk], 0, mbOk)
    finally
      SSLHandler.Free ;
      IdMessage1.MessageParts.Clear ;
    end;
    except on E:Exception do
      try
      IdSMTP1.Port := 25 ;
      IdSMTP1.Connect ;
      IdSMTP1.Send(idMessage1);
      IdSMTP1.Disconnect;
      MessageDlg('Le mail a bien été envoyé au service client.', mtInformation,
          [mbOk], 0, mbOk)
      except
      MessageDlg('Une erreur est survenue lors de l''envoi. Veuillez vérifier votre connexion à Internet.', mtError,
        [mbOk], 0, mbOk) ;
      end;
    end;
end ;

**Heremion** · 09/05/2014, 08h41

C'est à en devenir dingue ça! Je copie/colle ton code à la place du mien et je reçois toujours le même fichier apparaissant :
- sous Gmail en tant que noname
- sous Hotmail en tant que ATT0000XX.dat

Est-ce qu'il ne manquerait pas quelque chose tout simplement sur mon pc ? Je ne sais pas, un dll, un module, autre qui fait que le même code ne fonctionnerait pas de la même façon entre ta machine et la mienne ?