Discussion :

[Seb4657]

Salut,

est-il possible avec delphi, d'envoyer un mail sans utiliser de serveur smtp ??

si oui comment ?

merci d'avance

[Seb4657]

je pensais utiliser un webbrowser et un fichier php sur un serveur, est-ce que ça peut marcher ??

[sjrd]

Oui ça peut marcher, mais plutôt qu'un webbrowser tu devrais utiliser un TIdHTTP

[Seb4657]

qu'elle est la différence entre les deux ?

sinon je ne vois pas comment je pourrais envoyer une piece jointe de cette manière

vous n'avez pas une autre idée ??

[sjrd]

qu'elle est la différence entre les deux ?

Ben le webbrowser est prévu pour permettre à l'utilisateur de naviguer sur des pages Web, il est donc beaucoup plus lourd et requiert Internet Explorer. Alors que le TIdHTTP ne s'occuppe que de l'accès HTTP à ton serveur, juste ce dont tu as besoin ; en plus, tu peux le configurer de façon plus complète que le WebBrowser, qui lui récupère la configuration de l'utilisateur.

sinon je ne vois pas comment je pourrais envoyer une piece jointe de cette manière

Au moyen des paramètres de type POST.

vous n'avez pas une autre idée ??

Ben si, utiliser un serveur SMTP ou alors coder ton propre serveur SMTP

[Seb4657]

comment utiliser les parametres POST ??

sinon, pour le webbrowser je mettais webbrowser.navigate, la je dois mettre IdHTTP1. koi ??

[sjrd]

comment utiliser les parametres POST ??

Ben côté PHP c'est pas le bon forum ; côté WebBrowser ça m'étonnerait que tu y arrives ; et côté IdHTTP il faut voir dans la doc.

sinon, pour le webbrowser je mettais webbrowser.navigate, la je dois mettre IdHTTP1. koi ??

Utilise la méthode Post (il y a aussi la méthode Get mais qui ne permet pas l'utilisation des paramètres POST, à l'instar des formulaires Web)

[Seb4657]

il me met ceci : [Error] unit1.pas(116): E2250 There is no overloaded version of 'Post' that can be called with these arguments

qu'est-ce que ça signifie ??

[sjrd]

Ca signifie avec une clarté limpide que tu n'appelles pas la méthode Post avec les bons arguments

Montre ton code qu'on puisse mieux t'aider

[Seb4657]

bien mon code c'est pas compliqué, c'est juste :

procedure TForm1.Button5Click(Sender: TObject);
begin
IdHTTP1.post('site/page.php');
end;

mais j'ai cherché sur google et j'ai trouvé ceci :

http://www.phidels.com/php/index.php3?page=../php/pagetelechargementzip.php3&LienTelechargement=../php/zip/webbrowserentree.zip&NomExempleTelechargement=Pouvoir%20utiliser%20la%20touche%20entr%E9e%20lors%20de%20l'utilisation%20du%20TWebBrowser&id=412

(dsl pour l'url )

le principe est de simuler l'appui sur la touche entree lors de l'ouverture de la page, mais ça ne marche pas, il ne se produit rien

merci

[Seb4657]

personne n'a une petite idée ???

[newbie57]

Salut Seb4657,

J'ai lu ton post et comme par hazard je suis en train de faire la même que toi. Je vais essayer d'être le plus clair possible sachant que je suis un ultra débutant en delphi (mais un peu mieux en php )

Alors, au sujet de IdHTTP.Post, pour pouvoir l'appeler, j'utilise la manière suivante:

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
 
var
  destinataire: String;  
  message: String;
  Ts: TStringList;         //necessaire pour envoyer les parametres au php
  ok: String;               //sert a interpreter ce que fait la page php.
Begin
  destinataire := label1.text;
  message := label2.text;
 
  Ts := TStringList.create;
  Ts.Clear;
 
  Ts.Append('destinataire=' + destinataire);      //sera repris par le php     attention a l'orthographe!
 
  Ts.Append('message=' + message);              //sera repris par le php attention a l'orthographe!
 
  ok := IdHTTP1.Post('http://monsite.net/envoimail.php',Ts);
 
  if ok = '!' then
  begin
     //delphi interprete comme une erreur
  end
  else if ok = 'ok' then
  begin
    //delphi interprete comme un bon déroulement de la page php
  end;

Pour expliquer ce que j'ai fait si dessus, en fait le message et le destinataire sont envoyé à la page php grace au Ts, en retour la page php (avec un echo revoit soit '!' soit 'ok' selon que ça fonctionne ou pas. (Tu peux mettre ce que tu veux ou rien si tu veux aussi)

Au sujet du Ts, j'ai dit de faire attention a l'orthographe car pour le php, $_POST doit avoir les mêmes parametres que ce que tu envoi par delphi.

Pour le script php (qui s'appelle envoimail.php dans mon exemple):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
<?php
/*le destinataire est récupéré ici*/
$dest = $_POST["destinataire"];
 
/*le message est récupéré ici*/
$mess= $_POST["message"];
 
/*
ici tu utilisera la fonction mail() et tu étudiras les cas ou tu aurais une erreur. si erreur alors echo '!'  ou die ('!') sinon echo 'ok'
*/
?>

J'espère que j'ai répondu à tes attentes

Joyeuses fêtes 8)

[Seb4657]

merci bcp pour ton aide newbie57 !!!

[Frank]

[RESOLU] ?

[Seb4657]

euh nn pas tout a fait, car en fait je viens de me rendre compte que je ne reçois pas du tout le mail

[sjrd]

euh nn pas tout a fait, car en fait je viens de me rendre compte que je ne reçois pas du tout le mail

As-tu vérifié que le PHP est bien appelé, avec les bons paramètres, et que sa réponse est 'ok' ?

Si oui alors il y a un problème dans ton code PHP et ça c'est pour le forum PHP (quoique pour la continuité du thread tu pourrais poster ton code final ici).

Sinon montre nous le code complet Delphi, qu'on voit comment tu as fait finalement

[Seb4657]

a si c'est bon, je reçois le mail, maintenant est-ce possible d'y inserer une piece jointe ??

[sjrd]

Oui c'est tout à fait possible, mais pour ça vois dans PHP Sans oublier les cours PHP du site bien sûr.

[skywaukers]

bonjour,

pourquoi ne pas utiliser shellexecute ?

Code :

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

ShellExecute ( 0, 'Open', PChar( 'mailto:AdresseDestinaire?subject=Objet_du_mel&body=corps_du_message'), '', '', SW_SHOWNORMAL);

ou alors il y a aussi la possibilité d'utiliser MAPI, mais c'est plus compliqué et avec les dernières version d'Outlook l'utilisateur doit répondre à un message d'avertissement.

@++
Dany[/code]