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
La Microsoft SharePoint & Office Conference 2010 si avvicina, si svolgerà come penso sappiate a Milano nei giorni 9, 10 e 11 Marzo. Le iscrizioni sono ancora aperte . La lista delle sessioni è ormai definitiva e potete trovarla a questo link . Alcuni…(read more)
