Discussion :

[[Silk]]

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 :

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

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

[NoisetteProd]

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 :

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
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+

[NoisetteProd]

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

[sjrd]

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 :

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

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

[the watcher]

Huummm !!! j'crois qu'il ya aussi chose qui peut aussi t'aider.
Laisse-moi reflechir .
ça y est ç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.

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

A +++++

[[Silk]]

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

merci pour vos réponses

[NoisetteProd]

Un petit clic sur résolu ??

[[Silk]]

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à