set attachfiles to {"/Users/francescogerminara/Desktop/FGCAENDemo.pdf", "/Users/francescogerminara/Desktop/ObjC.pdf"}
tell application "Mail"
    set mailversion to version as string
    set msg to make new outgoing message at beginning of outgoing messages
    tell msg
        set the subject to "Prova"
        set the content to "Ciao questa e' una prova..."
        set sender to "franco@germinara.it"
        make new to recipient at end of to recipients with properties {name:"Monica", address:"monica.rossi@miaposta.com"}
        tell content
            repeat with attch in attachfiles
                make new attachment with properties {file name:attch} at after the last paragraph
            end repeat
        end tell
        
        set visible to true
    end tell
    activate
    send msg
    
    quit
end tell

set attachfiles to {"/Users/francescogerminara/Documents/Esportazione/fileprova.txt"}

tell application "Mail"
set msg to make new outgoing message at beginning of outgoing messages
tell msg
set the subject to "Prova"
set the content to "Ciao Monica e' una prova..."
set sender to "franco@germinara.it"
make new to recipient at end of to recipients with properties {name:"Monica", address:"info@germinara.it"}
tell content
repeat with attch in attachfiles
make new attachment with properties {file name:attch} at after the last paragraph
end repeat
end tell

set visible to false
end tell

tell application "System Events"
set visible of process "Mail" to false
end tell


repeat with m in outgoing messages
tell m to try
send
repeat while exists
delay 1
end repeat
exit repeat
end try
end repeat

repeat until (count outbox's messages) is 0
delay 2
end repeat

quit

end tell

-- BY Francesco Germinara 20/6/2008

on sendmail(toDisplayName, toAddr, subj, body, attachfiles)

tell application "Mail"

set msg to make new outgoing message at beginning of outgoing messages
tell msg
set the subject to subj
set the content to body
make new to recipient at end of to recipients with properties {name:toDisplayName, address:toAddr}
tell content
repeat with attch in attachfiles
make new attachment with properties {file name:attch} at after the last paragraph
end repeat
end tell

set visible to false
end tell

tell application "System Events"
set visible of process "Mail" to false
end tell


repeat with m in outgoing messages
tell m to try
send
repeat while exists
delay 1
end repeat
exit repeat
end try
end repeat

repeat until (count outbox's messages) is 0
delay 2
end repeat

quit

end tell
end sendmail

-(void)awakeFromNib{

[to setStringValue:@"info@germinara.it"];
[subject setStringValue:@"Test sending mail using Mail.App"];
[body setString:@"This is a sample of sending a mail from a Cocoa program using Mail application, using AppleScript."];
[attachment setStringValue:@""];
[prgBar setUsesThreadedAnimation:YES];
[prgBar setHidden:YES];

}

- (void)_runAppleScriptWithCommand:(NSString *)commandName
inScriptNamed:(NSString *)scriptName
withParameterDisplayName:(NSString *)strDisplayName
withParameterToAddr:(NSString *)strToAddr
withParameterSubject:(NSString *)strSubject
withParameterBody:(NSString *)strBody
withParameterAttachfiles:(NSString *)strAttachfiles
{

NSDictionary *errors = nil;
NSString *path = [[NSBundle mainBundle] pathForResource:scriptName ofType:@"scpt"];
if ([path hasPrefix:@"/Volumes"])
return;
NSURL *url = [NSURL fileURLWithPath:path];
NSAppleScript *appleScript = [[NSAppleScript alloc] initWithContentsOfURL:url error:&errors];

/* See if there were any errors loading the script */
if (!appleScript || errors) {
NSLog(@"error creating applescript:%@ errors:%@", appleScript, [errors description]);
return;
}

NSAppleEventDescriptor *aParameter = nil;
NSAppleEventDescriptor *parameters = [NSAppleEventDescriptor listDescriptor];
aParameter = [NSAppleEventDescriptor descriptorWithString:strDisplayName];
[parameters insertDescriptor:aParameter atIndex:1];

aParameter = [NSAppleEventDescriptor descriptorWithString:strToAddr];
[parameters insertDescriptor:aParameter atIndex:2];

aParameter = [NSAppleEventDescriptor descriptorWithString:strSubject];
[parameters insertDescriptor:aParameter atIndex:3];

aParameter = [NSAppleEventDescriptor descriptorWithString:strBody];
[parameters insertDescriptor:aParameter atIndex:4];


NSAppleEventDescriptor *files = [NSAppleEventDescriptor listDescriptor];
[files insertDescriptor:[NSAppleEventDescriptor descriptorWithString:strAttachfiles] atIndex:1];

[parameters insertDescriptor:files atIndex:5];

ProcessSerialNumber psn = { 0, kCurrentProcess };
NSAppleEventDescriptor *target = [NSAppleEventDescriptor descriptorWithDescriptorType:typeProcessSerialNumber
bytes:&psn
length:sizeof(ProcessSerialNumber)];
NSAppleEventDescriptor *methodName = [NSAppleEventDescriptor descriptorWithString:[commandName lowercaseString]];
NSAppleEventDescriptor *event = [NSAppleEventDescriptor appleEventWithEventClass:'ascr'
eventID:'psbr'
targetDescriptor:target
returnID:kAutoGenerateReturnID
transactionID:kAnyTransactionID];
[event setParamDescriptor:methodName forKeyword:'snam'];
[event setParamDescriptor:parameters forKeyword:keyDirectObject];
NSAppleEventDescriptor *result = [appleScript executeAppleEvent:event error:&errors];
while (!result && !errors) {
int x = 1 + 1;
x ++;
}
if(errors) {
NSLog(@"error executing applescript: errors:%@", [errors description]);
}
[appleScript release];


}