Hello everyone
Years ago, one of the members kindly provided me with a script that produce the following in the body of a Mail message:
DE VJNK NR 08130/04
R 091019Z MAY08
FM KENDAL JN
TO
BT
UNCLAS
BT
NNNN
Unfortunately the attached script no longer works. Would it be possible for anyone to “tweet” the script to get it to work. I am using Mac Catalina v10.15.7.
Thanks in advance:
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