Discussion :

[mario9]

Bonjour

Toujours heureux de vous lire ca m'aide beaucoup dans le developpement de mes applications. Un gros merci a tous.


Je suis a la recherche de la manière de mettre 2 ou plusieurs fichiers attachés dans un email via mapifile .
1 fichier ca va tres biens voir exemple plus bas

//------------------------ Définition de MAPIFile -----------------------\\

Code :

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

1
2
3
4
5
6
   MAPIFile.ulReserved   := 0;
   MAPIFile.flFlags      := 0;
   MAPIFile.nPosition    := 0;
   MAPIFile.lpszPathName := PChar(edFile.Text);
   MAPIFile.lpszFileName := PChar(ExtractFileName(edFile.Text));+++  ici autre fichier mais comment
   MAPIFile.lpFileType   := nil;

//

j'utilise la version 7 de delphi

Merci de prendre quelque minutes pour me repondre

Mario

[Jipété]

Salut.

Un coup d'oeil au SDK montre que cela pourrait (non testé) se définir dans la commande MAPISendMail :

Code :

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

1
2
3
4
5
6
7
8
MAPISendMail(
  Session as Long,.
  UIParam as Long, 
  Message as MapiMessage, 
  Recips as MapiRecip, 
  Files as MapiFile, 
  Flags as Long,
  Reserved as Long) as Long

Parameters
(...)
Files
[in] The first element of an array of attachment files written when the message is read. The number of attachments per message might be limited in some systems. If the limit is exceeded, the MAPI_E_TOO_MANY_FILES value is returned. When the value of the FileCount member in the MapiMessage type pointed to by the Message parameter is zero, the Files parameter is ignored. Attachment files are read and attached to the message before the call returns. Do not attempt to display attachments outside the range of the message text.

Et concernant MAPIMessage :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Type MapiMessage
     Reserved as Long
     Subject as String
     NoteText as String
     MessageType as String
     DateReceived as String
     ConversiondID as String
     Flags as Long
     Originator as Long
     RecipCount as Long
     FileCount as Long
End Type

Members
(...)
FileCount
A count of the file attachment descriptor types. A value of 0 indicates that no file attachments are included.

Juste une piste, à affiner avec l'ami Google,
Bon code,

[mario9]

Merci ça ma orienté

J'ai pu trouver ma solution que voici

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
Var MAPIMessage: TMAPIMessage;
    MAPIFile     : Array[0..1]Of TMAPIFileDesc; // definir plusieurs fichiers
    MAPIRecip    : TMAPIRecipDesc;
    MAPIRecips   : Array[0..1]Of TMAPIRecipDesc;
    i            : Integer;
    Name, tmp    : String;
begin

//------------------------ Définition de MAPIFile -----------------------\\
   MAPIFile[0].ulReserved   := 0;
   MAPIFile[0].flFlags      := 0;
   MAPIFile[0].nPosition    := 0;
   MAPIFile[0].lpszPathName := PChar(edFile.Text);                 //Chemin complet du fichier à joinde
   MAPIFile[0].lpszFileName := PChar(ExtractFileName(edFile.Text));//Nom "interne" du fichier joint
   MAPIFile[0].lpFileType   := nil;                                //nil : le type de fichier sera déterminé par le système
  MAPIFile[1].ulReserved   := 0;
   MAPIFile[1].flFlags      := 0;
   MAPIFile[1].nPosition    := 0;
   MAPIFile[1].lpszPathName := PChar(edFile1.Text);                 //Chemin complet du fichier à joinde
   MAPIFile[1].lpszFileName := PChar(ExtractFileName(edFile1.Text));//Nom "interne" du fichier joint
   MAPIFile[1].lpFileType   := nil;                                //nil : le type de fichier sera déterminé par le système
   //-----------------------------------------------------------------------\\

Et ça marche

Merci encore