Ĺadny brzuch
Chciałbym wystać prostego maila z kilkoma załącznikami. Jak mam to zrobić? Szukałem na forum i nie było poprawnego kodu (tzn. albo wyświetlało, że nie może wysłać wiadomości, albo coś innego). Chodzi, że działało na wp, onet czy (chyba najważniejsze) o2. Jak mam to zrobić?
Ps: Prosze nie usuwać tematu, bo wiem, że są tego typu tematy, ale nie znalazłem działającego kodu.
a sprawdzałeś w Ekspercie? wiem, że był tam klient do poczty, ale nie pamiętam numeru :P
Kiedyś to napisałem: http://dj-prog.webpa.../mail_by_me.htm
A co do załączników, to jest kod na 4p, który chodzi, sam sprawdzałem :P
a sprawdzałeś w Ekspercie? wiem, że był tam klient do poczty, ale nie pamiętam numeru :P
3/2004
Na formę dajesz TIdMessage (MessageSend) i TIdSMTP (SMTP)
procedure Tform1.bWyslijClick(Sender: TObject); var I: integer; begin MessageSend.Body.Append('tresc maila'); MessageSend.From.Name := 'imie od kogo'; MessageSend.From.Address := 'adres od kogo'; MessageSend.Recipients.EMailAddresses := 'Odbiorca'; MessageSend.Subject := 'temat'; for I := 0 to listbox1.Items.Count -1 do //tym sie rozni od 4p. Obsluga //wielu załaczkow begin try TidAttachmet.Create( MessageSend.MessageParts, listbox1.Items[i]); except on Exception do end; end; { UserName bądź UserId - to jest zeleżne od wersji Indy. ja pisałem na Indy 8 } SMTP.UserName := 'nazwa użytkownika serwera SMTP'; SMTP.Password := 'hasło'; SMTP.Host := 'adres serwera SMTP'; SMTP.AuthenticationType:=atLogin; // autoryzacja SMTP SMTP.Connect; try SMTP.Send(MessageSend); //wyślij finally SMTP.Disconnect; end; end;
!!!ŹRÓDŁO!!!
Ja tylko przerobiłem na obsłgę wielu załączników.
Listbox zwiera oczywiście listę plików :)
Tak poza tematem, to ostatnio zasypujesz forum pytaniami, ktorych rozwiazania albo sa w demach albo mozna wyguglac w kilka sekund/minut. Troche samodzielnosci, tak to sie nigdy niczego nie nauczysz...
Użytkownik Kajetanek edytował ten post 09 wrzesień 2006, 09:20
Dziękuję za Wszystkie odpowiedzi. Jeszcze raz dzięki!
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Ps: Prosze nie usuwać tematu, bo wiem, że są tego typu tematy, ale nie znalazłem działającego kodu.
a sprawdzałeś w Ekspercie? wiem, że był tam klient do poczty, ale nie pamiętam numeru :P
Kiedyś to napisałem: http://dj-prog.webpa.../mail_by_me.htm
A co do załączników, to jest kod na 4p, który chodzi, sam sprawdzałem :P
a sprawdzałeś w Ekspercie? wiem, że był tam klient do poczty, ale nie pamiętam numeru :P
3/2004
Na formę dajesz TIdMessage (MessageSend) i TIdSMTP (SMTP)
procedure Tform1.bWyslijClick(Sender: TObject); var I: integer; begin MessageSend.Body.Append('tresc maila'); MessageSend.From.Name := 'imie od kogo'; MessageSend.From.Address := 'adres od kogo'; MessageSend.Recipients.EMailAddresses := 'Odbiorca'; MessageSend.Subject := 'temat'; for I := 0 to listbox1.Items.Count -1 do //tym sie rozni od 4p. Obsluga //wielu załaczkow begin try TidAttachmet.Create( MessageSend.MessageParts, listbox1.Items[i]); except on Exception do end; end; { UserName bądź UserId - to jest zeleżne od wersji Indy. ja pisałem na Indy 8 } SMTP.UserName := 'nazwa użytkownika serwera SMTP'; SMTP.Password := 'hasło'; SMTP.Host := 'adres serwera SMTP'; SMTP.AuthenticationType:=atLogin; // autoryzacja SMTP SMTP.Connect; try SMTP.Send(MessageSend); //wyślij finally SMTP.Disconnect; end; end;
!!!ŹRÓDŁO!!!
Ja tylko przerobiłem na obsłgę wielu załączników.
Listbox zwiera oczywiście listę plików :)
Tak poza tematem, to ostatnio zasypujesz forum pytaniami, ktorych rozwiazania albo sa w demach albo mozna wyguglac w kilka sekund/minut. Troche samodzielnosci, tak to sie nigdy niczego nie nauczysz...
Użytkownik Kajetanek edytował ten post 09 wrzesień 2006, 09:20
Dziękuję za Wszystkie odpowiedzi. Jeszcze raz dzięki!