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

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.

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 !

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.

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.

Citation:

---

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:

---

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

Il faut ajouter un TOutlookApplication, onglet serveur...

Sinon, tu peux toujours faire un mailto:

Code:

---

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

---

Avec une piece jointe,

Code:

---

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.

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?

A tu essayé depuis les sources du site ?

ftp://www.ftp-developpez.com/delphi/sources/OLMAPI.zip

c'est de ce lien dont je te parlais plus haut

Un grand merci c'était exactement ce que je cherchais ;-)


comment as-tu trouvé cette source?
en tapant quoi dans quel écran de recherche?

pas de recherche
en parcourant les sources dans la bonne section ;)

ah ok :)
je connaissais même pas l'existence de ce ftp, je l'ai mis dans mes favoris:)