VIES: Difference between revisions

From Sage CRM Knowledge Base
No edit summary
Blanked the page
 
Line 1: Line 1:
http://ec.europa.eu/taxation_customs/vies/


  var myMailObject = CRM.GetBlock("Messageblock");
  with (myMailObject){
  DisplayForm = false;
  var strEmailId=new String(ctQueueRec.ctqu_data1);
  if(strEmailId=="" || strEmailId=="undefined")strEmailId="";
  if(strEmailId!=""){
  var strSubject=new String(ctQueueRec.ctqu_data2);
  if(strSubject=="" || strSubject=="undefined")strSubject="";
  var strBody=new String(ctQueueRec.ctqu_data3);
  if(strBody=="" || strBody=="undefined")strBody="";
  mSubject =strSubject;
  mBody =strBody; 
  AddRecipient(strEmailId,strEmailId,"TO");
  Mode = 2;
  //CRM.AddContent(myMailObject.execute()); 
  if (true){
    var RecordComm = CRM.CreateRecord("Communication");
    RecordComm.comm_action="EmailOut";
    RecordComm.comm_status="Complete";
    RecordComm.comm_priority="Normal";
    RecordComm.comm_type="Task";
    RecordComm.comm_to=strEmailId;
    RecordComm.comm_email=strBody;
    RecordComm.comm_subject=strSubject;
    RecordComm.comm_note=strSubject;
    RecordComm.comm_datetime=executiondate.getVarDate();;
    RecordComm.SaveChanges();
    var RecordComm_Link = CRM.CreateRecord("Comm_Link");
    RecordComm_Link.CmLi_Comm_CommunicationId=RecordComm.comm_communicationid;
    RecordComm_Link.CmLi_Comm_UserId=1;
    var ipersonId=new String(ctQueueRec.ctqu_data4);
    if(ipersonId=="" || ipersonId=="undefined")ipersonId=0;
    if(ipersonId!=0)
      RecordComm_Link.CmLi_Comm_PersonId=ipersonId;
    //RecordComm_Link.cmli_comm_companyid=strCompanyId;
    RecordComm_Link.SaveChanges();
    Response.Write("done"+ipersonId);
    }
    else{
        Response.Write("There has been a problem: "+mErrorMessage);
    }
    }
    }

Latest revision as of 10:05, 22 April 2015