Wellcome

ارسال ایمیل در Visual Basic 2010

با کد زیر میتونید از طریق smtp گوگل یک ایمیل همراه با اتچ(ضمیمه) ارسال کنید:

Dim FROM1 As New MailAddress("hellas2012@yahoo.com")
        Dim RECIVER As New MailAddress("novincontrol@gmail.com")
        Dim MY_EMAIL As New MailMessage(FROM1, RECIVER)
        MY_EMAIL.Subject = "THIS IS A TEST 4"
        MY_EMAIL.Body = " HI, This Email Sent With VB.NET 2005"
        Dim MY_ATTACH As New Attachment("c:\gg.txt")
        MY_EMAIL.Attachments.Add(MY_ATTACH)
        Dim SmtpMail As New SmtpClient
        SmtpMail.Host = "smtp.gmail.com"
        SmtpMail.EnableSsl = True
        Dim theCredential As New System.Net.NetworkCredential("novincontrol@gmail.com", "pass")
        SmtpMail.Credentials = theCredential
        SmtpMail.Send(MY_EMAIL)

پیمان یکشنبه 29 آبان‌ماه سال 1390 ساعت 07:26 ق.ظ

0 نظر

برقراری ارتباط با بانک داده اکسس در ویژوال بیسیک

در این مثال شما یک جدول به نام Table1 دارید و بانک اکسس با اکسس 2007 تولید شده ابتدا جدول ما را پر میکند و بعد فیلد سوم رکورد اول را به ما به صورت پیغام گزارش میدهد :

Dim aa As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Database2.accdb;Persist Security Info=False")

        Dim hhh As String = "select * from Table1"
        Dim ds As New DataSet
        Dim bb As New OleDb.OleDbDataAdapter(hhh, aa)
        Dim ff As New OleDb.OleDbCommand(hhh, aa) 'For MSG
        bb.Fill(ds, "Table1")
        aa.Open()
        Dim ccc As OleDb.OleDbDataReader 'For MSG
        ccc = ff.ExecuteReader() 'For MSG
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "Table1"
        ccc.Read() 'For MSG
        MsgBox(ccc(2))