Function SendEmail(ByVal ToAddress As String, ByVal FromAddress As String, ByVal MessageSubject As String, ByVal MessageBody As String)
Dim MessageHead As String = "<html><head>"
MessageHead = MessageHead & "<style>"
MessageHead = MessageHead & "body {background-color:#F7F7F7; color:#000; font-family:arial,verdana,sans-serif; font-size:12px;}"
MessageHead = MessageHead & "</style></head><body>"
Dim MessageFoot As String = "</body></html>"
MessageBody = MessageHead & MessageBody & MessageFoot
Dim ReturnMessage As String = ""
Dim mm As New MailMessage(FromAddress, ToAddress)
Dim smtp As New SmtpClient
mm.Subject = MessageSubject
mm.Body = MessageBody
mm.IsBodyHtml = True
Try
smtp.Host = "0.0.0.0" 'ADD HOST IP
smtp.Send(mm)
ReturnMessage = "La mail è stata inviata"
Catch ex As Exception
ReturnMessage = "Spiacente, c’è stato un problema! " & ex.Message
End Try
SendEmail = ReturnMessage
End Function
amp,
background color,
body,
body background,
ByVal,
dim,
document write,
Function,
host ip,
mail,
mailmessage,
MessageBody,
MessageHead,
ReturnMessage,
sans serif font,
smtp,
string,
Tips and Tricks,
VB.NET
1
2
3
4
5
6
7
| Function ReadAccess(ByVal sqlString As String, ByVal path As String) As System.Data.DataTable
Dim strConn As String = _"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";"
Dim recs As New Data.DataTable()
DIm sql As New OleDbDataAdapter(sqlString, strConn)
sql.Fill(recs)
Return recs
End Function |
amp,
ByVal,
Data,
data source,
DataTable,
dim,
document write,
Function,
jet oledb,
math,
Microsoft,
microsoft jet,
New,
oledbdataadapter,
path,
SQL,
strConn,
string,
Tips and Tricks,
uri,
VB.NET
1
2
3
4
5
6
7
| Protected Overrides Sub ChargeImpresoras()
Dim lPrintDoc As New Printing.PrintDocument
Dim lPrinter As Object
For Each lPrinter In PrinterSettings.InstalledPrinters
cboPrinters.Items.Add(lPrinter)
Next
End Sub |
ChargeImpresoras,
dim,
document write,
lPrintDoc,
lPrinter,
math,
New,
new printing,
Overrides,
PrintDocument,
Printing,
Protected,
sub,
Tips and Tricks,
uri,
VB.NET
X-Secret 4Geek sembra all’apparenza una comune penna per scrivere ma è una Spycam Videocamera a colori con microfono integrato, capace di registrare video e audio in modo davvero molto riservato.
Memoria interna da 4GB che ti garantirà ore e ore di filmati e la batteria ricaricabile, che potrai caricare in poche ore tramite il cavetto usb incluso nella confezione, ti garantirà sempre massima efficienza.
Scoprila subito CLICCANDO QUI ..
4Geek,
comune,
document,
document write,
Geek,
Hi-Tech,
math,
memoria interna,
microcamera,
pen drive,
Spy Cam,
string,
uri,
var,
X-Secret