Créer un mail sans composants

Salut,
je ne sait pas si je suis très clair dans le sujet, mais je voudrais savoir si il est possible quand on ouvre un nouveau mail avec :

Code:

---

1 2	ShellExecute(0,nil,'mailto:Silk31@hotmail.fr',nil,nil,0);

---

de lui rajouter du texte dans le corp du message ? sans passer par les composants outlook et tout le binz qui va avec(parce que si il n'y a pas outlook sa marche plus). Je veux juste faire un truc tout simple.

merci d'avance

Salut,

Il faut considérer le fait que tout le monde n'as pas de client de messagerie installé sur son PC (moi par exemple !)
il faut donc envisager une autre approche.

Il existe les composant Indy nativement dans Delphi, autant les utiliser !

Tu mets IdMessage,IdSMTP dans les Uses (il ne faut que cela de memoire)

tu mets en place la procedure suivante, où MObject est le sujet de ton mail, MMessage est le texte de ton message, et MAdresse sont les adresses des destinataires (avec un ';' entre les adresses) et MAdresseCC les adresses pour la copie carbone (avec des ';' encore !)

Dans la procédure, tu dois indiquer l'adresse de l'expéditeur et l'adresse du SMTP

Code:

---

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

procedure Mail(MObject, MMessage, MAdresse, MAdresseCC : string); var IdSMTP1 : TIdSMTP; IdMessage1 : TIdMessage; begin IdMessage1 := TIdMessage.Create(nil); IdSMTP1 := TIdSMTP.Create(nil); with IdMessage1 do begin CharSet := 'iso-8859-1'; Encoding := meMIME; ContentType := 'multipart/mixed'; From.Text := 'monadresse@mondomain.com'; BODY.Add(MMessage); if MAdresse <> '' then begin Recipients.EMailAddresses := MAdresse; CCList.EMailAddresses := MAdresseCC; end else Recipients.EMailAddresses := 'adressepardéfaut@mondomain.com'; Subject := MObject; end; IdSMTP1.Host := 'TonServeurSmtp'; try IdSMTP1.Connect(300); IdSMTP1.send(IdMessage1); MessageDlg('Mail envoyé avec le texte suivant : ' + #13#10 + IDMessage1.Body.Text, mtWarning, [mbOK], 0); IdSMTP1.Disconnect; except MessageDlg('Erreur d''envoi de mail avec le texte suivant : ' + #13#10 + IDMessage1.Body.Text, mtWarning, [mbOK], 0); IdSMTP1.Disconnect; end; IdMessage1.Free; IdSMTP1.Free; end;

---

Voilà, j'espère que ca peut te filer un coup de main !
A+

Sinon, tu as aussi des infos dans la faq... c'est peut être plus clair !
http://delphi.developpez.com/faq/?pa...et#envoyermail

Si tout de même tu préfères utiliser mailto:, tu peux utiliser les paramètres subject et body pour donner un titre de sujet et un corps par défaut :

Code:

---

mailto:quelqu.un@quelque.chose.com?subject=Sujet par défaut&body=Corps du message par défaut

---

Huummm !!! j'crois qu'il ya aussi chose qui peut aussi t'aider.
Laisse-moi reflechir :roll: .
ça y est :P ça m'revient, ya le livre de Pierre-Jean Bellavoine : Delphi 7 (L'AUTO FORMATION PAR L'EXEMPLE ''Tu le trouvera chez DUNOD'') qui traite aussi ton sujet. Je te le conseil vivement.

Citation:

---

L'important n'est pas de tout savoir, mais de savoir où tout se trouve.

---

A +++++ :wink:

ok je pense que je vais faire comme sa avec les composants indy

merci pour vos réponses

Un petit clic sur résolu ?? :D

non n'étant pas un pro je m'y met tout de suite et j'atten de voir si j'y arrive comme ça si j'ai un problème je n'ai qu'a utiliser ce post là :D