My Virtual Rainforest





(33 trees)



Plant some trees for me

send mail using gmail smtp server

try
{

MailMessage mm = new MailMessage(From.Trim(),To);
mm.BodyEncoding = Encoding.UTF7;
mm.Subject = Subject.Trim();
mm.Body = MessageTxt.Trim() + "\n";
mm.Priority = MailPriority.High;
mm.IsBodyHtml = false;



if (FileSt != "")
{
Attachment msgAtt = new Attachment(FileSt);
mm.Attachments.Add(msgAtt);
}

SmtpClient sc = new SmtpClient();

sc.Credentials = new System.Net.NetworkCredential("sudesh.withanage", "priyanka");
sc.Port = 587;
sc.Host = "smtp.gmail.com";
sc.EnableSsl = true;
// sc.SendCompleted +=new SendCompletedEventHandler();


sc.Send(mm);

MessageBox.Show("success");

}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
}

gmail pop

pop.gmail.com

995

gmail smtp

587
smtp.gmail.com

SQL CLR

using System;
using System.Data;
using System.Data.SqlTypes;

public class MyCLRFunc
{
[Microsoft.SqlServer.Server.SqlFunction]
public static SqlString MyCLRHelloFunction()
{
return new SqlString("Hello everybody, I'm form SQLCLR!");
}
};



Create assembly MyUDFCLR from 'K:\Users\Sudesh\Desktop\MyCLRFunc.dll'

create function MyCLRHelloFunction()
Returns nvarchar(50)
External name MyUDFCLR.MyCLRFunc.MyCLRHelloFunction;
Go

select dbo.MyCLRHelloFunction()

Crystal Reports changing logon infomation

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

' this is the class for connecting crystal reports to database
' applies logoninfo

Public Class Creports

'returns a ReportDocument after applying logoninfo for the passed report
Public Function connect(ByVal rpt5 As ReportDocument) As ReportDocument

Dim tbCurrent As Table
Dim tbLogOnInfo As TableLogOnInfo

Try
'apply LogOn info for each table of the report document
For Each tbCurrent In rpt5.Database.Tables
tbLogOnInfo = tbCurrent.LogOnInfo

With tbLogOnInfo.ConnectionInfo
.ServerName = mod_1.serverName
.UserID = mod_1.userName
.Password = mod_1.password
.DatabaseName = mod_1.dataBaseName
End With

tbCurrent.ApplyLogOnInfo(tbLogOnInfo)
'tbLogOnInfo = tbCurrent.LogOnInfo
'tbLogOnInfo.ConnectionInfo.ServerName = serverName
'tbLogOnInfo.ConnectionInfo.UserID = userName
'tbLogOnInfo.ConnectionInfo.Password = password
'tbLogOnInfo.ConnectionInfo.DatabaseName = databaseName
'tbCurrent.ApplyLogOnInfo(tbLogOnInfo)
Next tbCurrent

Return rpt5

Catch lsExp As LoadSaveReportException
MessageBox.Show(lsExp.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Function

End Class