Sorry i Cant share it if Required help you but not share the Code. Share your Contact details will show you demo
I Can't Understand What exactly want to Say This is Purely from TDL only. No External DLL used for this
Code: ;;F11-F6 Configurations [#Part : CMP TallyShopFeatures Left] Line : TlyTrng EmailFeatures OS [Line : TlyTrng EmailFeatures OS] Fields : Medium Prompt, TlyTrng EmailFeatures OS Local : Field : Medium Prompt : Info : "Enable Email Feature ?" Space Top : 0.3 [Field : TlyTrng EmailFeatures OS] Use : Logical Field Storage : TlyTrng Email Features OS Sub Form : TlyTrng EmailConfigurations OS : $$Value [Report : TlyTrng EmailConfigurations OS] Title : "E-Mail Configurations" Form : TlyTrng EmailConfigurations OS Full Screen : No Set : SVAccounts : No Set : SVInventory : No Set : SVStatutory : No Set : SVTallyShop : Yes Set : SVTaxAudit : No Set : SVTallyNet : No [Form : TlyTrng EmailConfigurations OS] 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 OS Local : Field : DSP Mail Server : Storage : TlyTrng Email MailServer OS Local : Field : DSP Mail UseSsl : Storage : TlyTrng Email MailUseSsl OS Local : Field : DSP Mail UseSSLOnStdPort : Storage : TlyTrng Email Mail UseSSLOnStdPort OS Local : Field : DSP MailFromAddress : Storage : TlyTrng Email MailFromAddress OS Local : Field : DSP MailAuthUserName : Storage : TlyTrng Email MailAuthUserName OS Local : Field : DSP MailAuthPassword : Storage : TlyTrng Email MailAuthPassword OS 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 OS : $TlyTrngEmailFeaturesOS:Company:##SVCurrentCompany TlyTrng Email MailServerNameOS : $TlyTrngEmailMailServerNameOS:Company:##SVCurrentCompany TlyTrng Email MailServerOS : $TlyTrngEmailMailServerOS:Company:##SVCurrentCompany TlyTrng Email MailUseSslOS : $TlyTrngEmailMailUseSslOS:Company:##SVCurrentCompany TlyTrng Email Mail UseSSLOnStdPortOS: $TlyTrngEmailMailUseSSLOnStdPortOS:Company:##SVCurrentCompany TlyTrng Email MailFromAddressOS : $TlyTrngEmailMailFromAddressOS:Company:##SVCurrentCompany TlyTrng Email MailAuthUserNameOS : $TlyTrngEmailMailAuthUserNameOS:Company:##SVCurrentCompany TlyTrng Email MailAuthPasswordOS : $TlyTrngEmailMailAuthPasswordOS:Company:##SVCurrentCompany [System : UDF] TlyTrng Email Features OS : Logical : 3023 TlyTrng Email MailServerName OS : String : 3024 TlyTrng Email MailServer OS : String : 3025 TlyTrng Email MailUseSsl OS : Logical : 3026 TlyTrng Email Mail UseSSLOnStdPortOS: Logical : 3027 TlyTrng Email MailFromAddress OS : String : 3028 TlyTrng Email MailAuthUserName OS : String : 3029 TlyTrng Email MailAuthPassword OS : String : 3030 /*Ledger Statement & Billwise Statement*/ [#Form : Group Outstandings] Add : Button : TlyTrng LedState, TlyTrng LedStateXL, TlyTrng OSStat, TlyTrng OSStatXL Add : Bottom ToolBar Button : BottomToolBarBtn12 [#Form : NRM GrpSummary] Add : Button : TlyTrng LedState, TlyTrng LedStateXL, TlyTrng OSStat, TlyTrng OSStatXL Add : Bottom ToolBar Button : BottomToolBarBtn12 [Button : TlyTrng LedState] Title : "Led Statement Email (PDF)" Key : CTRL + L Action : Call : TlyTrng OSStat : "Yes" : "No" Inactive : NOT @@TlyTrngEmailFeaturesOS [Button : TlyTrng LedStateXL] Title : "Led Statement Email (Excel)" Key : ALT + L Action : Call : TlyTrng OSStat : "Yes" : "Yes" Inactive : NOT @@TlyTrngEmailFeaturesOS [Button : TlyTrng OSStat] Title : "O/s Email (PDF)" Key : CTRL + O Action : Call : TlyTrng OSStat : "No" : "No" Inactive : NOT @@TlyTrngEmailFeaturesOS [Button : TlyTrng OSStatXL] Title : "O/s Email (Excel)" Key : CTRL + E Action : Call : TlyTrng OSStat : "No" : "Yes" Inactive : NOT @@TlyTrngEmailFeaturesOS [Function : TlyTrng OSStat] Parameter : TlyTrng IsLedStat : Logical Parameter : TlyTrng IsExcel : Logical Variable : LedgerName : String 0000 : If : $$IsEmptyCollection:TlyTrngAutoEmail 0010 : Msg Box : "info" : "Please Select & Try again!!" 0020 : Else 0030 : Query Box : "Send Mail" : Yes:No 0040 : If : NOT $$LastResult 0050 : Continue 0060 : End If 0070 : Walk Collection : TlyTrng AutoEmail 0080 : Set : LedgerName : $Name 0090 : Log : "Ledger Name : " + $NAME 0100 : Log : "Email Id : " + ($EMAIL:LEDGER:##LedgerName) 0110 : Log : "----------------------------------------" 0120 : Call : TlyTrng PartyOSEmail 0130 : End Walk 0140 : End If [Collection : TlyTrng AutoEmail] Data Source : Report : Selected Fetch : NAME [Function : TlyTrng PartyOSEmail] Variable : TlyTrng ToEmail : String : $EMAIL:LEDGER:##LedgerName Variable : TlyTrng EmailSubject : String : (IF ##TlyTrngIsLedStat THEN "LedgerStatement : " ELSE "BillsOutstanding : ") + ##LedgerName 0000 : If : NOT $$IsEmpty:##TlyTrngToEmail 0010 : Set : SVMailEmbedImage : Yes 0020 : Set : SVExportFormatVar : IF ##TlyTrngIsExcel THEN $$SysName:EXCEL ELSE $$SysName:PDF 0030 : Set : SVExportFormat : IF ##TlyTrngIsExcel THEN $$SysName:EXCEL ELSE $$SysName:PDF 0040 : Do If : (NOT ##TlyTrngIsExcel) : Set : SVBrowserWidth : 210 0050 : Do If : (NOT ##TlyTrngIsExcel) : Set : SVBrowserHeight : 297 0060 : Do If : (##TlyTrngIsExcel) : Set : ExcelSheetName : "Sheet 1" 0070 : Set : SVMailAttachFileName : (IF ##TlyTrngIsLedStat THEN "LedgerStatement" ELSE "BillsOutstanding") + (IF ##TlyTrngIsExcel THEN ".xlsx" ELSE ".pdf") Local Formula : EMailText : "Dear Customer, \n Please find the attachment. \n\n Warm Regards,\n" + @@CmpMultiAddressMailName 0080 : Set : SVPrintFileName : $$MakeMailName:##TlyTrngToEmail:@@TlyTrngEmailMailServerOS:@@TlyTrngEmailMailFromAddressOS:@@TlyTrngEmailMailFromAddressOS:##TlyTrngEmailSubject:@@TlyTrngEmailMailAuthUserNameOS:@@TlyTrngEmailMailAuthPasswordOS:@@TlyTrngEmailMailUseSslOS:@@TlyTrngEmailMailUseSSLOnStdPortOS 0090 : Set : SVMailText : $$LocaleString:@EMailText 0100 : Do If : (##TlyTrngIsLedStat) : Mail : Ledger Vouchers : True 0110 : Do If : (NOT ##TlyTrngIsLedStat) : Mail : Ledger Outstandings : True 0120 : End If
For CC you Can Change Code: Variable : TlyTrng ToEmailCC : String : $EMailCC:LEDGER:##LedgerName Code: 0080 : Set : SVPrintFileName : $$MakeMailName:##TlyTrngToEmail:@@TlyTrngEmailMailServerOS:##TlyTrng ToEmailCC:@@TlyTrngEmailMailFromAddressOS:##TlyTrngEmailSubject:@@TlyTrngEmailMailAuthUserNameOS:@@TlyTrngEmailMailAuthPasswordOS:@@TlyTrngEmailMailUseSslOS:@@TlyTrngEmailMailUseSSLOnStdPortOS
ITS SHOW ME ERRE WHEN I GO TO DISPLAY>ACCOUNT BOOKS > GROUP SUMMERY & SELECT THE DEBTOR FOR SEND MAIL. BUT IF I AM GO WITH TALLY'S MAIL OPTION ITS DONE . PLS HELP ME THAT MISTAKE . THANKS & REGARDS, SCREEN SHOOT ATT.
Is it possible in same way we can send Invoice too ? or we can send mail of invoice at the time of saving voucher ?