كود ارسال ايميل للمضافين في قاعدة البيانات ..

جرب الكود ده لارسال لكل واحد على حسب جمل ال Select

  Dim DBConn As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)
        Dim DBCommand As SqlDataAdapter = New SqlDataAdapter("Select email from emailtable", DBConn)
        Dim DataSettable As New DataSet
        Dim I As Long
        DBCommand.Fill(DataSettable, "emailtable")

        For I = 0 To DataSettable.Tables("emailtable").Rows.Count - 1
            'ده الايميل
            Dim mail As String = DataSettable.Tables("emailtable").Rows(I).Item("email")
            ' اكتب كود الارسال هنا

        Next

بس الافضل و اللى انا بستخدم ببعت لكل المستخدمين مرة واحد علشان معالجة البيانات و عدد مرات الارسال هتاخد وقت كبير الكود ده افضل بيجمع كل الايميل و بيبعت مرة واحد اختر اللى يناسبك

و بردو بحتك طبعا التحديد فى جملة ال Select

   Dim DBConn As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)
        Dim DBCommand As SqlDataAdapter = New SqlDataAdapter("Select email from emailtable", DBConn)
        Dim DataSettable As New DataSet
        Dim I As Long
        DBCommand.Fill(DataSettable, "emailtable")
        'ده الايميل
        Dim allmail As String = Nothing
        For I = 0 To DataSettable.Tables("emailtable").Rows.Count - 1
            allmail += DataSettable.Tables("emailtable").Rows(I).Item("email") + ","
        Next

        ' اكتب كود الارسال هنا