Skicka epost

Jag har den här koden som fungerar bra på min dator men den fungerar inte på mitt webhotell.

sub skicka(sender as object, e as eventargs)
		Dim mm As New MailMessage()
		mm.From = tbEpost.text
		mm.To = tbTill.selecteditem.value
		mm.Subject = tbRubrik.text
		mm.Body = "Hej." & vbcrlf & _
		"Namn:"& tbNamn.text &""& vbcrlf & _
		"Telefon:"& tbTel.text &""& vbcrlf & _
		"E-post:"& tbEpost.text &""& vbcrlf & _
		"Kommentar:"& replace(tbKommentar.text,"vbcrlf",""& vbcrlf &"") &"."
		SmtpMail.Send(mm)
		lblMessage.text = "<br />Din fråga är skickad"
		
	end sub

Någon som vet om det går att skicka mail på något annat sätt?

Varför fungerar det inte på ditt webbhotell? Något felmeddelande?

kolla med try catch

inga felmeddelanden men det komer inte fram några mail.

kolla med try catch

Hur gör jag det?
det fungerar perfekt när jag kör det på min dator

Har de någon smtp? Tilllåter deras smtp att de skickar ut mail? Ligger de bakom en brandvägg som stoppar smtp? unt so wieter som sydlänningarna säger.

det står så här på hemsidan

Vår smtp-server innehåller ett skydd för så kallad spam. Detta innebär att endast existerande konton kan skicka e-post via vår smtp-server.

Är det därför det inte fungerar?

Kan man skicka mail på något annat sätt?

Testa att lägga till

[red]
SmtpMail.SmtpServer = "din smtp server";
[/red]

mvh icaaq

tack. Nu fungerar det :)