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