Nested Loop Vb

[aperlscript]

א גוטן,
וואס איך וויל איז א ער זאל לופן יעדע אימעיל אין די ליסט אין שיקן די אימעיל וחוזר חלילה פאר סאם ריזען כאף איך נישט פארוואס ער ארבעט נישט ווי עס ברויך צו זיין איי עפרישיעט עני העלפ

קאוד:

 Sub Authenticate()
        'create the mail message
        ' chkemail()

            Dim mail As New MailMessage()
         
            'set the addresses
            mail.From = New MailAddress(UserId.Text)

            CurrentSendLbl.Text = ""
            'set the content
            mail.Subject = SubjectTxt.Text
            ' mail.Body = BodyTxt.Text
         
            'send the message
       
            Dim smtp As New SmtpClient("smtp.gmail.com")

            'to authenticate we set the username and password properites on the SmtpClient
            smtp.Port = 587
            smtp.Credentials = New System.Net.NetworkCredential(UserId.Text, MaskedTextBox1.Text)
            smtp.EnableSsl = True
            Try
                chkemail()
                Dim ProgresBar As Integer
                ProgressBar1.Visible = True
                ProgressBar1.Style = ProgressBarStyle.Blocks
                For ProgresBar = 1 To 100
                    Me.ProgressBar1.Value = ProgresBar

                    ProgressBar1.ForeColor = Color.GreenYellow
                    Threading.Thread.Sleep(25)


                Next
                Dim final As New List(Of String)
                Dim str As String
                Dim strArr() As String
                Dim count As Integer
                str = ToAddressTxt.Text
                strArr = str.Split(";")
                For count = 0 To strArr.Length - 1
                      final.Add(strArr(count))


                    For Each item As String In final

                        CurrentSendLbl.Text = "Now Sending to:" & item
                        mail.Bcc.Add(item)
                        smtp.Send(mail)
                    Next

                Next

                ' CurrentSendLbl.Text = ""
                smtp.Timeout = 600000
                MessageBox.Show("Send Succesfull")



                CurrentSendLbl.Text = ""
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
            ProgressBar1.Visible = False

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



וואס עס געשעט איז אז ער צו יעדע אדדרעס אין די אימעיל ליסט שיקט ער "אימעילס" אין א לופ דאס הייסט אויב איז דא אין די ליסט דריי אימעילס צו ער צום ערשטן אדדרעסס 8-9 אימעילס מיט די זעלבע קאנטענט...

[לאז געמאכט]

נעם ארויס די מיטעלסטע לופ פון די ערשטע לופ.

אגב די פראגרעס באר טוט גארניש קיין גוט'ס דא...

[לאז געמאכט]

קאוד:

For count = 0 To strArr.Length - 1
                      final.Add(strArr(count))
Next

                    For Each item As String In final
                        CurrentSendLbl.Text = "Now Sending to:" & item
                        mail.Bcc.Add(item)
                        smtp.Send(mail)
                Next


[aperlscript]

ייש''כ לאזגעמאכט
כווייס אז די פראגרעס באר איז דא מורה'דג...
דאס איז מיר טאקע געליגן אויף די ליסט צו פרעגן נעקסט, וויאזוי מאך איך דאס ארבעטן ריכטיג? אין ווי אויך די CurrentSendLbl ארבייט נישט, וויאזוי קען אין דאס מאכן ארבייטן צוזאמען מיט די פראגרעס באר?

[לאז געמאכט]

כ'האב טאקע געוואלט דאס אויך מגיב זיין, נאכן סעטן די לעבעל דארף מען שרייבן Application.DoEvents() אז נישט קומט ער נישט ארויף פארן באנוצער ווייל ער איז נאך ביזי מיט אנדערע זאכן. משא"כ ווען מ'שרייבט די ליין טוט ער קודם וואס מ'האט געהייסן ביז אהער און דאן איז ער ממשיך. די זעלבע דארף מען נוצן אויך ביי די פראגראס באר ווי מ'זעהט אין די פאלגענדע קאוד:

[לאז געמאכט]

קאוד:

    Sub Authenticate()
        'create the mail message
        Dim mail As New MailMessage(UserId.Text, "To@gmail.com", SubjectTxt.Text, BodyTxt.Text)
        CurrentSendLbl.Text = ""

        'send the message
        Dim smtp As New SmtpClient("smtp.gmail.com", 587)

        'to authenticate we set the username and password properites on the SmtpClient

        smtp.Credentials = New System.Net.NetworkCredential(UserId.Text, MaskedTextBox1.Text)
        smtp.EnableSsl = True

        Try
            chkemail()
            ProgressBar1.Visible = True
            ProgressBar1.Style = ProgressBarStyle.Blocks
            ProgressBar1.ForeColor = Color.GreenYellow
            smtp.Timeout = 600000
                Dim str As String = ToAddressTxt.Text

                Dim final = str.Split(";").ToList

                Dim I = 0

                For Each item As String In final
                    I += 1
                Me.ProgressBar1.Value = (100 / final.Count) * I
                    CurrentSendLbl.Text = "Now Sending to:" & item
                    Application.DoEvents()
                    mail.Bcc.Add(item)
                    smtp.Send(mail)
                Next
            MessageBox.Show("Send Succesfull")

            CurrentSendLbl.Text = ""
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        ProgressBar1.Visible = False

מערקט ווי כ'האב ארויסגעשניטן גאנצע שטיקער קאוד וואס איז פשוט געווען איבריג.

[לאז געמאכט]

פארגעסן מוסיף צו זיין, - אולי איזעס זעלבסט פארשטענדליך - אז כ'האב דעם קאוד נישט עקטשעלי געטעסט סא אויב ארבעט עס נישט האבניש מורא עס צו טוישן כפי הצורך. אויבן אויף קוקט ער אויס גוט אבער.

