Send mail via populate the outlook client by code in MSD axapta

To Send mail via populate the outlook client by code in axapta

 #ObjOutlookCOMDEF  
 #define.outlook("Outlook.Application")  
 #define.mapi("MAPI")  
 COM ObjOutlook;  
 COM ObjOutlookNameSpace;  
 COM ObjOutlookMailItem;  
 COM ObjOutlookAttachment;  
 COM ObjOutlookRecipient;  
 ;  
 ObjOutlook = new COM(#outlook);  
 ObjOutlookNameSpace = ObjOutlook.getNamespace(#mapi);  
 ObjOutlookNameSpace.logon();  
 ObjOutlookMailItem = ObjOutlook.CreateItem('Outlook.OlItemType.olMailItem');  
 ObjOutlookMailItem.To("sksinght@abc.com");  
 ObjOutlookMailItem.Subject("Testing");  
 ObjOutlookAttachment = ObjOutlookMailItem.Attachments();  
 ObjOutlookAttachment.Add(@"d:\xyz.pdf",1,1,"New");  
 ObjOutlookMailItem.save();  
 ObjOutlookMailItem.display();  
 info("Activity launched in Microsoft Outlook");  
 ObjOutlookNameSpace.logoff();