Visual Basic

Chintu Shah wrote:

But that links example not work on VB.Net 2005.

Public Sub psSendMail(ByVal sSubject As String, ByVal sBody As String)
        Try

            Dim EmailFrom As String = "SourceServer@Somewhere.com"
            Dim EmailTo As String = "YourEmail@yahoo.com"
                        
            you can use either of these methods to connect to exchange server
            'Dim EmailServer As New System.Net.Mail.SmtpClient("192.0.0.1")
            Dim EmailServer As New System.Net.Mail.SmtpClient("emailservername.com")
            Dim myMessage As New System.Net.Mail.MailMessage(EmailFrom, EmailTo, sSubject, sBody)
            Try
                EmailServer.Send(myMessage)
            Catch
            
            Finally
                myMessage = Nothing
            End Try
        Catch ex As Exception
            
        End Try

    End Sub

_teh_ wrote:

I parse these datas from csv-file to in-memory datatables

SELECT     a.customerID, a.Name, a.shop_id, ISNULL(sa.PCS1, 0) AS PCS1, ISNULL(sb.PCS2, 0) AS PCS2
FROM         customers AS a
LEFT JOIN Shop1 AS sa ON (a.shop = sa.shop)
 LEFT JOIN Shop2 AS sb ON (a.shop = sb.shop)