public class EmailController{
   
   public string p3_lkid = ApexPages.currentPage().getParameters().get('p3_lkid');
   public string p2_lkid = ApexPages.currentPage().getParameters().get('p2_lkid');
   
   public String body {get; set;}
   public String CcemailId {get; set;}
   public String BCcemailId {get; set;}
   public String addlRecipients {get; set;}
   public String emailId {get; set;}
   public ApexPages.standardController st_controller;
   public Id currtaskId{get; set;}
   public Task sTask{get; set;}  
   public TaskRecordTypeRef rc {get; set;}
   public PageReference page{get; set;}
   Public Contact Con{get; set;}
   Public Contact QueryWho{get; set;}

   public EmailController(ApexPages.StandardController stdController){
       st_controller = stdController;
       currtaskId = st_controller.getId();
       stask = querytask(currtaskId);
       stask = TaskInit(stask);
    }
    
   public PageReference sendEmailFunction() {
       Messaging.SingleEmailMessage mail = new Messaging.SingleEmailMessage();       
       if (CcemailId != null && CcemailId != '') {mail.setCcAddresses(CcemailId.split(';'));}              
       if (BCcemailId != null && BCcemailId != '') {mail.setBCcAddresses(BCcemailId.split(';'));}       
       String[] addlToAddresses = null;
       if (addlRecipients != null && addlRecipients != '') {addlToAddresses = addlRecipients.split(';');}                     
		List<String> lstToAddresses = null;
		if (addlToAddresses != null) {			
			lstToAddresses = new List<String>(addlToAddresses);		} 
		}
       lstToAddresses.add(emailId);
	   mail.setToAddresses(lstToAddresses);       
       mail.setReplyTo(UserInfo.getUserEmail());
       mail.setSenderDisplayName(UserInfo.getFirstName() + ' ' + UserInfo.getLastName());
       mail.setSubject(stask.Subject);       
       mail.setBccSender(false);
       mail.setUseSignature(false);
       mail.setPlainTextBody(body);       
       
       if (attachment.Body != null) {
           Messaging.EmailFileAttachment emailAttachment = new Messaging.EmailFileAttachment();
           emailAttachment.setBody(attachment.Body);
           emailAttachment.setFileName(attachment.Name);
           mail.setFileAttachments(new List<Messaging.EmailFileAttachment> {emailAttachment});
       }
       
       Messaging.sendEmail(new Messaging.SingleEmailMessage[] { mail });
       if(stask.Id == null){            
            stask.Priority = 'Normal';            
            stask.Status = 'Completed';
            stask.RecordTypeId = '01290000000tfI7';
            stask.WhatId = p3_lkid;            
            stask.Type = 'Email';
            stask.ActivityDate = Date.today();
            stask.Priority = 'Normal';
            stask.Subject = 'Email: ' + stask.Subject;
            stask.Description = 'Additional To: ' + '\nCC: ' + CcemailId + '\nBCC: ' + BCcemailId + '\nAttachment:' + attachment.Name  + '\n Subject: ' + stask.Subject + '\n Body: \n' + body;
            insert stask;
        }
       //Commented below piece of code as Attachments are not getting saved as default functionality
       /*if (attachment.Body != null) {
                    attachment.parentId=stask.Id;
                    insert attachment;
                }*/
       
       page = new PageReference('/' + stask.WhatId);
       page.setRedirect(true);
       return page;
    }
    
    public PageReference cancel() {        
        PageReference pgRef = new PageReference('/' + p3_lkid );
        pgRef.setRedirect(true);
        return pgRef;
    }
    
    public PageReference Attach() {        
        PageReference pgRef = new PageReference('/apex/MultiAttachment' );        
        pgRef.setRedirect(true);
        return pgRef;
    }
    
    public Task querytask(String queryid){
        Task tsk = new Task();
        if(queryid != null){
            String queryStr = 'Select ' + sObjectGetAllFields(tsk).trim() + ' From Task Where Id= : queryid';          
            try{
                tsk = Database.query(queryStr);
            }
            catch(Exception e){
                system.debug('****** Quering Task Exception: ' + e.getMessage());    
            }                                      
        }                
        return tsk;        
    }
    
    public Task TaskInit(Task tsk){
        rc = new TaskRecordTypeRef();
        Con = [SELECT Id, Email
                 FROM Contact WHERE Id = : p2_lkid];         
        
        QueryWho = [SELECT Id, Email
                 FROM Contact WHERE AccountId = : p3_lkid];
        
        if(tsk.Id == null){                       
            tsk.OwnerId = UserInfo.getUserId();
            tsk.WhatId = p3_lkid;
            tsk.WhoId = QueryWho.Id;            
            tsk.ActivityDate = date.today();
            tsk.Status = 'Completed';
            emailId = Con.Email;
            BCcemailId = UserInfo.getUserEmail();
        }		
        return tsk;
    }
    
     /* Retrieve all fields from the specified object */
    public String sObjectGetAllFields(SObject obj){
        String str = '';                   
        Map<String, Schema.SObjectField> map_fields = obj.getSObjectType().getDescribe().fields.getMap();
        List<Schema.SObjectField> li_fields = map_fields.values();
        
        for(Schema.SObjectField field : li_fields){
            str+= field + ',';       
        }
        
        return str.substring(0,str.length()-1);
    }
    
    public Attachment attachment {
        get {
            if (attachment==null) {
                System.debug('==========> creating new empty Attachment.');
                attachment = new Attachment();
            }
            return attachment;
        }
        set;
    }
}