Possibly you need breaks? :-)
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
