--Das aktuelle Tagesdatum erstellen 
set {year:y, month:m, day:d} to (current date) 
set theDate to d & "-" & m & "-" & y as string 
--Den Speicherort für Mailanhänge 
set theOutputFolder to "Macintosh HD:Users:myUser:Desktop:mailAttache:" 
set folderCheck to theOutputFolder & theDate 
tell application "Finder" 
	-- prüfen, ob für den heutigen Tag schon ein Ordner existiert 
	if exists folderCheck then 
		-- Bedingung "Folder existiert" 
		-- Email Eingang auf neue Mails checken, die Status ungelesen haben. 
		-- Mailanhänge werden in den heutigen Ordner kopiert 
		tell application "Mail" 
			check for new mail 
			set unreadMessages to (messages of inbox whose read status is false) 
			set newOrder to number of items in unreadMessages			 
			if newOrder > 0 then 
				repeat with eachMessage in unreadMessages 
					try 
						repeat with a in (every mail attachment of eachMessage) 
							set documentName to name of a 
							if (documentName contains ".pdf") then								 
								set savePath to folderCheck & ":" & documentName 
								save a in file (savePath) 
							end if 
						end repeat 
					end try 
					set read status of eachMessage to true 
				end repeat 
			end if 
		end tell 
	else 
		-- Bedingung Folder existiert nicht. Neuer Ordner mit Tagesdatum wird angelegt. 
		make new folder at theOutputFolder with properties {name:theDate} 
		set newFolder to theOutputFolder & theDate & ":" 
		tell application "Mail" 
			check for new mail 
			set unreadMessages to (messages of inbox whose read status is false) 
			set newOrder to number of items in unreadMessages			 
			if newOrder > 0 then 
				repeat with eachMessage in unreadMessages 
					try 
						repeat with a in (every mail attachment of eachMessage) 
							set documentName to name of a 
							if (documentName contains ".pdf") then								 
								set savePath to newFolder & documentName 
								save a in file (savePath) 
							end if 
						end repeat 
					end try 
					set read status of eachMessage to true 
				end repeat 
			end if 
		end tell 
	end if 
end tell 

-- Print: commands must likly be changed for the used computer 
do shell script "lp -d Brother_MFC_J5910DW -o PageSize=A4 -o fit-to-page -o BRMonoColor=Mono " & quoted form of POSIX path of (currentFolder2Store & current_a_name as rich text)