cSqlCegid = $"SELECT * FROM [dbo].[Z_IAUDITOR] where DATE_AUDIT <= CONVERT( date, DATEADD(day, ${nDays}, GETDATE()))
and DATE_AUDIT >= CONVERT( date, GETDATE())
"$
Dim cMsg as String
cMSg = $"
Date run : ${DateTime.Date(DateTime.Now)}
Sql Query :
${cSqlCegid}
"$
smtp.Initialize(SMTP_server, SMPT_Port, SMTP_Username, SMTP_Password, "SMTP_Audits")
smtp.HtmlBody = False
smtp.Body = cMSg
...
smtp.send
The resulting message is :
Date run : 06/10/2022
Sql Query :
SELECT * FROM [dbo].[Z_IAUDITOR] where DATE_AUDIT <=NVERT( date, DATEADD(day, 4, GETDATE()))
and DATE_AUDIT >=NVERT( date, GETDATE())
Hi all, if you have sign equal in SMTP you have problem, same thing with form feed etd. Example this code: Dim testo As String testo = $"Look this link: https://play.google.com/store/apps/details?id=com.etc"$ 'Send Email SMTP.To.Add($"${edt_email.Text}"$) SMTP.Subject =...
Encoding the html text with base64 avoids encoding issues, especially with MS Outlook. This code is compatible with B4A and B4J: Dim su As StringUtils smtp.Body = su.EncodeBase64(html.GetBytes("utf8")) 'html = the html body smtp.AdditionalHeaders.Put("Content-Transfer-Encoding", "BASE64")...