Dim Maila As SmtpMail
Dim mailmsg As New MailMessage
With mailmsg
.From = "-"
.To = "Manuel.Babes@gmx.net"
.Subject = "-"
.Body = "-"
.Priority = MailPriority.High
.Attachments.Add(New MailAttachment(System.Environment.CurrentDirectory + "\daten.txt"))
End With
Try
SmtpMail.Send(mailmsg)
MessageBox.Show("Your mail has been successfully sent!")
Catch ex As Exception
MessageBox.Show("The following problem occurred when " & _
"attempting to send your mail: " & ex.InnerException.InnerException.Message)
End Try
so siehts aus nur bekomme ich dann die Meldung:
The following problem occurred when attempting to send your mail: Der "SendUsing"-Konfigurationswert ist ungültig
|