Springen naar inhoud


- - - - -
VS 2012 SOLVED

Mail Versturen Met Gmail

VS2012 Gmail Mail

  • Log in a.u.b. om te beantwoorden
Er zijn 2 reacties in dit onderwerp

#1 rob luttge

rob luttge

    Senior Developer

  • Leden
  • PipPipPip
  • 164 berichten
    Laatst bezocht 15 okt 2014 10:51

Geplaatst op 03 februari 2013 - 15:08

Goedemiddag allemaal,

Ik heb een probleem met het versturen van e-mail. Ik heb me suf gegoogled maar kom er toch niet uit. De respons is "the smtp server requires a secure connection or the client was not authenticated. (waarden adres en wachtwoord heb ik hier geanonimiseerd, maar staan well goed in de code). Alle input welkom.

Dank

Rob


Code:
	 Dim SmtpServer As New SmtpClient()
		 SmtpServer.DeliveryMethod = SmtpDeliveryMethod.Network
		 SmtpServer.EnableSsl = True
		 Dim mail As New MailMessage()
		 SmtpServer.Credentials = New Net.NetworkCredential("user@gmail.com", "pass")
		 SmtpServer.Port = 587
		 SmtpServer.Host = "smtp.gmail.com"
		 mail = New MailMessage()
		 mail.From = New MailAddress("otheruser@gmail.com")
		 mail.To.Add("otheruser@gmail.com")
		 mail.Subject = "Waarschuwing"
		 mail.Body = "testbericht."
		 SmtpServer.Send(mail)
		 MsgBox("mail send")




#2 Benno

Benno

    R.I.P.

  • Leden
  • PipPipPipPipPip
  • 949 berichten
    Laatst bezocht 08 mrt 2018 20:32
  • LocatieGyor, Magyarország

Geplaatst op 03 februari 2013 - 16:41

Visual Basic Code:
 Public Class GMail
	Private Const smtpGmail As String = "smtp.gmail.com"

	Public Shared Sub SmtpMail(fromAdres As String, toAdres As String,
									subject As String, body As String, naam As String, paswoord As String)
		Dim mail As New MailMessage()
		Dim SmtpServer As New SmtpClient(smtpGmail)
		mail.From = New MailAddress(fromAdres)
		mail.To.Add(toAdres)
		mail.Subject = subject
		mail.Body = body
		SmtpServer.Port = 587
		SmtpServer.Credentials = New System.Net.NetworkCredential(naam, paswoord)
		SmtpServer.EnableSsl = True
		SmtpServer.Send(mail)
	End Sub

' ...
End Class



#3 Benno

Benno

    R.I.P.

  • Leden
  • PipPipPipPipPip
  • 949 berichten
    Laatst bezocht 08 mrt 2018 20:32
  • LocatieGyor, Magyarország

Geplaatst op 03 februari 2013 - 16:46

Aanroep
Visual Basic Code:
Private Sub SturenClick(sender As Object, e As EventArgs) Handles Button1.Click
GMail.SmtpMail("benno@gmail.com", "rob@gmail.com", Titel.Text, Body.Text, "benno", "motdepasse")
End Sub


Werkt gewoon (wel met andere gegevens voor alle parameters, maar soit).





Ook met taq VS 2012 SOLVED, VS2012, Gmail, Mail voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VS 2012 SOLVED] Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)