email sender vb 2010

[wakmen]

ik heb een email sender gemaakt in vb 2010 maar nu werkt hij niet.
als ik een email verzend dan krijg ik een melding!
zie bijlag foto1Bekijk bijlage 137279
en dit is mijn programmaatje! zie bijlag
Bekijk bijlage 137281
en ik gebruik deze code:
Imports System.Net.Mail
Public Class Form1

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim message As New MailMessage()
        message.From = New MailAddress(TextBox1.Text)
        message.To.Add(TextBox3.Text)
        message.Subject = TextBox4.Text
        message.Body = TextBox5.Text

        Dim smtp As New SmtpClient("smtp.gmail.com")
        smtp.EnableSsl = True
        smtp.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
        smtp.Send(message)
        MsgBox("Bericht verzonden")
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Start()
        Timer1.Stop()
    End Sub
End Class

wat doe ik mis???

 

[crash]

Heeft niks met "Overige software"te maken, daarom naar Visual basic verplaatst.

 

[wakmen]

ik vermoed dat je dat alle gedaan hebt???
en weet je de oplossing op mijn vraag?

 

[JoZ1]

En als je dit toevoegt:

[cpp]SMTP.Port = 587[/cpp]

(Onder: Dim smtp As New SmtpClient("smtp.gmail.com"))

 

[wakmen]

zal eens proberen

bedankt het werkt oneindig maal bedankt

en hoe moet ik nu vb ik wil een email sturen van hotmail naar gmail welke code moet ik daar voor gebruiken??
want van gmail naar hotmail gaat maar omgekeerd niet welke code is daarvoor nodig?

 

[JoZ1]

[CPP]Dim smtp As New SmtpClient("smtp.gmail.com")
[/CPP]
wordt

[CPP]Dim smtp As New SmtpClient("smtp.live.com")[/CPP]

 

[wakmen]

bedankt !

maar als ik meerdere wilt vb tergelijker tijd hotmail en gmail dan moet ik dan zo doen



Dim smtp As New SmtpClient("smtp.gmail.com")
Dim smtp As New SmtpClient("smtp.live.com")
ze onder elkaar zetten?

 

[JoZ1]

Je zou dit kunnen doen:

Stel TextBox1.Text is de afzender:

[cpp]
If TextBox1.Text.TrimEnd(" ").EndsWith("@live.nl") Or TextBox1.Text.TrimEnd(" ").EndsWith("@hotmail.com") Then
Dim smtp As New SmtpClient("smtp.live.com")
Else
Dim smtp As New SmtpClient("smtp.gmail.com")
End If[/cpp]

Dat TrimEnd(" ") gebruik ik omdat er soms per ongeluk een spatie achter gezet kan worden door de gebruiker.

 

[Tha Devil]

@wakman: Gelieve je bericht aanpassen wanneer je toevoegingen hebt zonder dat er op gereageerd is in plaats van steeds een nieuwe reactie te plaatsen.

 

[wakmen]

waar moet ik het plaatsen???
onder wat waar?
en sorry dat ik veel vragen stel!

 

[JoZ1]

Vragen stellen mag hier op Helpmij .

Je kunt dit:

[CPP]Dim smtp As New SmtpClient("smtp.gmail.com")[/CPP]

vervangen door die code.

 

[wakmen]

dan krijg ik een error
local variable 'smtp' is already declared in the current block.
en plaats het onder

Dim smtp As New SmtpClient("smtp.gmail.com")

dus zo

Dim smtp As New SmtpClient("smtp.gmail.com")
Dim smtp As New SmtpClient("smtp.gmail.com")

twee keer het zelfde!

 

[JoZ1]

Nee,

[CPP]Dim smtp As New SmtpClient("smtp.gmail.com")[/CPP]

wordt vervangen door:

[CPP]If TextBox1.Text.TrimEnd(" ").EndsWith("@live.nl") Or TextBox1.Text.TrimEnd(" ").EndsWith("@hotmail.com") Then
Dim smtp As New SmtpClient("smtp.live.com")
Else
Dim smtp As New SmtpClient("smtp.gmail.com")
End If[/CPP]

 

[wakmen]

jaa oke

dan krijg ik de volgende probleem
Bekijk bijlage 137309

 

[JoZ1]

Oh ja, natuurlijk. Maak er dan maar dit van:

[cpp]Dim Server As String
If TextBox1.Text.TrimEnd(" ").EndsWith("@live.nl") Or TextBox1.Text.TrimEnd(" ").EndsWith("@hotmail.com") Then
Server = "smtp.live.com"
Else
Server = "smtp.gmail.com"
End If
Dim smtp As New SmtpClient(Server)[/cpp]

 

[wakmen]

hoe kom je zo snel aan die code?

 

[JoZ1]

Tja, veel gedaan?

Nu werkt het, hè?
Zo ja: Zet je de vraag op Opgelost?
Zo nee: Verklaar je nader.

 

[wakmen]

nee toch niet nu krijg ik het volgende
Bekijk bijlage 137311

 

[JoZ1]

Da's wel vreemd, want bij mij werkt precies dezelfde code wel.

 

[wakmen]

nu werkt het wel bedankt en als ik meerdere wilt toevoegen? hoe dan