Discussion :

[Pascal Fonteneau]

Bonjour,
Je me bat depuis plusieurs jours avec les composants Indy IdSMTP et IDMessage. J'ai simplement besoin d'envoyer un mail (au format Text ou html peu importe) accompagné d'une pièce jointe (un simple fichier PDF). Le mail arrive mais la pièce jointe n'est pas disponible, elle est bien presente dans le source du mail. Je cherche le bon type mime a inserer dans le content type, mais je bute ailleurs , je crois

Si quelqu'un peut m'aider, merci d'avance.

voici la partie simplifiée de mon 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
20
21
22
23
24
25
 
 with IdMsgSend do
 begin
  Subject := 'Objet du message';
  Body.Text := 'Corps du message';
  ContentType := 'multipart/alternative';
 
  Attache1 := TIdAttachmentFile.Create(IdMsgSend.MessageParts, 'C:\MonPDF.PDF');
  Attache1.ContentType := 'application/pdf';
 end;
 
 Try
 // envoi du message
 SMTP.Connect;
 IF SMTP.Connected then
 begin
  SMTP.Send(IdMsgSend);
  ShowMessage('Mail envoyé');
 end
 else
  ShowMessage('Pas de connection !');
 finally
  SMTP.Disconnect;
  IdMsgSend.MessageParts.Clear;
 end;

[Rayek]

Quelle version d'indy utilises tu ? (ou indique moi quelle version de delphi tu utilises).

[Pascal Fonteneau]

A la demande de Rayek

Je suis sous Vista 64 Bits, Delphi 2007 et Indy 10

Merci d'avance

[Rayek]

Pour un test, dans ma signature , j'ai mis un lien vers EasyIndy, il faudrait que tu compiles les sources (Il se peut qu'il y ai des erreurs de compilation mais j'ai mis des commentaires pour corriger cela ^^)
Et test un envoi de mail avec l'onglet SMTP, après tu peux soit utiliser le code que je founis, soit adapter à ton code.

[Pascal Fonteneau]

Re

Après telechargement et installation de l'archive proposée, le problème semble reglé j'avoue ne pas avoir compris ce sur quoi j'ai buté hier .

J'ai inclu le fichier SMTPIndy.pas dans mes Use set connecté mes variables vers les proprietés exposées. Tout va bien.

Sous Delphi 2007 et Indy 10, j'ai été obligé de changer le type Int64 vers Integer comme indiqué dans le source . Pour les reste, cela fonctionne.

Merci à toi Rayek.

Pascal