NMSMTP z Delphi6 do 7

2003-04-30 13:19
0

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 ??


80% problemów które pojawiają sie na forum w postach rozwiązaliby samodzielnie ich autorzy, gdyby nie mieli internetu...

Pozostało 580 znaków

2003-04-30 13:44
0

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!!.


Pozostało 580 znaków

2003-04-30 15:30
0

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 :)

Pozostało 580 znaków

2003-05-05 14:57
0

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) !!


80% problemów które pojawiają sie na forum w postach rozwiązaliby samodzielnie ich autorzy, gdyby nie mieli internetu...

Pozostało 580 znaków

Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0