property msgName : "Buchhaltung" 
property msgAddress : "<xxx.de>" 
property msgBody : "an Collmex" 
property msgSender : "me <info@xxx>" 
 
on adding folder items to thisFolder after receiving fileList 
  repeat with curFile in fileList 
    set filePath to (curFile as string) 
    if not (filePath ends with ":") then 
      set aName to name of (info for (file filePath)) 
      set aFile to curFile as alias 
      sendFile(aName, aFile) 
    end if 
  end repeat 
end adding folder items to 
 
on sendFile(msgSubject, msgAttachment) 
  tell application "Mail" 
    activate 
    set newMessage to make new outgoing message with properties ¬ 
      {subject:msgSubject, content:msgBody & return & return} 
    tell newMessage 
      set visible to true 
      set sender to msgSender 
      make new to recipient at end of to recipients with properties {name:msgName, address:msgAddress} 
      tell content 
        make new attachment with properties {file name:msgAttachment} at after the last paragraph 
      end tell 
    end tell 
    delay 1 
    save newMessage 
    delay 1 
    send newMessage 
  end tell 
end sendFile 

-- delay 1 

set visible to true 

set visible to false 

property msgName : "Buchhaltung" 
property msgAddress : "<xxx.de>" 
property msgBody : "an Collmex" 
property msgSender : "me <info@xxx>" 
 
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)) 
    set aFile to curFile as alias 
    sendFile(aName, aFile) 
    tell application "Finder" 
      try 
        delete curFile 
      end try 
    end tell 
  end repeat 
end adding folder items to 
 
on sendFile(msgSubject, msgAttachment) 
  tell application "Mail" 
    --activate 
    set newMessage to make new outgoing message with properties ¬ 
      {subject:msgSubject, content:msgBody & return & return} 
    tell newMessage 
      --set visible to true 
      set visible to false 
      set sender to msgSender 
      make new to recipient at end of to recipients with properties {name:msgName, address:msgAddress} 
      tell content 
        make new attachment with properties {file name:msgAttachment} at after the last paragraph 
      end tell 
    end tell 
    delay 1 
    save newMessage 
    delay 1 
    send newMessage 
  end tell 
end sendFile 

property msgName : "Buchhaltung" 
property msgAddress : "<xxx.de>" 
property msgBody : "an Collmex" 
property msgSender : "me <info@xxx>" 
 
on adding folder items to thisFolder after receiving fileList 
  tell application "Finder" 
    set mainFolder to (container of thisFolder) as Unicode text 
    set backUpFolder to mainFolder & "Backup:" 
    if not (folder backUpFolder exists) then 
      make new folder at folder mainFolder with properties {name:"Backup"} 
    end if 
  end tell 
  repeat with curFile in fileList 
    set filePath to (curFile as string) 
    set aName to name of (info for (file filePath)) 
    set aFile to curFile as alias 
    sendFile(aName, aFile) 
    tell application "Finder" 
      try 
        move curFile to backUpFolder with replacing 
      end try 
    end tell 
  end repeat 
end adding folder items to 
 
on sendFile(msgSubject, msgAttachment) 
  tell application "Mail" 
    --activate 
    set newMessage to make new outgoing message with properties ¬ 
      {subject:msgSubject, content:msgBody & return & return} 
    tell newMessage 
      --set visible to true 
      set visible to false 
      set sender to msgSender 
      make new to recipient at end of to recipients with properties {name:msgName, address:msgAddress} 
      tell content 
        make new attachment with properties {file name:msgAttachment} at after the last paragraph 
      end tell 
    end tell 
    delay 1 
    save newMessage 
    delay 1 
    send newMessage 
  end tell 
end sendFile 

property msgName : "Buchhaltung" 
property msgAddress : "<xxx.de>" 
property msgBody : "an Collmex" 
property msgSender : "me <info@xxx>" 
 
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) 
  end repeat 
end adding folder items to 
 
on sendMsg(msgSubject) 
  tell application "Mail" 
    --activate 
    set newMessage to make new outgoing message with properties ¬ 
      {subject:msgSubject, content:msgBody & return & return} 
    tell newMessage 
      --set visible to true 
      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 "Neues E-Mail." with title "Hallo Jens!" 
end sendMsg 

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