Mail from Syntax error in Address

Giganews Newsgroups
Subject: Mail from Syntax error in Address
Posted by:  slappyhack (slappyha…@gmail.com)
Date: Wed, 26 Jul 2006

When trying to stream the following message I get the error "Mail from Syntax error in Address".  Do mind looking this ove and letting me know what else you may need to help me out?  It works fine with my exchange client.

Received: from x.x.com ([x.x.x.x]) by x.x.x with SMTP (Microsoft Exchange Internet Mail Service Version 5.5.2658.3)
id KVL3X19W; Wed, 26 Jul 2006 10:06:27 -0400
Received: From x.com ([x.x.x.x]) by x.x.com (WebShield SMTP v4.5 MR1a P0803.345);
id 1153922621347; Wed, 26 Jul 2006 10:03:41 -0400
Received: from source ([x.x.x.x]) by x.x.com ([x.x.x.10]) with SMTP;
Wed, 26 Jul 2006 07:02:21 PDT
Received: from x.x.x.com ([x.x.x.18]) by x.x.x.com with Microsoft SMTPSVC(6.0.3790.1830);
  Wed, 26 Jul 2006 16:08:01 +0200
Received: from x.x.x.com(x.x.x.18) by x.x.x.com via smtp
  id 100e_44b2707c_1caf_11db_86bb_0002b3e7a2fd;
Wed, 26 Jul 2006 16:01:43 +0200
X-MimeOLE: Produced By Microsoft Exchange V6.5
Content-class: urn:content-classes:message
MIME-Version: 1.0
Content-Type: multipart/alternative; boundary="6AHNUGhxrRbFOHOaE6Hr1g11ooPlVmg=_2"
Subject: Avis E26796423/EU315278/RES NO. 0142-2454-GB-5
Date: Wed, 26 Jul 2006 09:59:33 +0000
Message-ID: <BABB7BD1B52ADB4C9104E52D80CC4A21FD26…@EHUBSCMS2.x.x.com>
X-MS-Has-Attach:
X-MS-TNEF-Correlator:
Thread-Topic: Avis E26796423/EU315278/RES NO. 0142-2454-GB-5
Thread-Index: AcawuovZvz8c6w1HS+mtDv8m5H3TSAAAKUgQ
From: =?ISO-8859-1?Q?Kascs=E1k?= <Kascs?k>, =?ISO-8859-1?Q?Tam=E1s?=
<…@x.com>
To: …@x.com
Return-Path: …@x.com
X-OriginalArrivalTime: 26 Jul 2006 14:08:01.0093 (UTC) FILETIME=[E7806750:01C6B0BC]
X-pstn-levels:    (S:99.90000/99.90000 R:95.9108 P:95.9108 M:96.8350 C:98.4741 )
X-pstn-settings: 3 (1.0000:1.0000) s gt3 gt2 gt1 r p m c
X-pstn-addresses: from <…@x.com> [db-null]
In-Reply-To:
<BABB7BD1B52ADB4C9104E52D80CC4A21FD26…@EHUBSCMS2.x.x.com>

This is a multi-part message in MIME format.

--6AHNUGhxrRbFOHOaE6Hr1g11ooPlVmg=_2
Content-Type: text/plain ; charset="utf-8"
Content-Transfer-Encoding: base64
X-NAIMIME-Disclaimer=1
X-NAIMIME-Modified=1

deleted stuff

--6AHNUGhxrRbFOHOaE6Hr1g11ooPlVmg=_2
Content-Type: text/HTML ; charset="utf-8"
Content-Transfer-Encoding: base64
X-NAIMIME-Disclaimer=1
X-NAIMIME-Modified=1

Deleted stuff

--6AHNUGhxrRbFOHOaE6Hr1g11ooPlVmg=_2--

the code:

for x := 0 to Pred(themsg.MessageParts.Count) do
      begin

          if themsg.MessageParts.Items[x] is TIdAttachment then
          begin
            listbox1.AddItem(TIdAttachment(themsg.MessageParts.Items[x]).Filename,nil);
                //strError := TIdAttachment(fMsg.MessageParts.Items[x]).Filename;
          end;

            //grab the body of the message

          if themsg.MessageParts.Items[x] is TIdText then
          begin

          BodyS.AddStrings(TIdText(themsg.MessageParts.Items[x]).Body);
          //using base64 to stop the .. issue where a font that is 10.0 pt will become 100pt
          TIdText(Themsg.MessageParts[x]).ContentTransfer := 'base64';

        end;
      end;

      //showmessage(inttostr(themsg.Body.Count));

        if trim(BodyS.Text) = '' then
        begin
          //for x := 0 to pred(themsg.Body.Count) do
          //begin
          BodyS.Text := themsg.Body.Text;
          Themsg.ContentTransferEncoding := 'base64';

          //strError := themsg.Body.Text;
        // end;
        end;
        //showmessage(strError);
      ///
      RichEdit1.Clear;

      //RichEdit1.Text := themsg.from.Text;

      if trim(BodyS.Text) = '' then
      begin
        RichEdit1.Text := BodyS.Text;
      end
      else
      begin
        RichEdit1.Text := BodyS.Text;
      end;

      //Themsg.From.Text := trim(fstrReply); //'IMC_Rep…@autoeurope.com'; //trim(strFrom);
      buttonSelected := MessageDlg('Do you want to send a copy of the email to your mailbox?', mtConfirmation, mbOKCancel, 0);
      if buttonSelected = mrOK then
      begin
          Themsg.CCList.Clear;
          Themsg.recipients.EMailAddresses := trim(fstrEmail);
          TheSMTP.Host := strHost;
          TheSMTP.Connect;
  breaks here--->      TheSMTP.Send(theMsg);
          showmessage('The message has been sent');
      end;

Replies