I am running a fax server at work. What i am trying to do is to get have an email with the pdf fax as an attachment added to the email and emailed the the person the fax belongs to. So far everthing is working exept that the pdf that is added to the folder is not added as an attachment to the email…can anyone help?
on adding folder items to this_folder after receiving fax
tell application “Mail”
set newMessage to make new outgoing message with properties {subject:“A new Fax for you has arrived!!!”, content:"This fax will remain in your folder on the fax server for 30 Days the will be delete from the fax server. Please print and/or put in the appropriate place.
tell newMessage
make new to recipient at end of to recipients with properties {name:“Joseph”, address:(some item of {“name@domaincom”})}
end tell
set visible of newMessage to true
send newMessage
end tell
end adding folder items to
here is my revised code but still will not send the file attachment
tell application "Mail"
set theAttachment to "Trottski:Users:trottski:Desktop:Untitled.txt" as alias
set newMessage to make new outgoing message with properties {subject:"A new Fax for you has arrived!!!", content:"This fax will remain in your folder on the fax server for 30 Days the will be delete from the fax server. Please print and/or put in the appropriate place.
To review all your faxes go to
Go--> Connect to Server.
Enter address afp://192.168.1.152.
Sign in as Guest. Choose the Fax user work point.
Open the Individual Fax Folder. Go to your name and all your faxes will be shown.
**** Remember your faxes will be stored on this machine please move your fax pdf to where it belongs on the server or on your machine. ***
Tip: Use pdf compress to make these pdf's smaller and more managable.", file name:"Trottski:Users:trottski:Desktop:Untitled.txt"}
tell newMessage
make new to recipient at end of to recipients with properties {name:"Joseph", address:(some item of {"joseph@vmwp.com"})}
end tell
tell content of newMessage
set the size to 12
set the font to "Gill Sans"
set the color of every paragraph to {65535, 0, 0}
end tell
set visible of newMessage to true
send newMessage
end tell
According to one of the scripts supplied by Apple (Create New Message.scpt), this might work.
set theAttachment to "Trottski:Users:trottski:Desktop:Untitled.txt" as alias
tell application "Mail"
set newMessage to make new outgoing message with properties {subject:"A new Fax for you has arrived!!!", content:"This fax will remain in your folder on the fax server for 30 Days the will be delete from the fax server.? Please print and/or put in the appropriate place.
To review all your faxes go to
Go--> Connect to Server.?
Enter address afp://192.168.1.152.
Sign in as Guest.? Choose the Fax user work point.
Open the Individual Fax Folder.? Go to your name and all your faxes will be shown.
**** Remember your faxes will be stored on this machine please move your fax pdf to where it belongs on the server or on your machine. ***
Tip:? Use pdf compress to make these pdf's smaller and more managable."}
tell newMessage
make new to recipient at end of to recipients with properties {name:"Joseph", address:(some item of {"joseph@vmwp.com"})}
tell content
set the size to 12
set the font to "Gill Sans"
set the color of every paragraph to {65535, 0, 0}
-- Position must be specified for attachments
make new attachment with properties {file name:theAttachment} at after the last paragraph
end tell
end tell
set visible of newMessage to true
send newMessage
end tell
this is the script i am working with now
It all works except it will not attacht the file i droip into the folder anyone have any ideas on how to get this to work.
on adding folder items to this_folder after receiving these_items
set theName to "Joseph"
set theAddress to "joseph@vmwp.com"
set theSubject to "A new Fax for you has arrived!!!"
set theBody to "This fax will remain in your folder on the fax server for 30 Days the will be delete from the fax server. Please print and/or put in the appropriate place.
To review all your faxes go to
Go--> Connect to Server.
Enter address afp://192.168.1.152/users/share/faxes//individual fax folders/joseph.
Sign in as Guest. Choose the Fax user work point.
Open the Individual Fax Folder. Go to your name and all your faxes will be shown.
**** Remember your faxes will be stored on this machine please move your fax pdf to where it belongs on the server or on your machine. ***
Tip: Use pdf compress to make these pdf's smaller and more managable."
set theAttachment to these_items as alias
tell application "Mail"
set newMessage to make new outgoing message with properties {subject:theSubject, content:theBody & return & return}
set visible of newMessage to true
tell newMessage
make new to recipient at end of to recipients with properties {name:theName, address:theAddress}
tell content
make attachment with properties {file name:theAttachment} at after the last paragraph
end tell
end tell
send newMessage
end tell
end adding folder items to
on adding folder items to this_folder after receiving these_items
set theName to "Joseph"
set theAddress to "joseph@vmwp.com"
set theSubject to "A new Fax for you has arrived!!!"
set theBody to "This fax will remain in your folder on the fax server for 30 Days the will be delete from the fax server.? Please print and/or put in the appropriate place.
To review all your faxes go to
Go--> Connect to Server.?
Enter address afp://192.168.1.152/users/share/faxes//individual fax folders/joseph.
Sign in as Guest.? Choose the Fax user work point.
Open the Individual Fax Folder.? Go to your name and all your faxes will be shown.
**** Remember your faxes will be stored on this machine please move your fax pdf to where it belongs on the server or on your machine. ***
Tip:? Use pdf compress to make these pdf's smaller and more managable."
tell application "Mail"
set newMessage to make new outgoing message with properties {subject:theSubject, content:theBody & return & return}
set visible of newMessage to true
tell newMessage
make new to recipient at end of to recipients with properties {name:theName, address:theAddress}
tell content
repeat with item_ in these_items
make attachment with properties {file name:item_} at after the last paragraph
end repeat
end tell
end tell
send newMessage
end tell
end adding folder items to