tell application "Microsoft Entourage"
    set mail to make new outgoing message with properties {recipient:"empfaenger@example.comt"}
    tell mail
        
        set content to "content"
        set subject to "subject"
        set address of sender to "me@example.com"
        set att to "HD120:Users:me:Documents:Honorarnote.pdf" as alias
        make new attachment at mail with properties {file:att}
    end tell
    
    set account of mail to POP account ("My account")

end tell

set empfaenger to "empfaenger@example.comt"
set absender to "me@example.com"
set konto to "My account"

set myCont to "content"
set mySub to "subject"
set hoNote to "Honorarnote.pdf"

set hoNoteOrg to path to "docs"
set hoNo to "HonorarnotesTEMPO"
set hoNoteTemp to (hoNoteOrg as string) & hoNo & ":"

tell application "Microsoft Entourage"
 set theMessages to messages of folder "Drafts"
 set x to count items of theMessages
end tell

tell application "Finder"
 if x is less than 1 then
  move folder hoNo of hoNoteOrg to trash
 end if
 if not (exists folder (hoNoteTemp)) then
  make new folder at hoNoteOrg with properties {name:hoNo}
 end if
 if not (exists folder (hoNoteTemp & empfaenger)) then
  make new folder at hoNoteTemp as alias with properties {name:empfaenger}
 end if
 set now to (current date) as string
 set ASTID to AppleScript's text item delimiters
 set AppleScript's text item delimiters to ":"
 set now to every text item of now
 set AppleScript's text item delimiters to ASTID
 set nowc to ""
 repeat with i from 1 to length of now
  set nowc to nowc & item i of now
 end repeat
 
 set desti to ((hoNoteTemp as string) & empfaenger & ":")
 make new folder at desti as alias with properties {name:nowc}
 
 set desti to desti & nowc & ":"
 try
  move file ((hoNoteOrg as string) & hoNote) to folder desti
 on error
  tell me
   display dialog "there is no Honorarnote.pdf" & return & "in Documents folder" default button 1 with icon 0
  end tell
 end try
end tell

set att to desti & hoNote

tell application "Microsoft Entourage"
 set mail to make new outgoing message with properties {recipient:empfaenger}
 tell mail
  set content to myCont
  set subject to mySub
  set address of sender to absender
  make new attachment at mail with properties {file:att}
 end tell
 set account of mail to POP account (konto)
end tell

 set account of mail to POP account (konto)
end tell

 set account of mail to POP account (konto)
 open last item of messages of folder "Drafts"
end tell