Suchergebnisse
Suchergebnisse 1-24 von insgesamt 24.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
-
Hey, ich möchte verschiedene E-Mail anhänge aus einem kompletten Ordner versenden. Hier mein code: Dim attachmemt As Attachment = Nothing ... ... attachment = New Attachment(Textbox1.Text & "test.txt") mail.Attachments.Add(attachment) Er sendet aber immer nur 1 Anhang. Wie kann ich es machen, das er den kompletten Inhalt des Ordners sendet? *Topic verschoben*
-
Habe den code zuerst in form load gepackt. Ich teste es. Er sendete die anhänge. Aber danach schloss sich das Programm. Als ich den code in timer_tick packte, kam die Fehlermeldung: timeout wegen Überlagerung. Ist das wegen meiner schlechten Internet Verbindung (wegen den anhängen) oder ist irgendwas mit mein code nicht in Ordnung? Dim smtpServer As New SmtpClient() Dim mail As New MailMessage() Dim attachment As Attachment = Nothing smtpServer.Credentials = New Net.NetworkCredential(TB_Email.Te…
-
Sorry habe eine falsche fehlermeldung vorhin geschrieben. Ich meinte, da kommt immer der fehler. Fehler: Timeout für den Vorgang wurde überschritten Habe try / catch weg gemacht und es auf ein button getestet. Da kommt immer die Fehlermeldung: Fehler: Timeout für den Vorgang wurde überschritten. Woran liegt das?
-
Habe es irgendwie hin bekommen. Danke für die Antwort. Jetzt möchte ich erreichen, das wenn er den Ordner Inhalt sendet die gesendeten Dateien löscht. Was ich erreichen will ist, wenn ich Dateien in diesem Ordner einfüge, soll er es senden (habe ich geschafft) und anschließend die gesendete Dateien löscht mit msgbox("gesendet und gelöscht"). Wer kann mir dabei helfen?
-
Das klappt irgendwie nicht. Wenn ich per Async sende smtpServerAsync.Send(mail) geht nicht. Das Wort Async nimmt er nicht. Habe es auch so probiert: Private Shared Sub SendCompletedCallback(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs) ' Get the unique identifier for this asynchronous operation. Dim token As String = CStr(e.UserState) If e.Cancelled Then Console.WriteLine("[{0}] Send canceled.", token) End If If e.Error IsNot Nothing Then Console.WriteLine("[{0}] {1}", token, e.Err…
-
Sobald es ums löschen geht, kommt immer diese Fehlermeldung: In System.IO.IOException ist eine Ausnahme von Typ "mscorlib.dll" aufgetreten, doch wurde diese im Benutzercode nicht verarbeitet. Der Prozess kann nicht auf die Datei zugreifen, da sie von einem anderen Prozess verwendet wird. Falls ein Handler für diese Ausnahme vorhanden ist, kann das Programm möglicherweise weiterhin sicher ausgeführt werden. Es liegt glaub ich nicht ans senden, sondern um irgendwas anderes. Woran könnte es liegen?
-
Habe den lösch code genau wie du es geschrieben hast unter : If e.Error Is Nothing Then Dim DeleteFiles As String() Dim FileName AS String If System.IO.Directory.Exists("C:\Users\System1\Test\") Then DeleteFiles = IO.Directory.GetFiles("C:\Users\System1\Test\", "*.txt") For i As Integer = 0 To UBound(DeleteFiles) FileName = System.IO.Path.GetFileName(Delete Files(i)) IO.File.Delete("C:\Users\System1\Test\" & FileName) Next End If Den gleichen Pfad wie die mail
-
Ich habe rum probiert und leider klappt das nicht so wie ich mir das vorstelle SmtpClient ist ein IDisposable, dessen Instanz solltest Du beim Senden erstellen und beim Beenden des Sendens disposen. Das verstehe ich auch nicht richtig ganz. Habe es versucht mit smtpServer.Dispose(). Aber leider will mein Programm nicht so wie ich es mir vorstelle
-
Hier der komplette code. mail.Dispose nimmer er nicht da mail nicht (irgendwie) vorhanden ist: Public Class Form1 Private Shared mailSent As Boolean = False Private Shared Sub SendCompletedCallback(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs) If e.Error Is Nothing Then MsgBox("gesendet!", MsgBoxStyle.Information) Mail.Dispose() Dim DelelteFiles As String() Dim FileName As String If System.IO.Directory.Exists(TB_Speicherpfad.Text) Then DelelteFiles = IO.Directory.GetFiles(TB_Speich…
-
Das klappt bei mir nicht. Wenn ich: Public Class Form1 Dim smtpServer As SmtpClient Dim mail As MailMessage dieses usw. ins Public Class Form1 packe, kommt immer ein grüner kringel unter smtpServer und mail. Wenn ich es unter: Private Sub SendCompletedCallback schreibe, kommt auch eine Fehlermeldung, aber nur wenn ich es ohne New schreibe. Und alleine nur: smtpServer.Dispose() mail.Dispose() geht auch nicht. Ich weiß nicht was ich verkehrt mache. Oder liegt das vielleicht an den Imports? Bin am …
-
Ja. Habe das Programm mit dem code gestartet: Private Shared Sub SendCompletedCallback... Dim smtpServer As SmtpClient = Nothing Dim mail As MailMessage = Nothing If e.Error Is Nothing Then smtpServer. Dispose() mail.Dispose() Dann kommt Fehlermeldung bei smtpServer.Dispose() und mail.Dispose(): Der Objektverweis wurde nicht auf eine Objekt Instanz festgelegt
-
Genau so habe ich es gemacht: Public Class Form1 Dim smtpServer As SmtpClient Dim mail As MailMessage ' ... Private Sub cmd_senden_Click(sender As Object, e As EventArgs) Handles cmd_senden.Click smtpServer = New SmtpClient() mail = New MailMessage() '... smtpServer.SendAsync(mail, "") End Sub Private Sub SendCompletedCallback(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs) 'Mail gesendet smtpServer.Dispose() mail.Dispose() If e.Error Is Nothing Then 'Hier die Dateien löschen End If …