[#Form : Select Company List] On : Form Accept : @@TlyTrngEmailFeatures AND NOT $$IsCmpOwner : Execute : OTP [Reporttp] Formtp [Formtp] Height:15 Width:50 Part:email,otp Bottom Part:next Key:Esc,quit [Button:Esc] Key:ESC Action: Close Company [Button:quit] Key:CTRL+Q Action: Close Company [Part:Next] Space Top:2 Button:Next Horizontal Align:Center [Part:email] Line:email,tommail Horizontal Align:Center [Line:email] Field:email Space Top:.5 [Field:email] Info:$$LocaleString:"(SEND OTP TO)" Color:Blue Align:Center Full Width:Yes [Line:tommail] Field:tommail Space Top:.5 [Field:tommail] Info@ToEmail Color:Blue Align:Center Full Width:Yes [Button:Next] Title:"GENRATE OTP" Focus BG:White Use:Inline Button Template Key:ALT+O Width : 35 Height : 3 Horizontal Align:Center Style:Normal Bold Color:Red Skip Forward:Not $$IsEmpty:#otp ActionEx:1:Call:setotp ActionEx:2: Call : TlyTrng Email Vch : $MasterId [Parttp] Space Top:2 Linetp Horizontal Align:Center [Linetp] Fieldtp [Fieldtp] Width:35 Max:6 Set as:"" Align:Center Wide Space:Yes Style:Large Bold2 Color:Cyan Blue Valid:Yes Control:Abb@Abb1 [Style:Large Bold2] Height:25 Font:Arial [#Part : CMP TallyShopFeatures Left] Line : TlyTrng EmailFeatures Line:to Email [Line:To Email] Fields : LONG Prompt, TO EMAIL Local : Field : LONG Prompt : Info : "TO Email id for getting OTP :" Space Top : 0.3 Invisible:NOT $$IsCmpOwner [Field : TO EMAIL] Use:Name Field Storage : To Email [Line : TlyTrng EmailFeatures] Fields : LONG Prompt, TlyTrng EmailFeatures Local : Field : LONG Prompt : Info : "Enable OTP Login ?:" Space Top : 0.3 Invisible:NOT $$IsCmpOwner [Field : TlyTrng EmailFeatures] Use : Logical Field Storage : TlyTrng Email Features Sub Form : TlyTrng EmailConfigurations : $$Value [Report : TlyTrng EmailConfigurations] Title : "E-Mail Configurations" Form : TlyTrng EmailConfigurations Full Screen : No Variable:Applock Set : SVAccounts : No Set : SVInventory : No Set : SVStatutory : No Set : SVTallyShop : Yes Set : SVTaxAudit : No Set : SVTallyNet : No [Form : TlyTrng EmailConfigurations] Parts : Form SubTitle, MPaySlip MailInfo Config Full Width : No Height : 60% Screen Space Right : 2 Space Left : 2 No Confirm : Yes Background : @@SV_CMPCONFIG Option : Small Size Form Local : Line : Default : NoCursor : Yes Local : Part : MPaySlip MailInfo Config : Delete : Border Local : Part : DSP ExcelExportDetails : Delete : Line : DSP ExportSheetName, Local : Part : MPaySlip MailInfo Config : Delete : Line : MPaySlip MailExportFormat Local : Line : Form SubTitle : Space Top : 0.25 Local : Field : Form SubTitle : Info : $$LocaleString:"E-Mail Configuration" Local : Line : DSP ExcelExportWithFormatting : Local : Field : Short Prompt : Width : 30 Local : Line : DSP ExcelExportWithColour : Local : Field : Short Prompt : Width : 30 Local : Field : DSP Mail ServerName : Storage : TlyTrng Email MailServerName Local : Field : DSP Mail Server : Storage : TlyTrng Email MailServer Local : Field : DSP Mail UseSsl : Storage : TlyTrng Email MailUseSsl Local : Field : DSP Mail UseSSLOnStdPort : Storage : TlyTrng Email Mail UseSSLOnStdPort Local : Field : DSP MailFromAddress : Storage : TlyTrng Email MailFromAddress Local : Field : DSP MailAuthUserName : Storage : TlyTrng Email MailAuthUserName Local : Field : DSP MailAuthPassword : Storage : TlyTrng Email MailAuthPassword Local : Field : DSP MailAuthPassword : Delete : Inactive Local : Line : DSP MailAuthUNInfo : Invisible : Yes Local : Line : DSP MailFromName : Invisible : Yes Local : Line : DSP MailFromAddress : Space Top : 2 [System : Formulae] TlyTrng Email Features : $TlyTrngEmailFeatures:Company:##SVCurrentCompany TlyTrng Email MailServerName : $TlyTrngEmailMailServerName:Company:##SVCurrentCompany TlyTrng Email MailServer : $TlyTrngEmailMailServer:Company:##SVCurrentCompany TlyTrng Email MailUseSsl : $TlyTrngEmailMailUseSsl:Company:##SVCurrentCompany TlyTrng Email Mail UseSSLOnStdPort : $TlyTrngEmailMailUseSSLOnStdPort:Company:##SVCurrentCompany TlyTrng Email MailFromAddress : $TlyTrngEmailMailFromAddress:Company:##SVCurrentCompany TlyTrng Email MailAuthUserName : $TlyTrngEmailMailAuthUserName:Company:##SVCurrentCompany TlyTrng Email MailAuthPassword : $TlyTrngEmailMailAuthPassword:Company:##SVCurrentCompany ToEmail :$ToEmail:Company:##SVCurrentCompany otp:$$RandomNumber:99999:999999 [System:formula] abb:"Invailed OTP \n Please Enter \n The correct OTP " abb1:#otp not contains @@11 11: If $$IsEmpty:##applock then "895641" else ##Applock [System : UDF] TlyTrng Email Features : Logical : 3015 TlyTrng Email MailServerName : String : 3016 TlyTrng Email MailServer : String : 3017 TlyTrng Email MailUseSsl : Logical : 3018 TlyTrng Email Mail UseSSLOnStdPort : Logical : 3019 TlyTrng Email MailFromAddress : String : 3020 TlyTrng Email MailAuthUserName : String : 3021 TlyTrng Email MailAuthPassword : String : 3022 ToEmail : String : 3023 [Variable:Applock] Type:String Set Always:Yes [System:Variable] applock:"" [Function:setotp] 0011 : Set : Applock @otp [Function : TlyTrng Email Vch] Parameter : VoucherId : String Variable : TlyTrng ToEmail : String @ToEmail Variable : TlyTrng EmailSubject : String : "Dear " +$$CmpUserName+" your Tally Login OTP Is - "+##applock Variable : SVPrintFileName : String 0000 : If : NOT $$IsEmpty:##TlyTrngToEmail 0050 : Set : SVMailEmbedImage : Yes 0060 : Set : SVExportFormatVar : $$SysNameDF 0070 : Set : SVExportFormat : $$SysNameDF 0080 : Set : SVBrowserWidth : 210 0090 : Set : SVBrowserHeight : 297 0100 : Set : SVMailAttachFileName : $$String:"OTP" + ".PDF" 0110 : Set : SVPrintFileName : $$MakeMailName:##TlyTrngToEmail@TlyTrngEmailMailServer@TlyTrngEmailMailFromAddress@TlyTrngEmailMailFromAddress:##TlyTrngEmailSubject@TlyTrngEmailMailAuthUserName@TlyTrngEmailMailAuthPassword@TlyTrngEmailMailUseSsl@TlyTrngEmailMailUseSSLOnStdPort Local Formula : EMailText : "Dear " +$$CmpUserName+" your Tally Login OTP Is - "+##applock + "\n Company - " + $$LocaleString:$$UPPER@CMPMAILNAME +"\n" +"DATE-" +$$LocaleString:$$CurrentDate +"\n" + "TIME - " + $$LocaleString:$$MachineTime 0120 : Set : SVMailText : $$LocaleStringEMailText 0130 : Mail : EMailVoucher : True 0140 : End If [Report : EMailVoucher] Title : "otp" Formtp gen Variable : SVPrintCopies : Number : 1 Variable : SAPrintCopies : Number : 1 [Form:OTP GEn] Parttpgen [Parttpgen] Horizontal Align:Center Vertical Align:Center Linetpgen [Linetpgen] Fieldtpgen [Fieldtpgen] Type:String Set as:##Applock Style:LargeBold2
sir its because it has a button on the part and used form select company List (it was in the prime only form)
Analysing Project: 'otp login'... Report (Select Company2): error T0029: Could not find the definition Form - 'CMP Select Action Form' referred from Report - 'Select Company2' in the attribute - Local. "C:\Users\Abhinand\OneDrive\tally\project\otp for both release.txt"(185): warning T0023: Unused definition System Formulae - TlyTrng Email MailServerName. Analysis Finished. Total 1 Error(s), 1 Warning(s) and 0 Remark(s) Build failed when build time I get this error any solution for this
Code: [#Report: Select Company] Option : Form4ERP9 : @@ProductInformation CONTAINS "Tally.ERP 9" Option : Form4Prime : NOT @@ProductInformation CONTAINS "Tally.ERP 9" [!Report : Form4ERP9] Local : Form : CMP Select Action Form : On : Form Accept : @@TlyTrngEmailFeatures AND NOT $$IsCmpOwner : Execute : OTP [!Report : Form4Prime] Local : Form : Select Company List : On : Form Accept : @@TlyTrngEmailFeatures AND NOT $$IsCmpOwner : Execute : OTP
thank you sir that problem was solved ,but when rlease erp 9 how to go back to select company(company info menu) when press buttons esc2,quit2 sir any other meathead available [System:Events] CmpLoadEvent : Load Company @TlyTrngEmailFeatures AND NOT $$IsCmpOwner : Execute : OTP [Reporttp] Formtp [Formtp] Height:15 Width:50 Part:email,otp Optiontp1:$$ProdInforodMajorVersion = 1 and $$ProdInforodMinorVersion > 0 ;as TallyPrime Optiontp2:$$ProdInforodMajorVersion = 1 and $$ProdInforodMinorVersion = 0 ;as Tally.ERP9 Background:White [!Formtp1] Add:Bottom Part:next Key:Esc,quit [!Formtp2] Add:Button:Next2 Delete:Height Add:Height:10 Button:Esc2,quit2 [Button:Esc] Key:ESC Action: Close Company [Button:quit] Key:CTRL+Q Action: Close Company [Button:Esc2] Key:ESC Action: Restart application Title:"Go Back" [Function: restart] 2: IF :$$LastResult 3: Restart Application : $$LocaleString:"Do you want to go back ?" 4: ENDIF ;;End of File [Button:quit2] Key:CTRL+Q Title:"Prvious" Action: Restart application [Part:Next] Space Top:2 Button:Next Horizontal Align:Center [Part:email] Line:email,tommail Horizontal Align:Center [Line:email] Field:email Space Top:.5 [Field:email] Info:$$LocaleString:"(SEND OTP TO)" Color:Blue Align:Center Full Width:Yes [Line:tommail] Field:tommail Space Top:.5 [Field:tommail] Info@ToEmail Color:Blue Align:Center Full Width:Yes [Button:Next] Title:"GENRATE OTP" Focus BG:White Use:Inline Button Template Key:ALT+O Width : 35 Height : 3 Horizontal Align:Center Style:Normal Bold Color:Red Skip Forward:Not $$IsEmpty:#otp ActionEx:1:Call:setotp ActionEx:2: Call : TlyTrng Email Vch : $MasterId [Button:Next2] Title:"GENRATE OTP" Key:ALT+O ActionEx:1:Call:setotp ActionEx:2: Call : TlyTrng Email Vch : $MasterId [Parttp] Space Top:2 Linetp Horizontal Align:Center [Linetp] Fieldtp [Fieldtp] Width:35 Max:6 Set as:"" Align:Center Wide Space:Yes Style:Large Bold2 Color:Cyan Blue2 Valid:Yes Control:Abb@Abb1 [Color: Cyan Blue2] RGB : 42, 103, 177 [Style:Large Bold2] Height:25 Font:Arial [#Part : CMP TallyShopFeatures Left] Line : TlyTrng EmailFeatures Line:to Email [Line:To Email] Fields : LONG Prompt, TO EMAIL Local : Field : LONG Prompt : Info : "TO Email id for getting OTP :" Space Top : 0.3 Invisible:NOT $$IsCmpOwner [Field : TO EMAIL] Use:Name Field Storage : To Email [Line : TlyTrng EmailFeatures] Fields : LONG Prompt, TlyTrng EmailFeatures Local : Field : LONG Prompt : Info : "Enable OTP Login ?:" Space Top : 0.3 Invisible:NOT $$IsCmpOwner [Field : TlyTrng EmailFeatures] Use : Logical Field Storage : TlyTrng Email Features Sub Form : TlyTrng EmailConfigurations : $$Value [Report : TlyTrng EmailConfigurations] Title : "E-Mail Configurations" Form : TlyTrng EmailConfigurations Full Screen : No Variable:Applock Set : SVAccounts : No Set : SVInventory : No Set : SVStatutory : No Set : SVTallyShop : Yes Set : SVTaxAudit : No Set : SVTallyNet : No [Form : TlyTrng EmailConfigurations] Parts : Form SubTitle, MPaySlip MailInfo Config Full Width : No Height : 60% Screen Space Right : 2 Space Left : 2 No Confirm : Yes Background : @@SV_CMPCONFIG Option : Small Size Form Local : Line : Default : NoCursor : Yes Local : Part : MPaySlip MailInfo Config : Delete : Border Local : Part : DSP ExcelExportDetails : Delete : Line : DSP ExportSheetName, Local : Part : MPaySlip MailInfo Config : Delete : Line : MPaySlip MailExportFormat Local : Line : Form SubTitle : Space Top : 0.25 Local : Field : Form SubTitle : Info : $$LocaleString:"E-Mail Configuration" Local : Line : DSP ExcelExportWithFormatting : Local : Field : Short Prompt : Width : 30 Local : Line : DSP ExcelExportWithColour : Local : Field : Short Prompt : Width : 30 Local : Field : DSP Mail ServerName : Storage : TlyTrng Email MailServerName Local : Field : DSP Mail Server : Storage : TlyTrng Email MailServer Local : Field : DSP Mail UseSsl : Storage : TlyTrng Email MailUseSsl Local : Field : DSP Mail UseSSLOnStdPort : Storage : TlyTrng Email Mail UseSSLOnStdPort Local : Field : DSP MailFromAddress : Storage : TlyTrng Email MailFromAddress Local : Field : DSP MailAuthUserName : Storage : TlyTrng Email MailAuthUserName Local : Field : DSP MailAuthPassword : Storage : TlyTrng Email MailAuthPassword Local : Field : DSP MailAuthPassword : Delete : Inactive Local : Line : DSP MailAuthUNInfo : Invisible : Yes Local : Line : DSP MailFromName : Invisible : Yes Local : Line : DSP MailFromAddress : Space Top : 2 [System : Formulae] TlyTrng Email Features : $TlyTrngEmailFeatures:Company:##SVCurrentCompany TlyTrng Email MailServerName : $TlyTrngEmailMailServerName:Company:##SVCurrentCompany TlyTrng Email MailServer : $TlyTrngEmailMailServer:Company:##SVCurrentCompany TlyTrng Email MailUseSsl : $TlyTrngEmailMailUseSsl:Company:##SVCurrentCompany TlyTrng Email Mail UseSSLOnStdPort : $TlyTrngEmailMailUseSSLOnStdPort:Company:##SVCurrentCompany TlyTrng Email MailFromAddress : $TlyTrngEmailMailFromAddress:Company:##SVCurrentCompany TlyTrng Email MailAuthUserName : $TlyTrngEmailMailAuthUserName:Company:##SVCurrentCompany TlyTrng Email MailAuthPassword : $TlyTrngEmailMailAuthPassword:Company:##SVCurrentCompany ToEmail :$ToEmail:Company:##SVCurrentCompany otp:$$RandomNumber:99999:999999 [System:formula] abb:"Invailed OTP \n Please Enter \n The correct OTP " abb1:#otp not contains @@11 11: If $$IsEmpty:##applock then "895641" else ##Applock [System : UDF] TlyTrng Email Features : Logical : 3015 TlyTrng Email MailServerName : String : 3016 TlyTrng Email MailServer : String : 3017 TlyTrng Email MailUseSsl : Logical : 3018 TlyTrng Email Mail UseSSLOnStdPort : Logical : 3019 TlyTrng Email MailFromAddress : String : 3020 TlyTrng Email MailAuthUserName : String : 3021 TlyTrng Email MailAuthPassword : String : 3022 ToEmail : String : 3023 [Variable:Applock] Type:String Set Always:Yes [System:Variable] applock:"" [Function:setotp] 0011 : Set : Applock @otp [Function : TlyTrng Email Vch] Parameter : VoucherId : String Variable : TlyTrng ToEmail : String @ToEmail Variable : TlyTrng EmailSubject : String : "Dear " +$$CmpUserName+" your Tally Login OTP Is - "+##applock Variable : SVPrintFileName : String 0000 : If : NOT $$IsEmpty:##TlyTrngToEmail 0050 : Set : SVMailEmbedImage : Yes 0060 : Set : SVExportFormatVar : $$SysNameDF 0070 : Set : SVExportFormat : $$SysNameDF 0080 : Set : SVBrowserWidth : 210 0090 : Set : SVBrowserHeight : 297 0100 : Set : SVMailAttachFileName : $$String:"OTP" + ".PDF" 0110 : Set : SVPrintFileName : $$MakeMailName:##TlyTrngToEmail@TlyTrngEmailMailServer@TlyTrngEmailMailFromAddress@TlyTrngEmailMailFromAddress:##TlyTrngEmailSubject@TlyTrngEmailMailAuthUserName@TlyTrngEmailMailAuthPassword@TlyTrngEmailMailUseSsl@TlyTrngEmailMailUseSSLOnStdPort Local Formula : EMailText : "Dear " +$$CmpUserName+" your Tally Login OTP Is - "+##applock + "\n Company - " + $$LocaleString:$$UPPER@CMPMAILNAME +"\n" +"DATE-" +$$LocaleString:$$CurrentDate +"\n" + "TIME - " + $$LocaleString:$$MachineTime 0120 : Set : SVMailText : $$LocaleStringEMailText 0130 : Mail : EMailVoucher : True 0140 : End If [Report : EMailVoucher] Title : "otp" Formtp gen Variable : SVPrintCopies : Number : 1 Variable : SAPrintCopies : Number : 1 [Form:OTP GEn] Parttpgen [Parttpgen] Horizontal Align:Center Vertical Align:Center Linetpgen [Linetpgen] Fieldtpgen [Fieldtpgen] Type:String Set as:##Applock Style:LargeBold2
no come any option for Enter OTP when start tally and no select company to company info and no receve any otp on mail
;;==============HELP ME TO FIX IT=============== [System : UDF] GWLWCustOnYes : Logical : 400 [System : Formula] GWLWEnaleAddon : $GWLWCustOnYes:Company:##SVCurrentCompany = "Yes" GWLWPartyLedgerPartyFilter : $LedgerName =##GWLWPartyLedger GWLWOnly : $$IsBelongsTo:$$GroupSundryDebtors OR $$IsBelongsTo:$$GroupSundryCreditors OR $$ISBelongsto:$$GroupCash OR $$IsBelongsto:$$GroupBank [#Form: Company Operations] Switch : GWLW LowerRel : GWLW NotFor3.2 : ($$Number:$$ProdInforodReleaseAsStr) < 3.2 Switch : GWLW CurrenRel : GWLW For3.2 : ($$Number:$$ProdInforodReleaseAsStr) >= 3.2 [!Form : GWLW NOTFor3.2] Local : Part : CMP AccFeat Right : Add : Line : At End : GWLW Use Customization [!Form : GWLW For3.2] Local : Part : CMP TallyShopFeatures Left : Add : Line : At End : GWLW Use Customization [Line: GWLW Use Customization] Fields : Medium Prompt,GWLW Use Customization Local : Field : Medium Prompt : Info : $$LocaleString:"Enable Party-Wise Multi Voucher Printing ?" Local : Field : Medium Prompt : Fullwidth : yes Space Top : 0.4 [Field: GWLW Use Customization] Use : Logical Field Storage : GWLWCustOnYes [#Part: MVP Print Common] Option : GWLW MVP Print Common : @@GWLWEnaleAddon [!Part : GWLW MVP Print Common] Add : Line : After :VoucherTypeName : GWLW Ledger Name [Line : GWLW Ledger Name] Fields : Medium Prompt,GWLW Ledger Name fld Local : Field : Medium Prompt : Info : $$LocaleString:"Select Ledgers to Print" [Field : GWLW Ledger Name fld] Use : Name Field Set As : ##GWLWPartyLedger Modifies : GWLWPartyLedger Table : GWLW Led table Show Table : Always [Collection: GWLW Led table] Title : $$LocaleString:"List of Ledger Name" Format : $$Name, 20 Align : Right FullHeight : Yes Type : Ledger Fetch : Name Report : Ledger Variable : GWLWPartyLedger Trigger : SLedger BelongsTo : Yes WithAlias : Yes Set as : $Name IsODBCTable : Yes Filter : GWLWOnly [#Report: Multi Voucher Print] Option : GWLW Multi Voucher Print : @@GWLWEnaleAddon [!Report : GWLW Multi Voucher Print] Variable : GWLWPartyLedger Local : Collection : MSpecific Vouchers of Company : Add : Filter : GWLWPartyLedgerPartyFilter [Variable : GWLWPartyLedger] Type : String [System : Variable] GWLWPartyLedger : ""
login as an admin user and chick this to things in it(@TlyTrngEmailFeatures AND NOT $$IsCmpOwner) and login as a user then check Please use last updated code Fisrt code will not work When set default company on start is yes
I think this issue is because you're From mail address and To mail address are same please use different To mail address and check and also use tally registered mail address as From mail address (this tally registered mail only use for from address I am not sure about it ) please check lease secure app is on in your email account settings this is currect then mail a invoice and check that invoice is getting on the mail then tell me
Code: [System:Events] CmpLoadEvent : Load Company :@@TlyTrngEmailFeatures AND NOT $$IsCmpOwner : Execute : OTP [Report:OTP] Form:OTP [Form:OTP] Height : 15 Width : 50 Part : email,otp Option : Otp2:$$ProdInfo:prodMajorVersion = 1 and $$ProdInfo:prodMinorVersion = 0 Background:White [!Form:Otp2] Add:Button : Next2 Delete : Height Add:Height : 10 Button : Esc2,quit2 [Button:Esc2] Key : ESC Action : Restart application Title : "Go Back" [Function: restart] 2: IF :$$LastResult 3: Restart Application : $$LocaleString:"Do you want to go back ?" 4: ENDIF [Button:quit2] Key : CTRL+Q Title : "Previous" Action : Restart application [Part:email] Line : email,tommail Horizontal Align: Center [Line:email] Field : email Space Top : 0.5 [Field:email] Info : $$LocaleString:"(SEND OTP TO)" Color : Blue Align : Center Full Width : Yes [Line:tommail] Field : tommail Space Top : 0.5 [Field:tommail] Info : @@ToEmail Color : Blue Align : Center Full Width : Yes [Button:Next2] Title : "GENRATE OTP" Key : ALT + G ActionEx:1:Call:setotp ActionEx:2: Call : TlyTrng Email Vch : $MasterId [Part:otp] Space Top : 2 Line : otp Horizontal Align: Center [Line:otp] Field : otp [Field:otp] Width : 35 Max : 6 Set as : "" Align : Center Wide Space : Yes Style : Large Bold2 Color : Cyan Blue2 Valid : Yes Control : Abb:@@Abb1 [Color: Cyan Blue2] RGB : 42, 103, 177 [Style:Large Bold2] Height:25 Font:Arial [#Part : CMP TallyShopFeatures Left] Line : TlyTrng EmailFeatures Line:to Email [Line:To Email] Fields : LONG Prompt, TO EMAIL Local : Field : LONG Prompt : Info : "TO Email id for getting OTP :" Space Top : 0.3 Invisible : NOT $$IsCmpOwner [Field : TO EMAIL] Use : Name Field Storage : To Email [Line : TlyTrng EmailFeatures] Fields : LONG Prompt, TlyTrng EmailFeatures Local : Field : LONG Prompt : Info : "Enable OTP Login ?:" Space Top : 0.3 Invisible : NOT $$IsCmpOwner [Field : TlyTrng EmailFeatures] Use : Logical Field Storage : TlyTrng Email Features Sub Form : TlyTrng EmailConfigurations : $$Value [Report : TlyTrng EmailConfigurations] Title : "E-Mail Configurations" Form : TlyTrng EmailConfigurations Full Screen : No Variable : Applock Set : SVAccounts : No Set : SVInventory : No Set : SVStatutory : No Set : SVTallyShop : Yes Set : SVTaxAudit : No Set : SVTallyNet : No [Form : TlyTrng EmailConfigurations] Parts : Form SubTitle, MPaySlip MailInfo Config Full Width : No Height : 60% Screen Space Right : 2 Space Left : 2 No Confirm : Yes Background : @@SV_CMPCONFIG Option : Small Size Form Local : Line : Default : NoCursor : Yes Local : Part : MPaySlip MailInfo Config : Delete : Border Local : Part : DSP ExcelExportDetails : Delete : Line : DSP ExportSheetName, Local : Part : MPaySlip MailInfo Config : Delete : Line : MPaySlip MailExportFormat Local : Line : Form SubTitle : Space Top : 0.25 Local : Field : Form SubTitle : Info : $$LocaleString:"E-Mail Configuration" Local : Line : DSP ExcelExportWithFormatting : Local : Field : Short Prompt : Width : 30 Local : Line : DSP ExcelExportWithColour : Local : Field : Short Prompt : Width : 30 Local : Field : DSP Mail ServerName : Storage : TlyTrng Email MailServerName Local : Field : DSP Mail Server : Storage : TlyTrng Email MailServer Local : Field : DSP Mail UseSsl : Storage : TlyTrng Email MailUseSsl Local : Field : DSP Mail UseSSLOnStdPort : Storage : TlyTrng Email Mail UseSSLOnStdPort Local : Field : DSP MailFromAddress : Storage : TlyTrng Email MailFromAddress Local : Field : DSP MailAuthUserName : Storage : TlyTrng Email MailAuthUserName Local : Field : DSP MailAuthPassword : Storage : TlyTrng Email MailAuthPassword Local : Field : DSP MailAuthPassword : Delete : Inactive Local : Line : DSP MailAuthUNInfo : Invisible : Yes Local : Line : DSP MailFromName : Invisible : Yes Local : Line : DSP MailFromAddress : Space Top : 2 [System : Formulae] TlyTrng Email Features : $TlyTrngEmailFeatures:Company:##SVCurrentCompany TlyTrng Email MailServerName : $TlyTrngEmailMailServerName:Company:##SVCurrentCompany TlyTrng Email MailServer : $TlyTrngEmailMailServer:Company:##SVCurrentCompany TlyTrng Email MailUseSsl : $TlyTrngEmailMailUseSsl:Company:##SVCurrentCompany TlyTrng Email Mail UseSSLOnStdPort : $TlyTrngEmailMailUseSSLOnStdPort:Company:##SVCurrentCompany TlyTrng Email MailFromAddress : $TlyTrngEmailMailFromAddress:Company:##SVCurrentCompany TlyTrng Email MailAuthUserName : $TlyTrngEmailMailAuthUserName:Company:##SVCurrentCompany TlyTrng Email MailAuthPassword : $TlyTrngEmailMailAuthPassword:Company:##SVCurrentCompany ToEmail : $ToEmail:Company:##SVCurrentCompany otp : $$RandomNumber:99999:999999 [System:formula] abb : "Invailed OTP \n Please Enter \n The correct OTP " abb1 : #otp not contains @@11 11 : If $$IsEmpty:##applock then "895641" else ##Applock [System : UDF] TlyTrng Email Features : Logical : 3015 TlyTrng Email MailServerName : String : 3016 TlyTrng Email MailServer : String : 3017 TlyTrng Email MailUseSsl : Logical : 3018 TlyTrng Email Mail UseSSLOnStdPort : Logical : 3019 TlyTrng Email MailFromAddress : String : 3020 TlyTrng Email MailAuthUserName : String : 3021 TlyTrng Email MailAuthPassword : String : 3022 ToEmail : String : 3023 [Variable:Applock] Type:String Set Always:Yes [System:Variable] applock:"" [Function:setotp] 0011 : Set : Applock :@@otp [Function : TlyTrng Email Vch] Parameter : VoucherId : String Variable : TlyTrng ToEmail : String :@@ToEmail Variable : TlyTrng EmailSubject : String : "OTP LOGIN FOR USER " +$$CmpUserName+" GENERATED BY ABHINAND VK OTP IS -"+##applock Variable : SVPrintFileName : String 0000 : If : NOT $$IsEmpty:##TlyTrngToEmail 0060 : Set : SVExportFormatVar : $$SysName:pDF 0070 : Set : SVExportFormat : $$SysName:pDF 0100 : Set : SVMailAttachFileName : $$String:" OTP" + ".PDF" 0110 : Set : SV PrintFileName :$$MakeMailName:##TlyTrngToEmail:@@TlyTrngEmailMailServer:@@TlyTrngEmailMailFromAddress:@@TlyTrngEmailMailFromAddress:##TlyTrngEmailSubject:@@TlyTrngEmailMailAuthUserName:@@TlyTrngEmailMailAuthPassword:@@TlyTrngEmailMailUseSsl:@@TlyTrngEmailMailUseSSLOnStdPort Local Formula : EMailText : "Dear " +$$Upper:$$CmpUserName+" your Tally Login OTP Is - "+##applock + "\n Company - " + $$LocaleString:$$UPPER:@@CMPMAILNAME +"\n" +"DATE-" +$$LocaleString:$$CurrentDate +"\n" + "TIME - " + $$LocaleString:$$MachineTime 0120 : Set : SVMailText : $$LocaleString:@EMailText 0130 : Mail : EMailVoucher : Yes 0140 : End If [Report : EMailVoucher] Title : "OTP GENERATION IN PROGRESS.." Form:otpgen [Form:OTPGEn] Part:otpgen [Part:otpgen] Horizontal Align:Center Line:otpgen [Line:otpgen] Field:otpgen [Field:otpgen] Type:String Set as:##Applock Style:LargeBold2 Well Done Sir.. Its Working Properly I have used Same Code [Original Credit Abhinand VK & Amit Kamdar Sir] I want to Send Only Text Message as Email Not PDF
