Piszę unit - bz żadnych form itp. nie wizualnie!!!!!!
Problem w tym, ze wyskakuje mi błąd dotyczący wysłania mail'i
oto jego fragment
unit noxx;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, shellapi, mmsystem, Psock, NMsmtp;
var
Mail : TNMSMTP;
{inne zmienne i procedury}
procedure send_mail(subject : string; from : string; toadress : string; text : TStrings; reply_to_my_adress : boolean);
procedure mailslot_initialize(host : string; UserID : string; Port : integer; connect : boolean);
implementation
//i tu juz same procedury
procedure send_mail(subject : string; from : string; toadress : string; text : TStrings; reply_to_my_adress : boolean);
begin
Mail.PostMessage.FromAddress := from;
Mail.PostMessage.FromName := '';
Mail.PostMessage.Subject := subject;
Mail.PostMessage.ToAddress.Add(toadress);
Mail.PostMessage.Body.Assign(text);
if reply_to_my_adress = true then
begin
Mail.PostMessage.ReplyTo := from;
end;
Mail.SendMail;
end;
procedure mailslot_initialize(host : string; UserID : string; Port : integer; connect : boolean);
begin
mail.postmessage.date := datetostr(date);
mail.PostMessage.LocalProgram := 'ZIOMBER smpt demo';
mail.TimeOut := 0;
mail.SubType := mtPlain;
mail.ClearParams := true;
mail.EncodeType := uuMime;
Mail.Charset := 'us-ascii';
Mail.Host := host;
Mail.Port := Port;
Mail.UserID := UserID;
if connect = true then
begin
Mail.Connect;
end;
end;
i same błedy typu Raise Exception się pojawiają :/ ;(