mail sender met timer

Status
Niet open voor verdere reacties.
T

tiommy2

Gebruiker
Lid geworden
27 jan 2009
Berichten
7
hallo allemaal,

ik ben een mail sender aan het maken maar ik wil dat ik een error (msgbox) krijg wanneer een textbox niet ingevult is. dit is wat ik nu heb:
Code: 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            Dim MyMailMessage As New MailMessage()
        If usernamebox.Text = Nothing Then
            MsgBox("error")
        Else
            MyMailMessage.From = New MailAddress(usernamebox.Text)

        End If
        MyMailMessage.To.Add(tobox.Text)
        MyMailMessage.Subject = (subjectbox.Text)
        MyMailMessage.Body = messagebox.Text
        If Not Browse.Text = Nothing Then
            Dim attach As Net.Mail.Attachment = New Net.Mail.Attachment(Browse.Text)
            MyMailMessage.Attachments.Add(attach)

        End If
        Dim SMTPServer As New SmtpClient(server.Text)
        SMTPServer.Port = port.Text
        SMTPServer.Credentials = New System.Net.NetworkCredential(usernamebox.Text, passwordbox.Text)
        SMTPServer.EnableSsl = True
        sent.Text = Val(sent.Text + 1)
        SMTPServer.Send(MyMailMessage)
        If (sent.Text = max.Text) Then Timer1.Stop()
    End Sub

tnx alvast!

Edit: als ik deze code gebruik dan krijg ik oneindig msgboxen
 
Laatst bewerkt:
[cpp]If usernamebox.Text = Nothing Then
MsgBox("error")
Else[/cpp]

Veranderen in:

[cpp]If usernamebox.Text = Nothing Then
MsgBox("error")
Timer1.Stop()
Else[/cpp]
 
heb ik gedaan alleen ik krijg nog steeds oneinig msgboxen andere suggesties?
 
Laatst bewerkt door een moderator:
nu staar er dus dit:
[CPP]Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim MyMailMessage As New MailMessage()
If usernamebox.Text = Nothing Then
MsgBox("error")
Timer1.Stop()
Else
MyMailMessage.From = New MailAddress(usernamebox.Text)
End If
MyMailMessage.To.Add(tobox.Text)
MyMailMessage.Subject = (subjectbox.Text)
MyMailMessage.Body = messagebox.Text
If Not Browse.Text = Nothing Then
Dim attach As Net.Mail.Attachment = New Net.Mail.Attachment(Browse.Text)
MyMailMessage.Attachments.Add(attach)

End If
Dim SMTPServer As New SmtpClient(server.Text)
SMTPServer.Port = port.Text
SMTPServer.Credentials = New System.Net.NetworkCredential(usernamebox.Text, passwordbox.Text)
SMTPServer.EnableSsl = True
sent.Text = Val(sent.Text + 1)
SMTPServer.Send(MyMailMessage)
If (sent.Text = max.Text) Then Timer1.Stop()
End Sub[/CPP]
 
ik heb net zelf nog even gekeken en heb bij de start.button die code die jij mij gaf neergezet dus nu:
[CPP]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If max.Text = "" Then
Timer1.Start()
Else
Me.Timer1.Interval = max.Text
Me.Timer1.Enabled = True

End If
If usernamebox.Text = "" Then
MsgBox("error. username")
Me.Timer1.Stop()
End If
End Sub[/CPP]
nu krijg ik maar een msgbox alleen krijg ik nu nog een error van microsoft .net framework
de timer code als je die nodig hebt:
[CPP]Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress(usernamebox.Text)
MyMailMessage.To.Add(tobox.Text)
MyMailMessage.Subject = (subjectbox.Text)
MyMailMessage.Body = messagebox.Text
If Not Browse.Text = Nothing Then
Dim attach As Net.Mail.Attachment = New Net.Mail.Attachment(Browse.Text)
MyMailMessage.Attachments.Add(attach)
End If
Dim SMTPServer As New SmtpClient(server.Text)
SMTPServer.Port = port.Text
SMTPServer.Credentials = New System.Net.NetworkCredential(usernamebox.Text, passwordbox.Text)
SMTPServer.EnableSsl = True
sent.Text = Val(sent.Text + 1)
SMTPServer.Send(MyMailMessage)
If (sent.Text = max.Text) Then Timer1.Stop()

End Sub[/CPP]
 
Laatst bewerkt door een moderator:
dan krijg ik nog steeds de error:
Code: 
 De Parameter address kan geen lege tekenreeks zijn parameternaam: adress.
 
Laatst bewerkt door een moderator:
tiommy2 zei:
nu krijg ik maar een msgbox alleen krijg ik nu nog een error van microsoft .net framework
Klik om te vergroten...

Welke error krijg je?
 
