Sub SendMail(FirstTime As Boolean)
'ToastMessageShow("Enviando mensaje", True)
If FirstTime=True Then
smtp.Initialize("smtp.gmail.com", 587, "[email protected]", "password", "SMTP")
smtp.StartTLSMode = True
End If
smtp.To.Add(GlobalParameters.Email)
smtp.Subject = "Confirmación de Orden Palominos APP"
smtp.HtmlBody=True
Dim BodyTemp As String
BodyTemp = File.ReadString(File.DirAssets, "mailfactura.html")
BodyTemp = BodyTemp.Replace ("%= listado_compras %", "Orden #"&GlobalParameters.orderidactual&" PalominosAPP")
BodyTemp = BodyTemp.Replace ("%= usuario_email %", GlobalParameters.Username)
BodyTemp = BodyTemp.Replace ("%= envio_email %", GlobalParameters.Email)
smtp.Body = BodyTemp
mapHeader.Put("Content-Transfer-Encoding", "7bit")
smtp.AdditionalHeaders = mapHeader
smtp.Send
End Sub