Suchergebnisse

Es funktioniert danke schön. PS: Hatte den code abgekürzt geschrieben mit Private Sub SendCompletedCallback... Hätte ich es geschrieben wie es stand hätte ich die Lösung schon eher. Danke

Hier meine beiden Screenshots. Ich hoffe ihr könnt mir helfen. Auf visual basic ist NET.framework 4.5 eingestellt.

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 …

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

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 …

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…

Dann kommt eine Fehlermeldung: "Dispose" ist kein Member von "Mail". Habe es dann so geschrieben; If e.Error Is Nothing Then Dim mail As New MailMessage() mail = New MailMessage() mail.Dispose() Aber es klappt noch nicht.

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

Habe jetzt so geschrieben: smtpServer.SendAsync(mail, "") smtpServer.Dispose() Das klappt noch nicht. Ist das eine schwere Geburt.

Wie kann ich den Instanz SmtpClient beim senden erstellen und beenden disposen? Wie geht das?

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

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?

Das Wort Async nimmt er nicht. Dann komm Fehlermeldung: Fehler bei der Überladungsauflösung, da keine zugreifbare "SendAsync" diese Anzahl von Argumenten akzeptiert.

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…

Es lag daran, das ich Environment.SpecialFolder.Desktop geschrieben habe, anstatt: System.Environment.SpecialFolder.Desktop.

Hallo, habe wieder eine Frage. Und zwar habe ich einen Ordner wo sich Dateien befinden. Alle Dateien in diesem Ordner sollen nach dem senden wieder gelöscht werden. Mein Problem ist, wenn er die Dateien sendet, kommt eine Fehlermeldung, das der Zugriff auf diesem Pfad mit einem anderen Prozess verwendet wird. Wie bekomme ich es hin wenn er die Daten sendet dann auch gelöscht werden? Hier mein code: Dim smtpServer As New SmtpClient() Dim mail As New MailMessage() Dim attachment As Attachment = No…

Ich habe es hin bekommen. Danke noch mal für die antworten

Habe ich gemacht. Habe jegliche Imports schon drin. Ich schätze es lag daran, das ich Environment.SpecialFolder.Desktop geschrieben habe, anstatt: System.Environment.SpecialFolder.Desktop. Danke nochmals für eure antworten Wenn irgendwas nicht klappt, melde ich mich wieder

Ich hab anwendungsframework deaktiviert und die Imports bereits gemacht. Da kommt immer die Fehlermeldung, das Environment nicht deklariert ist. Aus das Objekt kann auf Grund der Schutzstufe möglicherweise nicht zugegriffen werden. Woran liegt das?

Ich habe es hin bekommen, das ich den code als Text in die Ressourcen hinzugefügt habe und mit Regex.Replace einzelne stellen im Text geändert werden kann. Nun ist meine frage, wenn ich jetzt anstatt z.b. C:\Users\System1\Destop ändere in Environment. GetFolderPath(Environment. SpecialFolder.Desktop) , dann sagt mir der Compiler das Environment nicht deklariert ist. Wie kann ich Environment deklarieren?

Also ich habe versucht den code mit codedom Compiler als string zunehmen. So: (code ist gekürzt) ... Dim code As String = _ ... c34 & TB2_ScreenUhr.Text & c34 & " = " & "System.DateTime.Now" & nl & _ c34 & TB2_ScreenUhr.Text & c34 & " = sText" ... Bei dem kam immer Fehlermeldung, das es ein Syntax fehler ist, aber ich kein Fehler drin sehe (TB2_ScreenUhr.Text ist eine textbox). Der code funktioniert, aber als Compiler code (c34, usw) nicht. Jetzt kam ich auf die Idee den gesamten code als Ressou…

Es geht darum, das man in der textbox seinen speicherpfad eingeben kann. Und zum Schluss eine exe erstellt. Die exe bewirkt, das wenn man auf die erstellte exe klickt einen Screenshot auf die in der textbox eingeben Pfad speichert. Wie bekomme.ich es hin?

Hey, ich habe ein Compiler. Und dazu eine Ressource code Datei. Auf meiner Form habe ich Textboxen. Wenn man in einer textbox was eingibt, soll es auch in der Ressource code Datei stehen und nach einem button klick mit dem Compiler complieren. Den Compiler habe ich bereits im button stehen. Wie bekomme ich es hin, das was man in der textbox eingibt auf den code übertragen wird?

Ich habe TB2_ScreensUhr.Text auch deklariert mit Friend WithEvents TB2_ScreensUhr As New System.Windows.Forms.Textbox. da müsste doch eig. kein Fehler drin sein. Liegt es denn an der textbox oder an die system.DateTime.Now ? So gut kenne ich mich leider auch nicht aus. Und wenn ich den code als Ressource nehme kann ich den leider im Laufzeit nicht mehr bearbeiten weil man ja dann praktisch die Ressource ändern muss wegen den Angaben wie textbox usw.

Habe ich gelesen. Aber den Compiler brauche ich dazu. Ich verstehe es irgendwie nicht

Ich habe es gefunden. Zeile 27 und 32. diese Zeilen: (27) "" & TB2_ScreensUhr.Text & "" & " = " & "System.Date.Time.Now" & vbCrLf & _ (32) "" & TB2_ScreensUhr.Text & "" & " = s.Text" & cbCrLf & _ Aber wo sind hier dir beiden Syntax Fehler?

OK danke, aber daran liegt es nicht. Die beiden Fehler kommen trotzdem. Woran liegt das?

Wie geht das? Wer kann mir helfen mit bisschen code den zu istanzieren?

Habe ich gemacht. Die Syntax fehler gehen dadurch aber nicht weg. Wer kann mir helfen?

Verstehe ich irgendwie nicht so ganz. Wenn ich compilieren will muss ich ja chr(34) vor und nach jeden wort , das z.b. textbox ist hinzufügen. Andere Wörter ja vor und danach einfach nur " hinzufügen. Oder liege ich da falsch?