DIDACTITIEL ISAPI AVEC LES COMPOSANTS INTERNET DE DELPHI 5/6/7 enterprise

9. Envoyer un mail par ISAPI avec Winshoes▲

Utilise la suite Winshoes (actuellement Indy, qui a subi certains remaniements : http://www.nevrona.com/indy)

Sélectionnez

Var e_mail:TStringList;
    S:String;
    Mail1:TWinShoeMessage;
begin
  e_mail:=TStringList.Create;
  Try
    S:='<HTML><body><CENTER>';
    with TWinshoeSMTP.Create(nil) do
    begin
      try
        Host := 'Votre serveur Mail';
        UserId:='Votre nom';
        Mail1 := TWinshoeMessage.Create(nil);
        try
          with e_mail do
          begin
            If Request.QueryFields.Values['EMAIL']='' then
              Mail1.From:='Inconnu'
            Else
              Mail1.From:=Request.QueryFields.values['EMAIL'];
            Mail1.Too.Add('mirella_diC@solovely.it');
            Mail1.Subject:='Ciao bella';
            Mail1.ContentType:='text/plain;charset=iso-8859-1';
            Mail1.Text:=E_Mail;
            // Dans ce cas, une forme avec plusieurs dialogues (on envoye tout)
            E_mail.Assign(Request.QueryFields);
            Mail1.Text:=E_Mail;
            Try
              Send(mail1);
            Except
              on E: Exception do
                raise Exception.Create('Erreur à l''envoi.<BR>' + E.Message);
            end;
            S:=S+'<br>Message de '+Mail1.From+' envoyé à <br><center>'+Mail1.Too.Text
			    +'<br> si aucun message d''erreur au-dessus<BR></center>';
          end;
        except
          on E: Exception do
            raise Exception.Create('Erreur à l''envoi.<BR>' + E.Message);
        end;
      finally
        Mail1.Free;
      end;
      Free;
    end;
  Finally
    e_mail.Free;
    S:=S+'</BODY></HTML>';
    Response.Content:=S;
    Handled:=True;
  end;
end;