Paul Ingelbrant wrote:
> Possibly you need breaks? :-)
Good point!
However it's hard for the Delphi guys to ;-)
--
Arno Garrels
>
> switch(RqType)
> {
> case smtpConnect: SMTP->Helo(); break;
> case smtpHelo: SMTP->MailFrom(); break;
> case smtpEhlo: SMTP->Auth(); break;
> case smtpAuth: SMTP->MailFrom(); break;
> case smtpMailFrom: SMTP->RcptTo(); break;
> case smtpRcptTo: SMTP->Data(); break;
> case smtpData: SMTP->Quit(); break;
> }
>
>
> Ole Braad-Sørensen skrev:
>> I know this is a vFAQ, but please read anyway :-)
>>
>> Using Codegear C++2009, I have tried to use the example "Mailsnd".
>>
>> My code:
>>
>> SMTP->Host = Data->TAoplysning->FieldByName("Mailserver")->AsString;
>> SMTP->Port = Data->TAoplysning->FieldByName("Port")->AsInteger;
>> SMTP->SignOn = Data->TAoplysning->FieldByName("Email1")->AsString;
>> SMTP->FromName = Data->TAoplysning->FieldByName("Firma")->AsString;
>> SMTP->HdrFrom = Data->TAoplysning->FieldByName("Email1")->AsString;
>> SMTP->HdrTo = Edit1->Text;
>> SMTP->HdrSubject = Edit3->Text;
>> SMTP->AuthType = smtpAuthNone;
>> SMTP->Username =
>> Data->TAoplysning->FieldByName("Brugernavn")->AsString;
>> SMTP->Password =
>> Data->TAoplysning->FieldByName("MailKodeord")->AsString;
>> SMTP->HdrPriority = smtpPriorityNone; SMTP->ConfirmReceipt = false;
>> SMTP->RcptName->Clear();
>> SMTP->RcptNameAdd(Edit2->Text,Edit3->Text,Edit4->Text);
>> SMTP->MailMessage = Memo1->Lines; SMTP->Connect();
>>
>> And the code for "RequestDone":
>>
>> switch(RqType)
>> {
>> case smtpConnect: SMTP->Helo();
>> case smtpHelo: SMTP->MailFrom();
>> case smtpEhlo: SMTP->Auth();
>> case smtpAuth: SMTP->MailFrom();
>> case smtpMailFrom: SMTP->RcptTo();
>> case smtpRcptTo: SMTP->Data();
>> case smtpData: SMTP->Quit();
>> }
>>
>> When using above code I get the famous error "Component not ready"
>> and the mail-server log show:
>>
>> May 11 07:40:24 apollon sendmail[19691]: n4B5eNZs019691:
>> [192.168.1.1] did not issue MAIL/EXPN/VRFY/ETRN during connection to
>> MTA
>>
>> I know I am missing something, but can't figure out what...
>>
>> Any ideas of what I should look for...?
>>
>> Regards:
>> Ole Braad-Sorensen
>> www.foldrenser.dk
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
