Also ich bekomme diesen Fehler beim Verschicken der E-Mail, ich habe diesen Code aber auch in 2 anderen Programmen drin und da funtz es habe ihn ja 1:1 zu kopiert und nur denn Ordnerpfad angepasst
Das ist Zeile 389
Der Code funtz in 3 anderen Programmen nur diesmal net -_-
Wisst ihr vllt warum es nicht geht, in denn anderen Programmen sendet er die E-Mail ja ohne fehler
Das ist Zeile 389
Der Code funtz in 3 anderen Programmen nur diesmal net -_-
VB.NET-Quellcode
- Dim Message As New MailMessage
- Dim Credentials As New System.Net.NetworkCredential
- Credentials.UserName = ""
- Credentials.Password = ""
- Message.IsBodyHtml = False
- Dim Client As New SmtpClient()
- Client.Host = "mail.arcor.de"
- Client.Port = 25
- Client.UseDefaultCredentials = False
- Client.Credentials = Credentials
- Try
- Message.From = New MailAddress("")
- Message.To.Add(""")
- Message.Subject = ""
- Message.Body = ""
- Dim Folder As String = Application.StartupPath & "\Log\"
- Dim Data As Attachment
- For Each Files As String In IO.Directory.GetFiles(Folder)
- Dim FileName As String = IO.Path.GetFileName(Files)
- Data = New Attachment(Folder & FileName, MediaTypeNames.Text.Plain)
- ArrayList.Add(Folder & FileName)
- Message.Attachments.Add(Data)
- Next
- Client.Send(Message)
- Catch ex As Exception
- MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString)
- End Try
- Message.Attachments.Dispose()
- DeleteFile()
Wisst ihr vllt warum es nicht geht, in denn anderen Programmen sendet er die E-Mail ja ohne fehler