Code: 
 De Parameter address kan geen lege tekenreeks zijn parameternaam: adress.
 
Laatst bewerkt door een moderator:
Code: 
Zie het einde van dit bericht voor meer informatie over het aanroepen 
van JIT-foutopsporing (Just In Time) in plaats van dit dialoogvenster.

************** Tekst van uitzondering **************
System.ArgumentException: De parameter address kan geen lege tekenreeks zijn.
Parameternaam: address
   bij System.Net.Mail.MailAddress..ctor(String address, String displayName, Encoding displayNameEncoding)
   bij mailbomberbyme.Form1.Timer1_Tick(Object sender, EventArgs e) in C:\Users\HackerInside\Documents\Visual Studio 2010\Projects\mailbomberbyme - kopie\mailbomberbyme\Form1.vb:regel 44
   bij System.Windows.Forms.Timer.OnTick(EventArgs e)
   bij System.Windows.Forms.Timer.TimerNativeWindow.WndProc(Message& m)
   bij System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)


************** Geladen assembly's **************
mscorlib
    Assembly-versie: 4.0.0.0
    Win32-versie: 4.0.30319.239 (RTMGDR.030319-2300)
    CodeBase: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll
----------------------------------------
mailbomberbyme
    Assembly-versie: 1.0.0.0
    Win32-versie: 1.0.0.0
    CodeBase: file:///C:/Users/HackerInside/Documents/Visual%20Studio%202010/Projects/mailbomberbyme%20-%20kopie/mailbomberbyme/bin/Release/mailbomberbyme.exe
----------------------------------------
Microsoft.VisualBasic
    Assembly-versie: 10.0.0.0
    Win32-versie: 10.0.30319.1 built by: RTMRel
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
    Assembly-versie: 4.0.0.0
    Win32-versie: 4.0.30319.236 built by: RTMGDR
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Core
    Assembly-versie: 4.0.0.0
    Win32-versie: 4.0.30319.233 built by: RTMGDR
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll
----------------------------------------
System.Windows.Forms
    Assembly-versie: 4.0.0.0
    Win32-versie: 4.0.30319.235 built by: RTMGDR
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
    Assembly-versie: 4.0.0.0
    Win32-versie: 4.0.30319.1 built by: RTMRel
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Runtime.Remoting
    Assembly-versie: 4.0.0.0
    Win32-versie: 4.0.30319.1 (RTMRel.030319-0100)
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Runtime.Remoting/v4.0_4.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------
System.Configuration
    Assembly-versie: 4.0.0.0
    Win32-versie: 4.0.30319.1 (RTMRel.030319-0100)
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Configuration/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
----------------------------------------
System.Xml
    Assembly-versie: 4.0.0.0
    Win32-versie: 4.0.30319.233 built by: RTMGDR
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------
System.resources
    Assembly-versie: 4.0.0.0
    Win32-versie: 4.0.30319.1 built by: RTMRel
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.resources/v4.0_4.0.0.0_nl_b77a5c561934e089/System.resources.dll
----------------------------------------
mscorlib.resources
    Assembly-versie: 4.0.0.0
    Win32-versie: 4.0.30319.235 (RTMGDR.030319-2300)
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/mscorlib.resources/v4.0_4.0.0.0_nl_b77a5c561934e089/mscorlib.resources.dll
----------------------------------------
System.Windows.Forms.resources
    Assembly-versie: 4.0.0.0
    Win32-versie: 4.0.30319.1 built by: RTMRel
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms.resources/v4.0_4.0.0.0_nl_b77a5c561934e089/System.Windows.Forms.resources.dll
----------------------------------------

************** JIT-foutopsporing **************
Als u JIT-foutopsporing wilt inschakelen, moet in het configuratiebestand voor deze
toepassing of computer (machine.config) de waarde
jitDebugging in het gedeelte system.windows.forms zijn ingesteld.
De toepassing moet ook zijn gecompileerd terwijl foutopsporing
was ingeschakeld.

Bijvoorbeeld:

<configuration>
    <system.windows.forms jitDebugging="true" />
</configuration>

Wanneer JIT-foutopsporing is ingeschakeld, worden onverwerkte uitzonderingen
naar het JIT-foutopsporingsprogramma gestuurd dat op de computer is geregistreerd
en worden niet door dit dialoogvenster verwerkt.
 
Laatst bewerkt door een moderator:
Haha, sorry. Ik mag je niet helpen met Mailbombers. :P
Hackerinside, lol :P

Ik vroeg trouwens om iets anders; de regel waar de fout in zat.
 
Ik ga af op de kennis van JoZ1 en sluit deze topic. Hier werken wij op Helpmij niet aan mee. Nog eenmaal zo een vraag en je krijgt een offciele waarschuwing.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan