{"id":34898,"date":"2023-11-28T15:07:14","date_gmt":"2023-11-28T14:07:14","guid":{"rendered":"https:\/\/help.qualiware.it\/qw-help\/?p=34898"},"modified":"2023-11-28T15:08:17","modified_gmt":"2023-11-28T14:08:17","slug":"creazione-di-un-messaggio-con-allegato-un-file-excel-che-contiene-dati-del-form","status":"publish","type":"post","link":"https:\/\/help.qualiware.it\/qw-help\/creazione-di-un-messaggio-con-allegato-un-file-excel-che-contiene-dati-del-form\/","title":{"rendered":"Creazione di un messaggio con allegato un file Excel che contiene dati del form"},"content":{"rendered":"<pre class=\"EnlighterJSRAW\" data-enlighter-language=\"csharp\">' Il seguente frammento di codice genera un messaggio che contiene un file Excel creato partendo da un template e aggiornandolo con alcuni dati provenienti dal form.\r\n' Pu\u00f2 essere facilmente riadattato per ogni esigenza\r\nDim x As qwexcel\r\nDim i As Integer\r\nDim msg as string\r\nDim nf as string\r\n\r\nnf=form.GetSession().GetLocalTempFileName(\".XLSX\")\r\n\r\nCopyFile(form.GetSession().Q95_NOME_DIR_DOCUM+\"\\rpt\\custom\\&lt;nome template&gt;.xlsx\",nf,false)\r\n\r\nx = New qwexcel()\r\nx.Open(nf)\r\nx.SetActiveWorksheet(x.GetWorkbook.Worksheets(0).Name)\r\nx.WriteString(2,2,form.FindControl(\"TIPO_CONT\").value+\"\/\"+form.FindControl(\"NUMERO\").value)\r\nx.WriteString(2,7,Today())\r\nx.WriteString(4,2,form.FindControl(\"Fornitore1\").value)\r\n\r\nform.FindControl(\"Grid1\").MoveFirst()\r\ni=1\r\nwhile not form.FindControl(\"Grid1\").EndOfRows()\r\n   x.WriteString(i+6,1,form.FindControl(\"Grid1\").ReadField(\"CUSTOM1\"))\r\n   x.WriteString(i+6,2,form.FindControl(\"Grid1\").ReadField(\"CUSTOM3\"))\r\n\r\n   i+=1\r\n   \r\n   form.FindControl(\"Grid1\").MoveNext()\r\nEnd while   \r\nform.FindControl(\"Grid1\").MoveFirst()\r\n\r\nx.WriteString(25,1,form.FindControl(\"NOTE\").value)\r\n\r\nx.Save()\r\nx.Close()\r\n\r\n' Crea il messaggio \r\nDim qmail as New QWMail(form.GetSession())\r\nqmail.MsgCreate()\r\nqmail.MsgFrom(\"xxxx@yyyyy.it\")\r\nqmail.MsgSubject(\"Richiesta quotazione\")\r\nqmail.MsgText(\"Gent.le Fornitore,\r\n\r\ncon la presente siamo a richiedere Vs migliore quotazione per i codici contenuti nel file allegato; Vi preghiamo di voler rispondere compilandolo in ogni sua parte e reinviandolo all\u2019indirizzo acquisti@stefal-cablaggi.it.\r\n\r\nRingraziando per la collaborazione, porgiamo distinti saluti.\")\r\nqmail.MsgAttachment(\"Richiesta quotazione.xlsx\", nf)\r\nqmail.MsgShow(form)\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>&#8216; Il seguente frammento di codice genera un messaggio che contiene un file Excel creato partendo da un template e aggiornandolo con alcuni dati provenienti dal form. &#8216; Pu\u00f2 essere facilmente riadattato per ogni esigenza Dim x As qwexcel Dim i As Integer Dim msg as string Dim nf as string nf=form.GetSession().GetLocalTempFileName(&#8220;.XLSX&#8221;) CopyFile(form.GetSession().Q95_NOME_DIR_DOCUM+&#8221;\\rpt\\custom\\&lt;nome template&gt;.xlsx&#8221;,nf,false) x&hellip;<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"ngg_post_thumbnail":0,"footnotes":""},"categories":[65],"tags":[71],"acf":[],"_links":{"self":[{"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/posts\/34898"}],"collection":[{"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/comments?post=34898"}],"version-history":[{"count":2,"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/posts\/34898\/revisions"}],"predecessor-version":[{"id":34900,"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/posts\/34898\/revisions\/34900"}],"wp:attachment":[{"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/media?parent=34898"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/categories?post=34898"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/help.qualiware.it\/qw-help\/wp-json\/wp\/v2\/tags?post=34898"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}