Moin,
ich habe eine Frage bezüglich des Versendens von E-Mails. Ich möchte über VB.net mit meiner Hotmailadresse E-Mails versenden. Ich habe jetzt auch schon ne Weile gegoogelt, weiß aber nicht wo mein fehler liegt. Nachfolgend mein aktuelle Quellcode:
Imports System.IO
Imports System.Web
Imports System.Net.Mail
Partial Public Class ThisProject
Public Sub Macro_EMAIL_senden()
Dim mail = New MailMessage
mail.From = New MailAddress("****@hotmail.de")
mail.To.Add("****@hotmail.de")
mail.Subject = "BetrefF"
mail.Body = "Beispiel"
Dim client As SmtpClient = New SmtpClient("smtp.live.com", 25)
Try
client.Credentials = New System.Net.NetworkCredential("****@hotmail.de", "PW",)
client.EnableSsl = True
client.Send(mail)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End
Class
Leider bekomme ich immer die Fehlermeldung. (Fehler beim Senden von Mail).
Sieht jemand vllt den Fehler bzw. weiß was ich ergänzen muss.
Vielen Dank für die Hilfe.
ich habe eine Frage bezüglich des Versendens von E-Mails. Ich möchte über VB.net mit meiner Hotmailadresse E-Mails versenden. Ich habe jetzt auch schon ne Weile gegoogelt, weiß aber nicht wo mein fehler liegt. Nachfolgend mein aktuelle Quellcode:
Imports System.IO
Imports System.Web
Imports System.Net.Mail
Partial Public Class ThisProject
Public Sub Macro_EMAIL_senden()
Dim mail = New MailMessage
mail.From = New MailAddress("****@hotmail.de")
mail.To.Add("****@hotmail.de")
mail.Subject = "BetrefF"
mail.Body = "Beispiel"
Dim client As SmtpClient = New SmtpClient("smtp.live.com", 25)
Try
client.Credentials = New System.Net.NetworkCredential("****@hotmail.de", "PW",)
client.EnableSsl = True
client.Send(mail)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End
Class
Leider bekomme ich immer die Fehlermeldung. (Fehler beim Senden von Mail).
Sieht jemand vllt den Fehler bzw. weiß was ich ergänzen muss.
Vielen Dank für die Hilfe.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „aNd12121“ ()