[aperlscript]

יישכ לאז פאר דיין הילף,
די פראגרעס באר ארבעט יעצט זייער פיין ווי אויך די Current Send Label
נאכן טעסטן, זע איך אז ער שיקט נאר אימעילס לויטן סדר, איך לייג אריין 4 אימעילס פארן ערשטן שיקט ער 4 צוויטן 3 דריטן 2 פערטן 1 (בעסער ווי אריגינעל וואס דעמאלטס האט ער געשיקט אין אזא פאל 8-9 פארן ערשטן)
איך האב געלייגט א ברעיק ביי Mail.bcc.Add אין עס אדורך געגאנגען ,דארט גייט ער נאר איינמאל פער אימעיל אבער איך באקום דאס אפאר מאל כנ''ל, ווי אויך ווען איך טשעק אנליין אין די אקואנט זע איך אז דאס איז געשיקט געווארן 4 מאל

[לאז געמאכט]

נו זיכער אזוי.... יעדע מאל די לופ לויפט דורך שיקט ער נאכאמאל פאר יעדן וואס ער האט שוין אין די ליסט. די עצה דערצו איז אדער צו שיקן דעם אימעיל נאכן לאאפ אדער ארויסנעמען די געשיקטע אדערעסן. די ערשטע וועג איז גרינגער.

[לאז געמאכט]

קאוד:

    Sub Authenticate()
        'create the mail message
        Dim mail As New MailMessage(UserId.Text, "To@gmail.com", SubjectTxt.Text, BodyTxt.Text)
        CurrentSendLbl.Text = ""

        'send the message
        Dim smtp As New SmtpClient("smtp.gmail.com", 587)

        'to authenticate we set the username and password properites on the SmtpClient

        smtp.Credentials = New System.Net.NetworkCredential(UserId.Text, MaskedTextBox1.Text)
        smtp.EnableSsl = True

        Try
            chkemail()
            ProgressBar1.Visible = True
            ProgressBar1.Style = ProgressBarStyle.Blocks
            ProgressBar1.ForeColor = Color.GreenYellow
            smtp.Timeout = 600000
                Dim str As String = ToAddressTxt.Text

                Dim final = str.Split(";").ToList

                Dim I = 0

                For Each item As String In final
                    I += 1
                Me.ProgressBar1.Value = (100 / final.Count) * I
                    CurrentSendLbl.Text = "Now Sending to:" & item
                    Application.DoEvents()
Mail.Bcc.Clear()
                    mail.Bcc.Add(item)
                    smtp.Send(mail)
               
            MessageBox.Show("Send Succesfull")

            CurrentSendLbl.Text = ""
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        ProgressBar1.Visible = False

.

דא האביך צוגעלייגט צו קליערן די אימעיל ליסטע פארן שיקן. עס איז אבער מער אויסגעהאלטן צו לייגן די סענט נאכן נעקסט אזוי ארום וועט זיך אלע שיקן מיט איין מאל. כ'האב עס ניישט אזוי געמאכט ווייל די פראגראס באר וועט נישט האבן קיין באדייט לפ"ז.

[aperlscript]

יעצט באמערק איך אז די האסט געשריבן די סעמפל אין אדדרעסט מיין אישו לאמיר דאס פראבירן נאכאמאל

[aperlscript]

קאוד:

    Sub Authenticate()
        'create the mail message
        Dim mail As New MailMessage(UserId.Text, "To@gmail.com", SubjectTxt.Text, BodyTxt.Text)
        CurrentSendLbl.Text = ""

        'send the message
        Dim smtp As New SmtpClient("smtp.gmail.com", 587)

        'to authenticate we set the username and password properites on the SmtpClient

        smtp.Credentials = New System.Net.NetworkCredential(UserId.Text, MaskedTextBox1.Text)
        smtp.EnableSsl = True

        Try
            chkemail()
            ProgressBar1.Visible = True
            ProgressBar1.Style = ProgressBarStyle.Blocks
            ProgressBar1.ForeColor = Color.GreenYellow
            smtp.Timeout = 600000
                Dim str As String = ToAddressTxt.Text

                Dim final = str.Split(";").ToList

                Dim I = 0

                For Each item As String In final
                    I += 1
                Me.ProgressBar1.Value = (100 / final.Count) * I
                    CurrentSendLbl.Text = "Now Sending to:" & item
                    Application.DoEvents()
Mail.Bcc.Clear()
                    mail.Bcc.Add(item)
                    smtp.Send(mail)
               
            MessageBox.Show("Send Succesfull")

            CurrentSendLbl.Text = ""
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        ProgressBar1.Visible = False

.

דא האביך צוגעלייגט צו קליערן די אימעיל ליסטע פארן שיקן. עס איז אבער מער אויסגעהאלטן צו לייגן די סענט נאכן נעקסט אזוי ארום וועט זיך אלע שיקן מיט איין מאל. כ'האב עס ניישט אזוי געמאכט ווייל די פראגראס באר וועט נישט האבן קיין באדייט לפ"ז.

ב''ה , יעצט ארבעט ער פיין! ס' איז בעסער צו קליערן בעפאר'ן שיקן , 1 וויל ווי געזאגט וויל איך די פראגרעסס באר זאל ארבעטן ריכטיג, 2 ווייל ווען מען שיקט מיט SMTP איז דא א לימיט פון 100 קאנטאקסט פער אימעיל (ביי גימעיל איז די לימיט 500) ווי אויך גלייב איך אז וועט ארבעטן שווערער צו שיקן אסאך אויף איינמאל
שכוח לאז