Re: [twsocket] Message-Id is not valid, according to RFC 2822
Hello Piotr,
Is there something I can do to pacify X-Spam?
Remove that space (the one between Roland and Couvela).
Shall we modify function GenerateMessageID? Something like:
{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
function GenerateMessageID : String; {AG}
function FixHostname(const S: String): String;
var
I, J : Integer;
begin
I := 1;
J := 1;
SetLength(Result, Length(S));
while I = Length(S) do begin
if (S[I] in ['0'..'9', 'A'..'Z', 'a'..'z', '-', '.']) then begin
Result[J] := S[I];
Inc(J);
end;
Inc(I);
end;
SetLength(Result, J - 1);
while (Length(Result) 0) and not (Result[1] in ['A'..'Z', 'a'..'z'])
do
Delete(Result, 1, 1);
while (Length(Result) 0) and (Result[Length(Result)] in ['-', '.']) do
SetLength(Result, Length(Result) - 1);
end;
begin
Result := FormatDateTime('mmddhhnnsszzz', Now + TimeZoneBiasDT) + '.' +
IntToHex(Random(32767), 4) + IntToHex(Random(32767), 4) +
IntToHex(Random(32767), 4) + IntToHex(Random(32767), 4) +
'@' + FixHostname(LocalHostName);
end;
{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
---
Arno Garrels [TeamICS]
http://www.overbyte.be/eng/overbyte/teamics.html
--
Piotr Dalek
[EMAIL PROTECTED]
--
PS. Fajny portal... http://link.interia.pl/f196a
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
Re: [twsocket] Message-Id is not valid, according to RFC 2822
Hello! Is there something I can do to pacify X-Spam? Remove that space (the one between Roland and Couvela). Shall we modify function GenerateMessageID? Something like: Do whatever you please... -- Piotr Dalek [EMAIL PROTECTED] -- PS. Fajny portal... http://link.interia.pl/f196a -- To unsubscribe or change your settings for TWSocket mailing list please goto http://www.elists.org/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
[twsocket] Message-Id is not valid, according to RFC 2822
BTW: You can always search the list archive at: http://www.elists.org/pipermail/twsocket Actually I did try this first, but got Page not available Thank you, Arno, for your help, project now working, but on sending myself a message I get back X-Spam-Checker-Version: SpamAssassin 3.1.3 (2006-06-01) on as002.apm-internet.net X-Spam-Report: * 1.7 INVALID_MSGID Message-Id is not valid, according to RFC 2822 - - Received: from unknown (HELO Kaythorn) (62.255.116.96) by smtp001.apm-internet.net with SMTP; 17 Jul 2006 13:19:34 - Reply-To: [EMAIL PROTECTED] Return-Path: [EMAIL PROTECTED] From: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Subject: Confirmation of Sales Enquiries emails Sender: [EMAIL PROTECTED] Mime-Version: 1.0 Content-Type: text/html; charset=iso-8859-1 Date: Mon, 17 Jul 2006 14:29:28 +0100 Message-ID: [EMAIL PROTECTED] Couvela X-Mailer: ICS SMTP Component V2.50 Is there something I can do to pacify X-Spam? -- To unsubscribe or change your settings for TWSocket mailing list please goto http://www.elists.org/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
Re: [twsocket] Message-Id is not valid, according to RFC 2822
kaythorn wrote:
BTW: You can always search the list archive at:
http://www.elists.org/pipermail/twsocket
Actually I did try this first, but got Page not available
Possibly it was temporarily not available, usually it works.
Thank you, Arno, for your help, project now working, but on sending
myself a message I get back
X-Spam-Checker-Version: SpamAssassin 3.1.3 (2006-06-01) on
as002.apm-internet.net
X-Spam-Report:
* 1.7 INVALID_MSGID Message-Id is not valid, according to RFC 2822
A message-id according to RFC 2822 is simply a unique id. I wonder why
SpamAssassin recognize it as invalid. Maybe because the local hostname
contains a space?
SmtpProt.pas:
function GenerateMessageID : String; {AG}
begin
Result := FormatDateTime('mmddhhnnsszzz', Now + TimeZoneBiasDT) + '.' +
IntToHex(Random(32767), 4) + IntToHex(Random(32767), 4) +
IntToHex(Random(32767), 4) + IntToHex(Random(32767), 4) +
'@' + LocalHostName;
end;
LocalHostName() returns the Windows computer name if a DNS name is unavailable.
Also note that Helo/Ehlo uses LocalHostName() as well in case of property
SignOn is blank, according to the RFC the Helo-string may not contain spaces.
---
Arno Garrels [TeamICS]
http://www.overbyte.be/eng/overbyte/teamics.html
-
Received: from unknown (HELO Kaythorn) (62.255.116.96)
by smtp001.apm-internet.net with SMTP; 17 Jul 2006 13:19:34 -
Reply-To: [EMAIL PROTECTED]
Return-Path: [EMAIL PROTECTED]
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Subject: Confirmation of Sales Enquiries emails
Sender: [EMAIL PROTECTED]
Mime-Version: 1.0
Content-Type: text/html; charset=iso-8859-1
Date: Mon, 17 Jul 2006 14:29:28 +0100
Message-ID: [EMAIL PROTECTED] Couvela
X-Mailer: ICS SMTP Component V2.50
Is there something I can do to pacify X-Spam?
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
Re: [twsocket] Message-Id is not valid, according to RFC 2822
Hello! Thank you, Arno, for your help, project now working, but on sending myself a message I get back X-Spam-Checker-Version: SpamAssassin 3.1.3 (2006-06-01) on as002.apm-internet.net X-Spam-Report: * 1.7 INVALID_MSGID Message-Id is not valid, according to RFC 2822 [..] Message-ID: [EMAIL PROTECTED] Couvela [..] Is there something I can do to pacify X-Spam? Remove that space (the one between Roland and Couvela). -- Piotr Dalek [EMAIL PROTECTED] -- PS. Fajny portal... http://link.interia.pl/f196a -- To unsubscribe or change your settings for TWSocket mailing list please goto http://www.elists.org/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
