on adding folder items to thisFolder after receiving fileList 
	repeat with curFile in fileList 
		set filePath to (curFile as string) 
		set aName to name of (info for (file filePath)) 
		sendMsg(aName, thisFolder) 
	end repeat 
end adding folder items to 
 
on sendMsg(msgSubject, thisFolder) 
	set folderPath to POSIX path of (thisFolder) 
	tell application "Mail" 
		set newMessage to make new outgoing message with properties ¬ 
			{subject:msgSubject, content:msgBody & return & return & folderPath & return & return} 
		tell newMessage 
			set visible to false 
			set sender to msgSender 
			make new to recipient at end of to recipients with properties {name:msgName, address:msgAddress} 
		end tell 
		save newMessage 
		send newMessage 
	end tell 
	display notification msgSubject with title "Ordnerüberwachung // Neue Datei" 

on adding folder items to thisFolder after receiving fileList 
  tell application "Finder" 
    set folderName to name of thisFolder 
  end tell 
  repeat with curFile in fileList 
    tell application "Finder" 
      set fileName to name of curFile 
    end tell 
    sendMsg(fileName, folderName) 
  end repeat 
end adding folder items to 
 
on sendMsg(msgSubject, folderName) 
  tell application "Mail" 
    set newMessage to make new outgoing message with properties ¬ 
      {subject:msgSubject, content:msgBody & return & return & folderName & return & return} 
    tell newMessage 
      set visible to false 
      set sender to msgSender 
      make new to recipient at end of to recipients with properties {name:msgName, address:msgAddress} 
    end tell 
    save newMessage 
    send newMessage 
  end tell 
  display notification msgSubject with title "Ordnerüberwachung // Neue Datei" 
end sendMsg 

  display notification msgSubject with title "Ordnerüberwachung // Neue Datei" sound name "Purr" 

  end repeat 
  delay 1 
  tell application "Mail" 
    delete every message of mailbox "Sent Messages" of account "Xyz" 
  end tell 
end adding folder items to 

on adding folder items to thisFolder after receiving fileList 
  tell application "Finder" 
    set folderName to name of thisFolder 
  end tell 
  repeat with curFile in fileList 
    tell application "Finder" 
      set fileName to name of curFile 
    end tell 
    sendMsg(fileName, folderName) 
  end repeat 
end adding folder items to 
 
on sendMsg(msgSubject, folderName) 
  tell application "Mail" 
    set newMessage to make new outgoing message with properties ¬ 
      {subject:msgSubject, content:msgBody & return & return & folderName & return & return} 
    tell newMessage 
      set visible to false 
      set sender to msgSender 
      make new to recipient at end of to recipients with properties {name:msgName, address:msgAddress} 
    end tell 
    save newMessage 
    send newMessage 
    delay 1 
    set allMsg to messages of mailbox "Sent Messages" of account "Xyz" 
    delete item 1 of allMsg 
  end tell 
  display notification msgSubject with title "Ordnerüberwachung // Neue Datei" sound name "Purr" 
end sendMsg