Comment reproduire l'opération "Envoyer vers Mail recipients" ?

**chill667** · 14/12/2005, 11h31

Bonjour,

Comment faire en delphi pour réaliser la même chose que lorsqu'on est sur un fichier et que l'on fait bouton droit --> send to --> mail recipients.
la messagerie par défaut s'ouvre et le fichier est mis en attachment.

Je voudrais automatiquement ajouter un fichier en attachment via programmation en delphi mais je ne veux pas que le mail soit envoyé, juste le voir à l'écran avec l'attachment complété.

Merci d'avance pour vos réponses.

**TicTacToe** · 14/12/2005, 12h46

Tu trouveras ca dans la FAQ il me semble, néamoins attention, il me semble que l'exemple donnée ne marche que pour 1 seul fichier joint !

**chill667** · 14/12/2005, 14h56

J'ai eu beau chercher dans la FAQ, je n'ai rien trouvé à ce sujet.
Sauf pour envoyer un mail via des composants fastnet ou indy mais ça, ça envoie le mail directement, moi je ne veux pas envoyer le mail, je veux afficher la fenêtre du client mail avec un attachment prérempli.

**nut62** · 14/12/2005, 15h01

Tu n'as pas bien regardé.
Voilà le lien vers la FAQ :
http://delphi.developpez.com/faq/?pa...estionArticle3
et également ce post par rapport aux problèmes que tu peux rencontrer :
http://www.developpez.net/forums/viewtopic.php?t=420237

Et ça marche avec plusieurs pieces jointes.

**chill667** · 14/12/2005, 15h28

Tu n'as pas bien regardé.
Voilà le lien vers la FAQ :
http://delphi.developpez.com/faq/?pa...estionArticle3
et également ce post par rapport aux problèmes que tu peux rencontrer :
http://www.developpez.net/forums/viewtopic.php?t=420237

Et ça marche avec plusieurs pieces jointes.

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
 
var DossierContact : MAPIFolder;
    UnMail : MailItem;
begin
    // Crée un élément MailItem représentant un courrier électronique
 UnMail:=Outlook.CreateItem(olMailItem) as MailItem;
 
   // Ajoute un ou plusieurs destinataires
 UnMail.Recipients.Add('Nom@UrlServerMail.Fr');
 UnMail.Subject := 'Au sujet d''Outlook';
 
  // Ajoute un retour chariot pour séparer le corps du message des piéces jointes
 UnMail.Body := 'Corps du message envoyé'+#13#10;
 
   //Ajoute une ou plusieurs pièces jointes
 UnMail.Attachments.Add('C:\temp\Document.txt', olByValue, EmptyParam, EmptyParam);
 
   // Place le mail dans la boîte d'envoi, mais ne l'envoi pas.
 UnMail.Send;
end;

J'ai mis le code dans le onclick d'un tButton et il ne reconnait pas le type MapiFolder ni mailItem , etc... Faut-il installer inclure une unité particulière ou installer un composant?

Puis apparement d'après le code, ça marche que pour Outlook moi je veux simuler la commande sendto-->mailrecipients qui marchent pour toutes les messageries, ici au boulot on utilise la messagerie Firstclass

**nut62** · 14/12/2005, 15h55

Il faut ajouter un TOutlookApplication, onglet serveur...

Sinon, tu peux toujours faire un mailto:

Code :

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

1
2
Email := 'mailto:' + Destinataire + '?subject=' + Sujet+ '&body=' + Texte;
ShellExecute(Handle,'open',PChar(Email),nil,nil,SW_SHOW);

Avec une piece jointe,

Code :

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

Email := 'mailto:' + Destinataire + '?subject=' + Sujet+ '&body=' + Texte+'&attachment="c:\monfich.txt" ';

l'attachment fonctionne sous outlook 2003, mais pas avec Outlook express. Pour ce qui est de FirstClass, je n'en connaissais meme pas l'existence.

**chill667** · 14/12/2005, 16h22

l'attachment ne fonctionne pas avec la commande mailto dans la messagerie firstclass.

Et ça ne m'intéresse pas de le faire avec outlook car ici on utilise Firstclass.

www.firstclass.com

Pourtant ça doit être faisable de faire ce que je demande car via le bouton droit --> send to --> mail recipients, tout se passe correctement même avec firstclass.

Quelle code windows utilise pour faire ça??

Personne n'a une idée?