ramata
Fri May 13 01:26:03 CDT 2005
The code is Vb.Net code. Basically two procedures. One composes email and
other sends it. This can be put in any Vb.net class and calling SendEmail()
Public Sub GetEmailBody(ByRef strHTMLMessage As StringBuilder)
Dim strQuery As String
Dim Adodc1 As ADODB.Recordset
strHTMLMessage.Remove(0, strHTMLMessage.Length)
' create HTML message
strHTMLMessage.Append("<html><head><title>My page</title> " _
& "<style type=""text/css"">th {color:
#ffffff;font: bold 12px arial} td.b {color: #ffffff;font: bold 12px arial}
</style></head><body>" _
& "<table align=center border=1 cellspacing=0
cellpadding=1 style='border-collapse: collapse' bordercolor=#777777>" _
& "<tr bgcolor=#ff0000>" _
& "<th nowrap valign=top align=left
width=200>col1</th>" _
& "<th valign=top>col2</th>" _
& "<th nowrap valign=top>col3<br>one<br>two</th>" _
Adodc1 = New ADODB.Recordset
Dim strQuery As String = "SELECT * FROM sample"
' conn is global Adodb.Connection
Adodc1.Open(strQuery, conn)
If Not Adodc1.EOF Then
Do Until Adodc1.EOF
strHTMLMessage.Append(vbCrLf & "<tr bgcolor=#ffcccc>")
strHTMLMessage.Append("<td nowrap align=left>" &
tmpPlay.StationName & "</td><td nowrap align=left>" &
tmpPlay.PresentationRegion & "</td>")
loop
strHTMLMessage.Append("</tr>")
Next
' end of table
strHTMLMessage.Append("</table>")
strHTMLMessage.Append("</body></html>")
End Sub
Public Sub SendEmail()
Dim strBody As New StringBuilder
Dim mailmsg As CDO.Message
Dim Conf As CDO.Configuration
mailmsg = New CDO.Message
mailmsg.Configuration.Load(CDO.CdoConfigSource.cdoIIS)
eMailFrom = "abc@yahoo.com"
GetEmailBody(strBody)
eMailSubject = "testing"
With mailmsg
.From = eMailFrom
.Subject = eMailSubject
.To = recp(i).email
.HTMLBody = strBody.ToString
.Send()
End With
End Sub