Discussion :

[defluc]

Bonjour

Je voudrais envoyer le contenu de 2 boites Edit sur 2 lignes qui se suivent dans un mail.
Le séparateur (#10) n'a aucun effet, pas plus que #13.
Que dois-je faire pour ne pas avoir le contenu de mes 2 boites sur une même ligne.

Voici mon code.

Code :

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

1
2
3
4
 Msg:=LocaliteEdit.Text + #10 + NameTextBox.Text ;
   Email:='mailto:'+'monadresse@swing.be'+'?subject='+sujet+'&body='+ Msg;
   if ShellExecute(Handle,'open',PChar(Email),nil,nil,SW_SHOW) <= 32 then
      MessageBox(0,PChar('Mail error!'),'Elect',MB_ICONERROR);

Merci de votre aide.

Merci d'utiliser les balises code ou quote, Laurent Dardenne

[edam]

Bonjour

Je voudrais envoyer le contenu de 2 boites Edit sur 2 lignes qui se suivent dans un mail.
Le séparateur (#10) n'a aucun effet, pas plus que #13.

essaye les 2 (#10#13)

[K.othmane]

Yop

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.Button1Click(Sender: TObject);
var
test :string ;
begin
test:=edit1.text + #13 + edit2.text;
showmessage(test);
end;

Ca marche bien chez moi :/

[defluc]

Ca, ça marche chez tout le monde.

C'est l'écran de la messagerie appelé par le showexecute qui n'accepte pas les retours habituels #10#13.
La question est de savoir quel retour il faut utiliser pour un email ?

[K.othmane]

Et si tu utilisait le composant Tidsmtp ?

[defluc]

Il s'agit d'un mail que l'utilisateur du programme doit me renvoyer et j'utilise ShellExecute pour que ce soit sa messagerie par défaut qui m'envoie le mail.
Avec Les composants SMTP ou Indy, je dois renseigner le serveur et le login de l'utilisateur que je ne connais évidemment pas.

[Jipété]

G' morning !

Par hasard, tu n'aurais pas un truc pour cacher le logiciel de messagerie par défaut de l'utilisateur et exécuter automatiquement l'envoi du mail ?

Point nenni, cependant, jette un oeil sur les composants de François Piette, il y a dans ses exemples un mail-sender qui pourrait faire ton bonheur, donc je pense que ça devrait pouvoir fonctionner avec d'autres (Indy ? J'ai pas Indy).

Ou peut-être en mettant

Code :

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

  ShellExecute(0, 'open', PChar(sMailCommand), nil, nil, SW_HIDE);

? (écrit de tête, cherche la valeur exacte pour SW_HIDE) -- non testé, juste une idée comme ça.


HTH,
JP

[defluc]

SW_HIDE dans ShellExecute ne cache pas la messagerie.
Par contre, <br> comme séparateur renvoie bien à la ligne.

Merci à tous

[Jipété]

Yep !

SW_HIDE dans ShellExecute ne cache pas la messagerie.

Exaguette. Désolé...

Par contre, <br> comme séparateur renvoie bien à la ligne.

Ben pas chez moi, même en réactivant l'affichage html : dans les 2 cas ça m'écrit <br> entre les 2 textes...

Tu nous montres comment tu t'en sors ?

JP, just curious

[flydan]

salut,

j'ai eu le mm prob et j'ai trouvé comment faire:
, voici le lien du post que j'avais mis :http://www.developpez.net/forums/sho...d.php?t=181137

j'ai même du l'adapter car avait qlq prob avec le logiciel de messagerie du boulot, voici le code que j'utilise :

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
 
.
.
.
  messge :='Nom et Prenom : '+NomPrenombox.Items.strings[i]+'%0D'+
           'N° de badge : '+agents[i+1,4]+'%0D'+
           'N° de téléphone : '+agents[i+1,6]+'%0D'+
           'Local : '+agents[i+1,5]+'%0D'+
           'Chef immédiat : '+agents[i+1,7]+'%0D'+'%0D'+
           'Liste des jours d''absences et/ou de rectifications :'+'%0D';
 
  // '%0D' doit être ajouté à chaque fin de lignes du MemoP30
  for j:=0 to MemoP30.lines.count-1 do
      begin
      messge := messge+MemoP30.lines[j]+'%0D' ;
      end;
 
  email := 'mailto:'+adr+'?subject='+sujet+'&body='+messge;
 
  // Envoi de l'email
  ShellExecute(handle, 'open', Pchar(email), nil, nil, sw_normal);

j'espère que cela t'aideras

a+