Envoi de mail

**kumo** · 30/01/2008, 09h26

bonjour,
je voulais savoir, j'ai une appli delphi qui crée un fichier txt dans lequel on ecrit des choses.
Je voudrais qu'a la fin, on clique sur un bouton valider par exemple et qu'un mail soit envoyé a la personne dont le mail a été saisi dans la textbox nommée "LeMail" par exemple avec le document txt en pièce jointe.
J'ai vu qu'il y a avit le composant TNMSMTP mais je sais pas l'utiliser.
Qu'elqu'un pourrait-il m'aider?

Merci

**ShaiLeTroll** · 30/01/2008, 11h16

Tient, j'ai fait cela basé sur le composant indy de Delphi 7, je n'ai pas le temps d'élaguer le code, mais tu devrait vite comprendre ...

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
class function TepcConfigController.SendReport(ConfigSMTP: TStrings = nil): Boolean;
 
  function CheckConfig(ParamList: TStrings): Boolean;
  var
    I: Integer;
  begin
    Result := ParamList.Count = 6;
    if Result then
    begin
      Result := (ParamList.IndexOfName('HOST') >= 0)
            and (ParamList.IndexOfName('PORT') >= 0)
            and (ParamList.IndexOfName('USERNAME') >= 0)
            and (ParamList.IndexOfName('PASSWORD') >= 0)
            and (ParamList.IndexOfName('EXP') >= 0)
            and (ParamList.IndexOfName('DEST') >= 0);
      if Result then
        Result := TryStrToInt(ParamList.Values['PORT'], I);
    end;
  end;
 
  function SpaceToEndLine(const S: string): string;
  var
    iStr: Integer;
  begin
    SetLength(Result, Length(S));
    for iStr := 1 to Length(S) do
      if S[iStr] = ' ' then
        Result[iStr] := #13
      else
        Result[iStr] := S[iStr];
  end;
 
var
  ParamSMTP: string;
  IdMessage: TIdMessage;
  IdSMTP: TIdSMTP;
  IsLineConfig: Boolean;
begin
  IsLineConfig := not Assigned(ConfigSMTP);
  Result := not IsLineConfig or GetParam('/SMTP', 'p', ParamSMTP);
  if Result then
  begin
    if IsLineConfig then
      ConfigSMTP := TStringList.Create();
    try
      if IsLineConfig then
        ConfigSMTP.Text := SpaceToEndLine(ParamSMTP);
      Result := CheckConfig(ConfigSMTP);
      if Result then
      begin
        IdSMTP := TIdSMTP.Create(nil);
        try
          IdSMTP.AuthenticationType := atLogin;
          IdSMTP.Host := ConfigSMTP.Values['HOST'];
          IdSMTP.Port := StrToInt(ConfigSMTP.Values['PORT']);
          IdSMTP.UserName := ConfigSMTP.Values['USERNAME'];
          IdSMTP.Password := ConfigSMTP.Values['PASSWORD'];
          IdSMTP.Connect();
          Result := IdSMTP.Connected;
          if Result then
          begin
            IdMessage := TIdMessage.Create(IdSMTP); // Libération par Owner
            IdMessage.From.Address := ConfigSMTP.Values['EXP'];
            IdMessage.Recipients.EMailAddresses := ConfigSMTP.Values['DEST'];
            IdMessage.Subject := '[MAINTENANCE] Rapport du Config Controller';
            IdMessage.Date := Now();
            IdMessage.CharSet := 'ISO-8859-1';
            IdMessage.ContentType := 'text/plain';
            IdMessage.Body.Text := GetReport();
            TIdAttachment.Create(IdMessage.MessageParts, GetReportFile()); // Libération par Collection
 
            IdSMTP.Send(IdMessage);
          end;
        finally
          IdSMTP.Disconnect;
          IdSMTP.Free();
        end;
      end;
    finally
      if IsLineConfig then
        ConfigSMTP.Free();
    end;
  end;
end;

**kumo** · 30/01/2008, 11h26

sauf que moi je suis sur delphi 5, voici le code que j'utilise et il met le message d'erreur suivant: "Echec de connection a l'hôte. Adresse distante nulle"...je sais pas de quel paramètre ça vient, du nom du serveur smtp ou d'e l'identifiant internet

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
procedure TForm9.ValiderClick(Sender: TObject);
begin
form9.smtp.connect;
 
form9.smtp.host:=nomserv.text;
form9.smtp.PostMessage.FromName :=nomemet.Text;
Form9.smtp.UserID :=ident.Text;
Form9.smtp.PostMessage.Subject :='TP'+form2.numtp.text+'Groupe'+form2.numGroup.text;
Form9.smtp.PostMessage.ToAddress.Add(mail.Text);
form9.smtp.PostMessage.Attachments.AddStrings(ListeFichiers.Items);
Form9.smtp.PostMessage.Body.Assign(Memo1.Lines);
 
form9.smtp.SendMail ;
 
form9.smtp.disconnect;
 
 
 
end;