Hallo! Mit folgendem Code versende ich eine E-mail mit Anhang) :
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
VB.NET-Quellcode
- Using M As New MailMessage()
- With M
- .From = New MailAddress(tbAbsender.Text)
- .Subject = tbBetreff.Text
- .To.Add(tbEmpfaengerAdresse.Text)
- .Body = tbnachricht.Text
- ' Alle ausgewählten Anhänge mitschicken
- For Each Fi As FileInfo In liAnhaenge.Items
- .Attachments.Add(New Attachment(Fi.FullName))
- Next
- End With
- Dim MailServer As New SmtpClient(Host)
- With MailServer
- .Credentials = New NetworkCredential(UserName, Pw)
- .Send(M)
- 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