Some time ago, one of the BBS members kindly provided me with the following script, as attached below, to produce the following text:
DE VJNK NR 08130/04
R 091019Z MAY08
FM KENDAL JN
TO
BT
UNCLAS
BT
NNNN
Problem: I need “MAY08” to now read “MAY 2008”.
Any assistance would be appreciated.
Regards
Jeffrey
This is the current script:
property lastDate : “”
property lastMsgNo : 0
set jDay to do shell script “date +%j”
set jYear to do shell script “date +%y”
set theSubject to jYear & jDay & “/”
set theYEar to do shell script “date +%y” – two digit year
set theMonth to do shell script “date +%m” – two digit month
set theMonth2 to (do shell script “date +%B” & " | tr "[:lower:]" "[:upper:]"")
set theDay to do shell script “date +%d” – two digit day of month
set theHour to do shell script “date +%H” – two digit hour (24 hour clock)
set theMinute to do shell script “date +%M” – two digit minute
set theSecond to do shell script “date +%S” – two digit second
– convert the month2 name to a 3 char name
set theMonth2 to characters 1 thru 3 of theMonth2 as string
set currentDate to jYear & jDay – get current date
if lastDate = “” then – i.e. first run of script
set lastDate to jYear & jDay
end if
if lastDate = currentDate then
set lastMsgNo to lastMsgNo + 1
else
set lastMsgNo to 1
set lastDate to currentDate
end if
set msgNo to text -2 thru -1 of ((“00” & lastMsgNo) as string) – make 2 digit number
set theSubject to currentDate & “/” & msgNo
set theBody to "DE VJNK NR " & jYear & jDay & “/” & msgNo & return ¬
& "R " & theDay & theHour & theMinute & "Z " & theMonth2 & theYEar & return ¬
& “FM KENDAL JN” & return ¬
& “TO” & return ¬
& “BT” & return ¬
& “UNCLAS” & return & return ¬
& “BT” & return & return & return & return & return & return & return & return ¬
& “NNNN”
tell application “Mail”
activate
set theNewMessage to make new outgoing message with properties {subject:theSubject, content:theBody}
tell theNewMessage to set visible to true
– Default is false. Determines whether the compose window will
– show on the screen or whether it will happen in the background.
end tell
