Barry
Thu Mar 17 06:52:01 CST 2005
> This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--B_3193908723_10578321
Content-type: text/plain;
charset="US-ASCII"
Content-transfer-encoding: 7bit
On 16/3/05 12:42 am, in article
REMOVEarkay-4FE234.18423615032005@newssvr30-ext.news.prodigy.com, "aRKay"
<REMOVEarkay@qsl.net> wrote:
> I received a message on 13-Mar-05 from an Outlook user who may have had
> his PC clock hosed. I view my Inbox by date from the most recent at the
> top and the 28-Mar (future) message is always at the top
>
> -----------
> Date: Mon, 28 Mar 2005 10:39:53 -0500
> X-Priority: 3
> X-MSMail-Priority: Normal
> X-Mailer: Microsoft Outlook Express 6.00.2900.2180
> X-MIMEOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
> X-RFC2646: Format=Flowed; Original
> -----------
>
> I tired to use the Mac Entourage 2004 Edit Message command but it will
> not let me change the date. When I try to change the date it deletes
> the message. I opened it as source file but then the Edit Message
> option was not active.
>
> Help...... Can the date on a hosed message be corrected?
>
> aRKay
Use my 'Correct the Date' script, which was written for just this task.
Copy/paste from below, but watch out for false line-wraps:
-- Correct the date v1.0 25th June 2002
-- a script for Microsoft Entourage by Barry Wainwright
-- Resets the date of messages to the date of the first received header
-- useful for messages with badly formatted (or just plain wrong) dates
tell application "Microsoft Entourage"
set theMessages to current messages
if theMessages is {} then
display dialog "No messages selected!" buttons {"Stop"} default
button 1 with icon stop
return -99
end if
repeat with theMess in theMessages
set theHeaders to the headers of theMess
set AppleScript's text item delimiters to {return & space}
set theHeaders to text items of theHeaders
set AppleScript's text item delimiters to {space}
set theHeaders to theHeaders as string
set AppleScript's text item delimiters to {return & tab}
set theHeaders to text items of theHeaders
set AppleScript's text item delimiters to {space}
set theHeaders to theHeaders as string
set theHeaders to the paragraphs of theHeaders
set receivedHeader to ""
repeat with aHeader in theHeaders
if aHeader starts with "Received:" then copy contents of aHeader
to receivedHeader
end repeat
set AppleScript's text item delimiters to {";"}
set theDate to (last text item of receivedHeader)
set time sent of theMess to date theDate
end repeat
end tell
--
Barry Wainwright
Microsoft MVP (see
http://mvp.support.microsoft.com for details)
Seen the All-New Entourage Help Pages? - Check them out:
<
http://www.entourage.mvps.org/>
--B_3193908723_10578321
Content-type: text/html;
charset="US-ASCII"
Content-transfer-encoding: quoted-printable
<HTML>
<HEAD>
<TITLE>Re: How to Correct Date Stamp</TITLE>
</HEAD>
<BODY>
<FONT FACE=3D"Verdana, Helvetica, Arial"><SPAN STYLE=3D'font-size:12.0px'>On 16=
/3/05 12:42 am, in article REMOVEarkay-4FE234.18423615032005@newssvr30-ext.n=
ews.prodigy.com, "aRKay" <REMOVEarkay@qsl.net> wrote:<BR>
<BR>
<FONT COLOR=3D"#0000FF">> I received a message on 13-Mar-05 from an Outloo=
k user who may have had <BR>
> his PC clock hosed. I view my Inbox by date from the most recent=
at the <BR>
> top and the 28-Mar (future) message is always at the top<BR>
> <BR>
> -----------<BR>
> Date: Mon, 28 Mar 2005 10:39:53 -0500<BR>
> X-Priority: 3<BR>
> X-MSMail-Priority: Normal<BR>
> X-Mailer: Microsoft Outlook Express 6.00.2900.2180<BR>
> X-MIMEOLE: Produced By Microsoft MimeOLE V6.00.2900.2180<BR>
> X-RFC2646: Format=3DFlowed; Original<BR>
> -----------<BR>
> <BR>
> I tired to use the Mac Entourage 2004 Edit Message command but it will=
<BR>
> not let me change the date. When I try to change the date it del=
etes <BR>
> the message. I opened it as source file but then the Edit Messag=
e <BR>
> option was not active.<BR>
> <BR>
> Help...... Can the date on a hosed message be corrected?<BR>
> <BR>
> aRKay<BR>
</FONT><BR>
Use my 'Correct the Date' script, which was written for just this task. Cop=
y/paste from below, but watch out for false line-wraps:<BR>
<BR>
<BR>
<BR>
-- Correct the date v1.0 25th June 2002<BR>
-- a script for Microsoft Entourage by Barry Wainwright<BR>
-- Resets the date of messages to the date of the first received header<BR>
-- useful for messages with badly formatted (or just plain wrong) dates<BR>
<BR>
tell application "Microsoft Entourage"<BR>
set theMessages to current messages<BR>
if theMessages is {} then<BR>
display dialog "No mes=
sages selected!" buttons {"Stop"} default button 1 with icon =
stop<BR>
return -99<BR>
end if<BR>
<BR>
repeat with theMess in theMessages<BR>
set theHeaders to the heade=
rs of theMess<BR>
set AppleScript's text item=
delimiters to {return & space}<BR>
set theHeaders to text item=
s of theHeaders<BR>
set AppleScript's text item=
delimiters to {space}<BR>
set theHeaders to theHeader=
s as string<BR>
set AppleScript's text item=
delimiters to {return & tab}<BR>
set theHeaders to text item=
s of theHeaders<BR>
set AppleScript's text item=
delimiters to {space}<BR>
set theHeaders to theHeader=
s as string<BR>
set theHeaders to the parag=
raphs of theHeaders<BR>
set receivedHeader to "=
;"<BR>
repeat with aHeader in theH=
eaders<BR>
if =
aHeader starts with "Received:" then copy contents of aHeader to r=
eceivedHeader<BR>
end repeat<BR>
set AppleScript's text item=
delimiters to {";"}<BR>
set theDate to (last text i=
tem of receivedHeader)<BR>
set time sent of theMess to=
date theDate<BR>
end repeat<BR>
end tell<BR>
-- <BR>
Barry Wainwright<BR>
Microsoft MVP (see <a href=3D"
http://mvp.support.microsoft.com">http://mvp.su=
pport.microsoft.com</a> for details)<BR>
Seen the All-New Entourage Help Pages? - Check them out:<BR>
<
http://www.entourage.mv=
ps.org/><BR>
</SPAN></FONT>
</BODY>
</HTML>
--B_3193908723_10578321--