Re: [twsocket] SMTPCli: Use with non-local site to send emails?

[Raymond Kennington]

Hi Angus.

>
> The component will use any SMTP server you specify, although you'll
> usually need authentication for any SMTP other than that of your ISP.
>
> Angus

I set the Host to be smtp.xyz.com, AuthType: SMTPAuthLogin,  then call 
Connect().

The password is set later, which is wrong, but when I set it before Connect(), 
it would not connect.

Below is the skeleton of my code.

How and where must I include authentication, using Auth(), I presume?

Thanks.
Raymond

procedure TSendEmailForm.SendEmailButtonClick(Sender: TObject);

  procedure DefineConnectionFields();
  begin
    with SMTPClient do
    begin
      Host := 'smtp.xyz.com';
      Port := '587';
    end;
  end;

  procedure SetHdrDetails();
  begin
    with TSMTPCli(Sender) do
    begin
      HdrFrom  := FEmailFrom;
      Password := FPassword;
    end;
  end;

begin
  DefineConnectionFields();

  SetHdrDetails();

  SMTPClient.Connect();
end;

procedure TSendEmailForm.SMTPClientRequestDone(Sender: TObject; RqType: 
TSmtpRequest; ErrorCode: Word);

  procedure SetRecipientAndMessage();
  begin
    with TSMTPCli(Sender) do
    begin
      HdrTo      := CustomerName + ' <' + CustomerEmail + '>';
      HdrCC      := FEmailCC;
      HdrSubject := FSubject;

      with MailMessage do
      begin
        Clear();

        AddStrings(MessageMemo.Lines);
      end;

      EMailFiles := nil;
    end; {with}
  end;

begin
  if Error = 0 then
  begin
    case RqType of

      smtpConnect:
      begin
        with TSMTPCli(Sender) do
        begin
          SignOn := 'Raymond';

          Helo();
        end;
      end;

      smtpHelo:
      begin
        with TSMTPCli(Sender) do
        begin
          FromName := FEmailFrom;

          MailFrom();
        end;
      end;

      smtpMailFrom:
      begin
        if RecipientIndex < RecipientsRE.Lines.Count then
        begin
          with TSMTPCli(Sender) do
          begin
            with RcptName do
            begin
              Clear();

              Add(Trim(Copy(RecipientsRE.Lines[RecipientIndex], 36, 
Length(RecipientsRE.Lines[RecipientIndex]))));

              Inc(RecipientIndex);
            end;

            RcptTo();
          end;
        end
        else // no more recipients
        begin
          TSMTPCli(Sender).Quit();
        end;
      end;

      smtpRcptTo:
      begin
        SetRecipientAndMessage();

        TSMTPCli(Sender).Data();
      end;

      smtpData:
      begin
        TSMTPCli(Sender).MailFrom();
      end;

      smtpQuit:
      begin
{$IFDEF TESTING}
        MessageDlg('Message sent to customer(s).', mtInformation, [mbOK], 0);
{$ENDIF}
      end;
    end; {case}
  end
  else // Error <> 0
  begin
    MessageDlg(  'Request: ' + #9 + IntToStr(Ord(RqType)) + CL2

                + 'Error:  ' + #9 + WSocketErrorDesc(Error),
                mtError, [mbOK], 0);
  end;
end;

--
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