E-mailversand mit Progressbar

  • VB.NET

Es gibt 38 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    E-mailversand mit Progressbar

    Hallo! Mit folgendem Code versende ich eine E-mail mit Anhang) :

    VB.NET-Quellcode

    1. Using M As New MailMessage()
    2. With M
    3. .From = New MailAddress(tbAbsender.Text)
    4. .Subject = tbBetreff.Text
    5. .To.Add(tbEmpfaengerAdresse.Text)
    6. .Body = tbnachricht.Text
    7. ' Alle ausgewählten Anhänge mitschicken
    8. For Each Fi As FileInfo In liAnhaenge.Items
    9. .Attachments.Add(New Attachment(Fi.FullName))
    10. Next
    11. End With
    12. Dim MailServer As New SmtpClient(Host)
    14. With MailServer
    15. .Credentials = New NetworkCredential(UserName, Pw)
    16. .Send(M)
    17. End With


    Funktioniert tadellos - nur ist der Anhang etwas größer dauert natürlich der Versand dementsprechend - da wäre es nicht schlecht eine Progressbar einzubauen damit der Anwender sieht das sich was tut.

    Nun leider habe ich null Ahnung wie ich das bewerkstellige! Ich bitte inständig um eure Hilfe

    @vierkant:: Täusche einfach Geschäftigkeit vor. Nimm eine Progressbar und gib ihr den Style = Marquee.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ja ok! Also dann brauch noch einen Timer vermute ich, der jeden Tick der Progressbar einen

    VB.NET-Quellcode

    1. Progressbar1.value +1
    gibt. Und wie sage ich der Progressbar wann Schluss ist bzw. wann die Mail erfolgreich draußen ist?


    Vergiss es! Hab es schon verstanden!!! Sorry Danke für die Hilfe

    vierkant schrieb:

    vermute ich
    Nein.
    Probier es bitte erst mal aus, sieh, was passiert, dann schreib Deine Meinung.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Gefällt mir gut! Nur jetzt hab ich ein anderes Problem:

    die Progressbar hab ich auf visible=false gesetzt, bevor der mailversand beginnt wird sie auf true gesetzt. Nur Leider tut er das nicht. Hier mal mein ganzer "E-mail senden" Code:

    VB.NET-Quellcode

    1. Private Sub bnSenden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnSenden.Click
    4. tbEmpfaengerAdresse.BackColor = Color.White
    5. tbAbsender.BackColor = Color.White
    6. If My.Settings.host = Nothing Then
    7. If MsgBox("Sie müssen vorher die mail Einstellungen konfigurieren, wollen sie das jetzt tun?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
    8. Form3.Show()
    9. Form3.TabControl1.SelectedTab = Form3.TabPage7
    10. End If
    12. Else
    16. If My.Settings.mailbenutzer = Nothing Then
    17. If MsgBox("Sie müssen vorher die mail Einstellungen konfigurieren, wollen sie das jetzt tun?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
    18. Form3.Show()
    19. Form3.TabControl1.SelectedTab = Form3.TabPage7
    20. End If
    22. Else
    26. If My.Settings.mailpass = Nothing Then
    27. If MsgBox("Sie müssen vorher die mail Einstellungen konfigurieren, wollen sie das jetzt tun?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
    28. Form3.Show()
    29. Form3.TabControl1.SelectedTab = Form3.TabPage7
    30. End If
    32. Else
    33. If tbAbsender.Text = Nothing Then
    34. MsgBox("Sie müssen eine Absenderadresse eingeben")
    35. tbAbsender.BackColor = Color.Red
    36. Else
    37. If tbEmpfaengerAdresse.Text = Nothing Then
    38. MsgBox("Sie haben keine Empfänger angegeben")
    39. tbEmpfaengerAdresse.BackColor = Color.Red
    40. Else
    42. Try
    44. ProgressBar1.Visible = True
    45. bnSenden.Enabled = False
    46. bnSenden.Text = "es wird gesendet"
    48. Using M As New MailMessage()
    49. With M
    50. .From = New MailAddress(tbAbsender.Text)
    51. .Subject = tbBetreff.Text
    52. .To.Add(tbEmpfaengerAdresse.Text)
    53. .Body = tbnachricht.Text
    54. ' Alle ausgewählten Anhänge mitschicken
    55. For Each Fi As FileInfo In liAnhaenge.Items
    56. .Attachments.Add(New Attachment(Fi.FullName))
    57. Next
    58. End With
    59. Dim MailServer As New SmtpClient(Host)
    60. Try
    61. With MailServer
    62. .Credentials = New NetworkCredential(UserName, Pw)
    63. .Send(M)
    64. End With
    66. Me.Close()
    68. MsgBox("Mail wurde verschickt")
    70. Catch Ex As SystemException
    71. MsgBox("Error: " & Ex.Message)
    72. End Try
    73. End Using
    74. Catch Ex As SystemException
    75. MsgBox("Error: " & Ex.Message)
    76. End Try
    77. End If
    78. End If
    79. End If
    80. End If
    81. End If
    83. End Sub



    Der gerammte Code arbeitet wie er soll mit Ausnahme folgender Passage:

    VB.NET-Quellcode

    1. ProgressBar1.Visible = True
    2. bnSenden.Enabled = False
    3. bnSenden.Text = "es wird gesendet"

    Von dieser Passage wird lediglich bnSenden.Enabled = False erledigt.
    gebe ich auf der selben Passage zum Beispiel

    VB.NET-Quellcode

    1. msgbox("Test")
    ein, macht auch die msgbox auf!

    Was läuft den da schief, verstehe ich gar nicht

    vierkant schrieb:

    Nur Leider tut er das nicht.
    Machst Du

    VB.NET-Quellcode

    1. Me.ProgressBar1.Update()
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    vierkant schrieb:

    Nur leider mein Problem löst es nicht
    Das hier:

    RodFromGermany schrieb:

    VB.NET-Quellcode

    1. Me.ProgressBar1.Update()
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dann pack das Versenden in einen separaten Thread / BackgroundWorker.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    vierkant schrieb:

    Um Gottes Willen
    Der Herr hilft Dir dabei nicht, das musst Du allein tun.
    Fang mit einem BackgroundWorker aus dem Designer an.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    So hab nun einen Backgroundworker auf meine Form gezogen.

    Dem Button "senden" auf der Form hab ich folgendes angeschafft:

    VB.NET-Quellcode

    1. BackgroundWorker1.RunWorkerAsync()


    ok anschließend mit doppelklick auf Backgroundworker1 und folgenden Code eingetippt:

    VB.NET-Quellcode

    1. Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    3. Try
    11. Using M As New MailMessage()
    12. With M
    13. .From = New MailAddress(tbAbsender.Text)
    14. .Subject = tbBetreff.Text
    15. .To.Add(tbEmpfaengerAdresse.Text)
    16. .Body = tbnachricht.Text
    17. ' Alle ausgewählten Anhänge mitschicken
    18. For Each Fi As FileInfo In liAnhaenge.Items
    19. .Attachments.Add(New Attachment(Fi.FullName))
    20. Next
    21. End With
    22. Dim MailServer As New SmtpClient(Host)
    23. Try
    24. With MailServer
    25. .Credentials = New NetworkCredential(UserName, Pw)
    26. .Send(M)
    27. End With
    29. Me.Close()
    31. MsgBox("Mail wurde verschickt")
    33. Catch Ex As SystemException
    34. MsgBox("Error: " & Ex.Message)
    35. End Try
    36. End Using
    37. Catch Ex As SystemException
    38. MsgBox("Error: " & Ex.Message)
    39. End Try
    40. End Sub


    Führe ich das ganze aus kommt folgende Meldung:


    Hääää? Hier mal ein Code von meiner Form - vielleicht hat es damit was zu tun?

    VB.NET-Quellcode

    1. Imports System.Net.Mail
    2. Imports System.Net
    3. Imports System.IO
    4. Imports System.Xml.Serialization
    5. Public Class Form12
    10. Private Host As String = My.Settings.host
    11. Private UserName As String = My.Settings.mailbenutzer
    12. Private Pw As String = My.Settings.mailpass

    Aloa,

    du versuchst vom Background Worker aus auf ein Element der Form zuzugreifen (ne Listbox?!) usw...
    Das ist erstmal so nicht erlaubt und deshalb schmeißt er die Fehlermeldung.
    Schau mal bisl nach dem Zauberwort Invoke und überlege ob es wirklich nötig ist, auf die GUI zuzugreifen.
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

    vierkant schrieb:

    Hääää?
    Du sollst Emils versenden im BGW, nicht aber Controls verändern.

    VB.NET-Quellcode

    1. Me.Invoke(Sub() TextBox1.Text = "Bla")
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ok hab das mal so geändert:

    VB.NET-Quellcode

    1. Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    9. Try
    11. Using M As New MailMessage()
    12. With M
    13. .From = New MailAddress(tbAbsender.Text)
    14. Me.Invoke(Sub() .Subject = tbBetreff.Text)
    15. Me.Invoke(Sub() .To.Add(tbEmpfaengerAdresse.Text))
    16. Me.Invoke(Sub() .Body = tbnachricht.Text)
    17. ' Alle ausgewählten Anhänge mitschicken
    18. For Each Fi As FileInfo In liAnhaenge.Items
    19. Me.Invoke(Sub() .Attachments.Add(New Attachment(Fi.FullName)))
    20. Next
    21. End With
    22. Dim MailServer As New SmtpClient(Host)
    25. With MailServer
    26. Me.Invoke(Sub() .Credentials = New NetworkCredential(UserName, Pw))
    27. Me.Invoke(Sub() .Send(M))
    28. End With
    30. Me.Invoke(Sub() Me.Close())
    32. MsgBox("Mail wurde verschickt")
    33. End Using
    34. Catch Ex As SystemException
    35. MsgBox("Error: " & Ex.Message)
    36. End Try
    39. End Sub


    der mail Versand funktioniert jetzt wieder. die Progressbar wird angezeigt aber es friert wieder alles im Zeitraum des Versendens ein und somit Arbeitet auch die Processbar leider nicht (marquee)

    Wenn du Invoke verwendest solltest du auch besser wissen was es macht :)

    VB.NET-Quellcode

    1. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. Me.Invoke(Sub()
    3. 'z.B Auf sämtliche Controls zugreifen ...
    6. End Sub)
    7. End Sub

    Du musst es nicht in jeder Zeile neu benutzen.
    msdn.microsoft.com/de-de/libra…ws.forms.form.invoke.aspx

    ok danke, gut zu wissen - dachte mir schon das , das sehr umständlich ist! Aber die Procressbar läuft noch immer nicht!

    Während dem die mail gesendet wird friert das gesamte Programm ein - sobald die mail drausen ist läuft wieder alles - daher wird auch die Progressbar nicht laufen.

    Ich hab mal den Code meiner gesamten Form hier - vielleicht seit ihr so nett und schaut ihn durch, eventuell findet ja jemand den Grund warum das Programm einfriert.

    VB.NET-Quellcode

    1. Imports System.Net.Mail
    2. Imports System.Net
    3. Imports System.IO
    5. Public Class Form12
    10. Private Host As String = My.Settings.host
    11. Private UserName As String = My.Settings.mailbenutzer
    12. Private Pw As String = My.Settings.mailpass
    16. Private Sub bnSenden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnSenden.Click
    19. tbEmpfaengerAdresse.BackColor = Color.White
    20. tbAbsender.BackColor = Color.White
    21. If My.Settings.host = Nothing Then
    22. If MsgBox("Sie müssen vorher die mail Einstellungen konfigurieren, wollen sie das jetzt tun?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
    23. Form3.Show()
    24. Form3.TabControl1.SelectedTab = Form3.TabPage7
    25. End If
    27. Else
    31. If My.Settings.mailbenutzer = Nothing Then
    32. If MsgBox("Sie müssen vorher die mail Einstellungen konfigurieren, wollen sie das jetzt tun?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
    33. Form3.Show()
    34. Form3.TabControl1.SelectedTab = Form3.TabPage7
    35. End If
    37. Else
    41. If My.Settings.mailpass = Nothing Then
    42. If MsgBox("Sie müssen vorher die mail Einstellungen konfigurieren, wollen sie das jetzt tun?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
    43. Form3.Show()
    44. Form3.TabControl1.SelectedTab = Form3.TabPage7
    45. End If
    47. Else
    48. If tbAbsender.Text = Nothing Then
    49. MsgBox("Sie müssen eine Absenderadresse eingeben")
    50. tbAbsender.BackColor = Color.Red
    51. Else
    52. If tbEmpfaengerAdresse.Text = Nothing Then
    53. MsgBox("Sie haben keine Empfänger angegeben")
    54. tbEmpfaengerAdresse.BackColor = Color.Red
    55. Else
    57. bnSenden.Text = " sende..."
    58. ProgressBar1.Visible = True
    59. bnSenden.Enabled = False
    63. BackgroundWorker1.RunWorkerAsync()
    76. End If
    77. End If
    78. End If
    79. End If
    80. End If
    82. End Sub
    86. Private Sub bnRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    87. For n As Short = 0 To liAnhaenge.SelectedItems.Count - 1
    88. liAnhaenge.Items.RemoveAt(liAnhaenge.SelectedIndices(0))
    89. Next
    90. End Sub
    94. Private Sub Form12_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    95. Dim bFileExists As Boolean
    96. If Not bFileExists = File.Exists(Path.GetDirectoryName(Application.ExecutablePath) & "\Daten\Überprüfungen\Überprüfungen.xml") Then Button1.Visible = True
    99. End Sub
    101. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    105. End Sub
    107. Private Sub liAnhaenge_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles liAnhaenge.SelectedIndexChanged
    110. End Sub
    113. Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
    115. End Sub
    117. Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    119. End Sub
    122. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    123. liAnhaenge.Items.Add(New FileInfo(Path.GetDirectoryName(Application.ExecutablePath) & "\Daten\Überprüfungen\Überprüfungen.xml"))
    124. ListBox1.Items.Add("Überprüfungen.xml")
    125. Button1.Enabled = False
    126. End Sub
    130. Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    134. Me.Invoke(Sub()
    138. Try
    140. Using M As New MailMessage()
    141. With M
    142. .From = New MailAddress(tbAbsender.Text)
    143. .Subject = tbBetreff.Text
    144. .To.Add(tbEmpfaengerAdresse.Text)
    145. .Body = tbnachricht.Text
    146. ' Alle ausgewählten Anhänge mitschicken
    147. For Each Fi As FileInfo In liAnhaenge.Items
    148. .Attachments.Add(New Attachment(Fi.FullName))
    149. Next
    150. End With
    151. Dim MailServer As New SmtpClient(Host)
    154. With MailServer
    155. .Credentials = New NetworkCredential(UserName, Pw)
    156. .Send(M)
    157. End With
    159. Me.Close()
    161. MsgBox("Mail wurde verschickt")
    162. End Using
    163. Catch Ex As SystemException
    164. MsgBox("Error: " & Ex.Message)
    165. End Try
    167. End Sub)
    168. End Sub
    170. End Class

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „vierkant“ ()