Napisałem w Delphi7 program, do którego chcialbym dodać prosty moduł do wysyłania maili. Niestety w Delphi7 gdzieś wcięło grupę komponentów FastNet, właśnie z bardzo prostym NMSMTP do wysyłania maili, a w Delphi7 są tylko komponenty z Indy, które do prostych raczej nie należą. Myślałem że będę mógł zaprojektować ten moduł w starszym Delphi, a później przenieść do Dephi7, ale nie da się tego zrobić w prosty sposób (tzn. do NMSMTP nie ma plików .pas tylko same .dcu, pod Delphi7 nie da się też zainstalować całego FastNet). Czy jest na to jakiś inny sposób ??
Powiem tak jak chcesz wysłac do jednej osoby to daj to:
begin
NMSMTP1.Host := 'smtp.MojaSkrzynka.pl'; // serwer SMTP
NMSMTP1.Port := 25; // port SMTP
NMSMTP1.UserID := 'ToJa'; // użytkownik serwera
NMSMTP1.Connect; // połączenie
Sleep(100); // poczekaj
NMSMTP1.PostMessage.FromAddress := '[email protected]'; // z jakiego adresu
NMSMTP1.PostMessage.FromName := 'Kowalski'; // nazwisko użytkownika
NMSMTP1.PostMessage.Subject := Edit1.Text; // temat
NMSMTP1.PostMessage.ToAddress.Add('[email protected]'); // na jaki adres wysłać
NMSMTP1.PostMessage.Body.Add('Tresc'); // treść maila
NMSMTP1.SendMail; // wysyła
NMSMTP1.Disconnect; // rozłącza
A zeby wysłać maila przez komponenty indy to daj tak:
MessageSend.Body.Append('tresc maila');
MessageSend.From.name := 'imie od kogo';
MessageSend.From.Address := 'adres od kogo';
MessageSend.Recipients.EMailAddresses := 'Odbiorca';
MessageSend.Subject := 'temat'
SMTP.UserId := 'nazwa użytkownika serwera SMTP';
SMTP.Password := 'hasło';
SMTP.Host := 'adres serwera SMTP';
SMTP.Connect;
try
SMTP.Send(MessageSend);
finally
SMTP.Disconnect;
end;
[cya] [hurra]
albo zastosuj to:
ShellExecute(Handle, 'open','mailto:twó[email protected]' , nil,nil,SW_SHOWNORMAL); ale musisz wpisac ściezkę do programu pocztowego najlepiej Outlooka!!.
ShellExecute(Handle, 'open','mailto:twó[email protected]' , nil,nil,SW_SHOWNORMAL); ale musisz wpisac ściezkę do programu pocztowego najlepiej Outlooka!!
gdzie musisz wpisać ścieżkę?
A co do tego wielkiego kodu: wystarczyło powiedzieć FAQ :)
Ludzie, nie dokladnie o to mi chodzilo !! Ja mniej więcej wiem jak wysylać pocztę przez NMSMTP, ale tego komponetu nie ma w Delphi7, które używam. Pytanie brzmi : jak przenieść ten komponent z Delphi6 (a nie ma do niego plików pas tylko same dcu). Ew. niech ktoś powie jak wysłać mail z komponentu Indy (bodajże IdSMTP) !!