אידישע וועלט פארומס

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


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

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

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

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

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

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

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

יישכ לאז פאר דיין הילף,
די פראגרעס באר ארבעט יעצט זייער פיין ווי אויך די 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

.

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

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

לאז געמאכט האט געשריבן:

לאז געמאכט האט געשריבן:

קאוד:

    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) ווי אויך גלייב איך אז וועט ארבעטן שווערער צו שיקן אסאך אויף איינמאל
שכוח לאז