Discussion :

[PHILOSOPHE]

J'ai voulu reprendre les sources du point 6.11 de ce site pour essayer et ça ne fonctionne pas.Qqn peux me dire pourquoi?

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
 
procedure TfrmMain.btnSendClick(Sender: TObject);
Var MAPIMessage: TMAPIMessage;
    MAPIFile     : TMAPIFileDesc;
    MAPIRecip    : TMAPIRecipDesc;
    MAPIRecips   : Array[0..1]Of TMAPIRecipDesc;
    i            : Integer;
    Name, tmp    : String;
begin
 
//------------------------ Définition de MAPIFile -----------------------\\
   MAPIFile.ulReserved   := 0;
   MAPIFile.flFlags      := 0;
   MAPIFile.nPosition    := 0;
   MAPIFile.lpszPathName := PChar(edFile.Text);                 //Chemin complet du fichier à joinde
   MAPIFile.lpszFileName := PChar(ExtractFileName(edFile.Text));//Nom "interne" du fichier joint
   MAPIFile.lpFileType   := nil;                                //nil : le type de fichier sera déterminé par le système
//-----------------------------------------------------------------------\\
 
//--------------- Récupération du pseudo du destinataire ----------------\\
  tmp := edAdr.Text;
  For i := 1 To Length(tmp) Do
  Begin
    If tmp[i] = '@' Then Break
    Else Name := Name + tmp[i];
  end;
//-----------------------------------------------------------------------\\
 
//----------------------- Définition de MAPIRecip -----------------------\\
   MAPIRecip.ulReserved   := 0;
   MAPIRecip.ulRecipClass := MAPI_TO;           //Destinataire principal; MAPI_CC et MAPI_BCC pour des copies/copies cachées
   MAPIRecip.lpszName     := PChar(Name);       //Nom du destinataire
   MAPIRecip.lpszAddress  := PChar(edAdr.Text); //et son adresse
   MAPIRecip.ulEIDSize    := 0;
   MAPIRecip.lpEntryID    := nil;
//-----------------------------------------------------------------------\\
 
MAPIRecips[0] := MAPIRecip; //MAPISendMail prend un tableau de MAPIRecipDesc en paramètre
 
//---------------------- Définition de MAPIMessage ----------------------\\
  With MAPIMessage Do
  Begin
    ulReserved         := 0;
    lpszSubject        := PChar(edSjt.Text);         //Sujet du message
    lpszNoteText       := PChar(memTexte.Lines.Text);//Texte du message
    lpszMessageType    := nil;                       //nil lors d'un envoi
    lpszDateReceived   := nil;
    lpszConversationID := nil;
    flFlags            := 0;
    lpOriginator       := nil;                       //Pointeur éventuel vers une description de l'expéditeur
    nRecipCount        := 1;                         //Nombre de destinataires
    lpRecips           := @MAPIRecips[0];            //On passe l'adresse du premier élément du tableau de destinataires
    nFileCount         := 1;                         //Nombre de fichiers joints
    lpFiles            := @MAPIFile;                 //Pointeur vers la description du fichier joint
  end;
//-----------------------------------------------------------------------\\
 
 
//------------------------ Appel de MAPISendMail ------------------------\\
 If MAPISendMail(0, 0, MAPIMessage, MAPI_NEW_SESSION or
                 MAPI_DIALOG, 0) <> SUCCESS_SUCCESS Then
 ShowMessage('Une erreur est apparue lors de l''envoi du message')
 Else ShowMessage('Envoi effectué !');
//-----------------------------------------------------------------------\\
 
end;

[TicTacToe]

Plus de précision ?
J'ai ma fonction sendmail
et j'ai noté 1 erreur possible:

Code :

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

1
2
lpRecips           := @MAPIRecips[0];   // FAUX ??
lpRecips           := @( MAPIRecips[0] );   // VRAI EN TOUT CAS

Attention ce code marche avec une seule pièce jointe, avec bug incorporé invisible

En fait le piège, c'est qu'avec UNE piece jointe, ca marche, par chance, car la chaine de car. est dans un no mans land sans être écrasé par les fichiers joints suivant...

Le code corect pour plusieurs pieces jointe est

Code :

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

1
2
   MAPIFile.lpszPathName := strnew( PChar(edFile.Text));                 //Chemin complet du fichier à joinde
   MAPIFile.lpszFileName := strnew( PChar(ExtractFileName(edFile.Text)));//Nom "interne" du fichier joint

à la place de

Code :

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

1
2
   MAPIFile.lpszPathName := PChar(edFile.Text);                 //Chemin complet du fichier à joinde
   MAPIFile.lpszFileName := PChar(ExtractFileName(edFile.Text));//Nom "interne" du fichier joint

LIBERER Les chaines avec strdispose ensuite...

[Modération]
Merci d'utiliser les balises code ou quote, Laurent Dardenne
[/Modération]

[PHILOSOPHE]

As-tu essayé d'exécuter ces sources? Si je mets un fichier avec une adresse email valide il n'y a pas d'erreur de compil et d'exécution mais j'ai en retour 'Une erreur est apparue lors de l''envoi du message' au lieu de 'envoi effectué'