2
Email Versenden Mit VB
Hey,ich würde gerne wissen wie man mit VB eine Email versenden kann.
Ich habe schon folgendes versucht,aber es hat nicht geklappt.
Dim MyEmail As New MailMessage
Dim Absender As String = "userinformationsmptvbnez@gmail.com"
Dim Empfänger As String = "userinformationsmptvbnez@gmail.com"
Dim Betreff As String = GetHwId()
Dim PasswortMail As String = "Mein PW :p"
Try
MyEmail.From = New MailAddress(Absender)
MyEmail.To.Add(Empfänger)
MyEmail.Subject = (Betreff)
MyEmail.Body = (Betreff)
Dim smtp As New SmtpClient("smtp.web.de")
smtp.Port = 587
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential(Absender, PasswortMail)
Catch ex As Exception
MsgBox("Ein Fehler ist aufgetreten")
End Try
Wäre nett,wenn mir jmd da weiterhelfen könnte
Ich habe schon folgendes versucht,aber es hat nicht geklappt.
Dim MyEmail As New MailMessage
Dim Absender As String = "userinformationsmptvbnez@gmail.com"
Dim Empfänger As String = "userinformationsmptvbnez@gmail.com"
Dim Betreff As String = GetHwId()
Dim PasswortMail As String = "Mein PW :p"
Try
MyEmail.From = New MailAddress(Absender)
MyEmail.To.Add(Empfänger)
MyEmail.Subject = (Betreff)
MyEmail.Body = (Betreff)
Dim smtp As New SmtpClient("smtp.web.de")
smtp.Port = 587
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential(Absender, PasswortMail)
Catch ex As Exception
MsgBox("Ein Fehler ist aufgetreten")
End Try
Wäre nett,wenn mir jmd da weiterhelfen könnte
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 316158
Url: https://administrator.de/contentid/316158
Printed on: April 16, 2024 at 20:04 o'clock
2 Comments
Latest comment
Habe eben von Google eine Mail bekommen,das ein Anmeldeversuch blockiert wurde,hat also wohl doch funktioniert^^ Google war nur n bisschen langsam
Naja, du sendest die Mail in deinem Code ja gar nicht 
Mail mit GMAIL:
Grüße Uwe
Mail mit GMAIL:
Const SENDERMAILADDRESS = "user@gmail.com"
Const RECIPIENTADDRESS = "user@domain.de"
Const USERNAME = "user@gmail.com"
Const PASSWORD = "GEHEIM"
Using mail As New System.Net.Mail.MailMessage
mail.From = New System.Net.Mail.MailAddress(SENDERMAILADDRESS)
mail.To.Add(RECIPIENTADDRESS)
mail.Subject = "Testsubject"
mail.Body = "Mein Body"
Using smtp = New System.Net.Mail.SmtpClient("smtp.gmail.com", "587")
Try
With smtp
.Credentials = New System.Net.NetworkCredential(USERNAME, PASSWORD)
.EnableSsl = True
.Send(mail)
End With
MsgBox("Mail wurde versendet.",MsgBoxStyle.Information)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Using
End Using