How to Send a Mail with Link to the Sales Quote

pablo_daniel · ‎2016 Mar 07

Hi guys,

I am posting this way to send a Mail to the Approval Party.

In this case i need to sent a Mail to the Appover with the link to the Sales Quote.

import ABSL;

import AP.FO.Activity.Global as prop;

import AP.Common.GDT as GlobalDataTypes;

import BASIS.Global as globalBasis; //for the pdf

import DocumentServices.Global;

import AP.FO.MOM.Global;

var elEmailRoot : elementsof EmailActivity;

var elEmailParty: elementsof EmailActivity.Party;

var instEmail;

var emailBody;

var emailSubject;

var elEmailTxtColl: elementsof EmailActivity.TextCollection;

var elEmailTxtCollTxt: elementsof EmailActivity.TextCollection.Text;

var elEmailTxtCollTxtCntnt: elementsof EmailActivity.TextCollection.Text.TextContent;

var instEmailTxtColl;

var instEmailTxtCollTxt;

var instEmailTxtCollTxtCntnt;

var instEmailAttFld;

//Email instance creation

emailSubject = "Notificacion Descuento Manual";

elEmailRoot.Name.content = emailSubject;

instEmail = EmailActivity.Create(elEmailRoot);

var aprobador = this.Party.Where(w=>w.RoleCode=="71").GetFirst();

if(aprobador.AddressSnapshot.DefaultEMail.IsSet())

{

elEmailParty.PartyKey.PartyID.content =aprobador.AddressSnapshot.DefaultEMail.URI.content;

}

else{

elEmailParty.PartyKey.PartyID.content = "donotreply@my308221.mail.crm.ondemand.com";//"8000000102";

}

instEmail.MessageToParty.Create(elEmailParty);

//Create att folder

instEmailAttFld = instEmail.AttachmentFolder.Create();

//Add attachment1 (html body)

var doctype : GlobalDataTypes:DocumentTypeCode;

var binaryObject : globalBasis:BinaryObject;

var docDesc : GlobalDataTypes:Description;

var docName : GlobalDataTypes:LANGUAGEINDEPENDENT_Name;

var docAltName : GlobalDataTypes:LANGUAGEINDEPENDENT_Name;

var bin : globalBasis:BinaryObject.content;

//Sales Quote Data

var propietario = this.EmployeeResponsibleParty.PartyUUID.content;

var nroOferta = this.ID.RemoveLeadingZeros();

var cliente = this.Party.Where(w=>w.RoleCode=="1001").GetFirst().Party.CurrentName.PartyFormattedName.content;

var emailFormatted = "<html><head></head><body>";

//Append to Mail body

//Add a Customer

emailFormatted = emailFormatted+ " "+ cliente + "" +" ha solicitado la aprobación de descuento para la Oferta de Ventas #"+nroOferta.content.RemoveLeadingZeros()+" ";

emailFormatted = emailFormatted+ "Cliente: "+cliente+" ";

//GET ALL THE PRODUCTS

//Append to mail body

foreach (var product in this.Item)

{

var prodDescription = product.Description;

var descManual = product.DiscountValueManual;

var valueIVA = product.ValueIVA;

var impConsumo = product.ConsumerTaxValue;

var totalValue = product.MotorcycleTotalValuePosition;

var basePrice = product.BasePrice;

//Armo el producto

emailFormatted = emailFormatted + "Producto: " + prodDescription.content+" ";

emailFormatted = emailFormatted + "Precio de Lista: " + basePrice.content.RoundToString(2)+" ";

emailFormatted = emailFormatted + "Descuento Manual: " + descManual.content.RoundToString(2)+" ";

emailFormatted = emailFormatted + "IVA: " + valueIVA.content.RoundToString(2)+" ";

emailFormatted = emailFormatted + "Impuesto al Consumo: " + impConsumo.content.RoundToString(2)+" ";

emailFormatted = emailFormatted + "Valor Total: " + totalValue.content.RoundToString(2)+" ";

}

emailFormatted = emailFormatted + " ";

emailFormatted = emailFormatted + "Por favor dirigase a la oferta";

//HERE I AM CREATING THE LINK TO THE SALESQUOTE

emailFormatted = emailFormatted + " <a href=\"https://my308221.crm.ondemand.com/sap/public/ap/ui/repository/SAP_UI/HTML5/client.html?";

emailFormatted = emailFormatted + "app.component=/BYD_COD/SalesOnDemand/Quote/COD_Quote_TI.TI.uicomponent&app.inport=Inspect&hideshell=true&Key=ObnKey$";//%3C?xml version=\"1.0\"%20encoding=\"utf-16\"?%3E";

emailFormatted = emailFormatted + "<ObnKey><Source><SourcePath>/BYD_COD/SalesOnDemand/Quote/COD_Quote_OWL.OWL.uicomponent</SourcePath></Source><Path>/Root/CustomerQuote[";

emailFormatted = emailFormatted + this.UUID.content.ToString() +"]/ID</Path><Data><ID>"+nroOferta.content.RemoveLeadingZeros()+"</ID></Data></ObnKey>\">";

emailFormatted = emailFormatted + nroOferta.content.RemoveLeadingZeros() + "</a>";

//< <

//> >

//Anexo Link para acceder al

docName = "body.html";

doctype.content = "10001";

binaryObject.mimeCode = "text/html";

binaryObject.content = Binary.ParseFromString(emailFormatted + "</body></html>"); //"<html><head>"+this.ActivityReference.GetFirst().CustomerQuote.Name.content +"</head><body><div style=\"font-weight:bold;\">test</div></body></html>");

instEmailAttFld.CreateFile(doctype, docName, docAltName, docDesc, binaryObject);

instEmail.Send();

Best Regards,

Pablo

How to Send a Mail with Link to the Sales Quote

BRF Plus-A real time example

SAP ISU explained like never before

Pricing in CRM using IPC