Jak wysłać e-mail przy użyciu komponentu TSMTP ?
Do formularza należy dodać 5 kontrolki TEdit i nadać im następujące nazwy:
- UserEdit (Login wysyłającego), HostEdit (Host serwera pocztowego), FromEdit ( od kogo ?? e-mail ), ToEdit ( do kogo ?? e-mail) oraz SubjectEdit ( Temat listu ).
Należy także umieścić komponent TMemo i nazwać go: MessageMemo ( Treść listu )
- UserEdit (Login wysyłającego), HostEdit (Host serwera pocztowego), FromEdit ( od kogo ?? e-mail ), ToEdit ( do kogo ?? e-mail) oraz SubjectEdit ( Temat listu ).
Należy także umieścić komponent TMemo i nazwać go: MessageMemo ( Treść listu )
if(NMSMTP1->Connected) NMSMTP1->Disconnect();
// jeżeli istnieje połączenie z jakimś serwerem zrywamy je
NMSMTP1->UserID = UserEdit->Text;
// ustawiamy login
NMSMTP1->Host = HostEdit->Text;
// host serwera...
NMSMTP1->Connect(); // łączymy się z serwerem...
NMSMTP1->PostMessage->FromAddress = FromEdit->Text;
// ustawiamy e-mail nadawcy...
NMSMTP1->PostMessage->ReplyTo = FromEdit->Text;
// oraz adres zwrotny
NMSMTP1->PostMessage->ToAddress->CommaText = ToEdit->Text;
// podajemy e-mail odbiorcy...
NMSMTP1->PostMessage->Body->Assign(MessageMemo->Lines);
// treść listu...
NMSMTP1->PostMessage->Subject = SubjectEdit->Text;
// oraz temat...
NMSMTP1->SendMail(); // no i wreszcie wysyłamy !
// jeżeli istnieje połączenie z jakimś serwerem zrywamy je
NMSMTP1->UserID = UserEdit->Text;
// ustawiamy login
NMSMTP1->Host = HostEdit->Text;
// host serwera...
NMSMTP1->Connect(); // łączymy się z serwerem...
NMSMTP1->PostMessage->FromAddress = FromEdit->Text;
// ustawiamy e-mail nadawcy...
NMSMTP1->PostMessage->ReplyTo = FromEdit->Text;
// oraz adres zwrotny
NMSMTP1->PostMessage->ToAddress->CommaText = ToEdit->Text;
// podajemy e-mail odbiorcy...
NMSMTP1->PostMessage->Body->Assign(MessageMemo->Lines);
// treść listu...
NMSMTP1->PostMessage->Subject = SubjectEdit->Text;
// oraz temat...
NMSMTP1->SendMail(); // no i wreszcie wysyłamy !
Materiał dodany przez użytkownika: alphan