Wit@m!!
Mam takie pyatnie:
Jak wysłać, po naciśnięciu przycisku jakiś plik na jakiś mail ?
Chodzi o to, że mam takiego nie "kumatego" kolege, co nie potrafi sobie pliku znaleŹć i mi wyslać, więc chciałem zrobić program, który to zrobi za niego bez zbędnych pytań.
TO NIE ZADEN WIRUS, CZY TROJAN !!!!
Find+F1 ,zapis sciezki ,Shell Execute domyślny klient pocztowy..
z patrametrami
Z reszta, skoro kolega potrafi włączyć komputer to jak mu dasz showmessage z podaną scieżka, to sobie znajdzie.. :-8
Nawet lepiej jak twój kolega zobaczy że program działa bez złych intencji. zobaczy okienko, potwierdzi operacje..pelna kulturka
Hmmm...
na razie wiem tylko tyle:
Find+F1 ,zapis sciezki ,ShellExecute( GetDesktopWindow, 'open', 'mailto:[email protected]?subject=TEMAT&body=TRESC', NIL, NIL, SW_SHOWNORMAL);
Może, ktoś wie jak zrobić całość, ale tak żeby wysylalo w tle, a nie tam żeby wyskakiwało okienko od progsa pocztowego. (ktoś napisał, że jest urodzaj na lolki - to prawda)
<font color="blue">
[dopisane]</span>
On, ma od wczoraj kompa (wow) i już na necie siedzi, a nic prawie nie umie. A na infe chodzi...
A niemógłbyś po prostu wykorzystać NMSMTP z FastNET albo Smtp z Indy? Przecież tak będzie najprościej (to jest w FAQ)!
np.
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 := 'Plik od kumpla'; // temat
NMSMTP1.PostMessage.ToAddress.Add('[email protected]'); // na jaki adres wysłać
NMSMTP1.PostMessage.Body.Add('Jest sobie tresc listu'); // treść maila
NMSMTP1.PostMessage.Attachments.Add('ścieżka pliku') //i tu najważniejsze
NMSMTP1.SendMail; // wysyła
NMSMTP1.Disconnect; // rozłącza
end;