Email

[silvia11/12/80]

Sto provando ad inviare un'email cosi
Imports System.Web.Mail.MailMessage
Imports System.Web.Mail.SmtpMail

Sub Invia_Email(ByVal destinatario As String)
Try
Dim mail As New Mail.MailMessage()
Dim smt As New Mail.SmtpMail()
mail.From = ""
mail.To = ""
mail.Subject = "Invio Curriculum"
mail.Body = "E' arrivato"
'invia(davvero!)
SmtpMail.Send(mail)

'lblMessage.InnerHtml = "E-mail inviata con successo!"
Catch exc As Exception
'lblMessage.InnerHtml = "Errore nell'invio del " End Try
End Sub
Mi da l'errore su "SmtpMail.Send(mail)" Perchè?

[Alendar]

scusa ma la Try la chiudi dopo il Catch?

[Daniele80]

Sub Invia(Sender As Object, E As EventArgs) 
	Try 
		Dim mail As New MailMessage 

		mail.From = "info@sito.com" 
			
        	mail.To = Email.Texy
		mail.Subject = Titolo.Text 
		mail.Body = Testo.text
	
		' invia davvero! 
		SmtpMail.Send(mail)

		' nascondo la form 
		form1.visible = false 

		lblMessage.Text = "E-mail inviata con successo!" 
	Catch exc As Exception 
		lblMessage.Text = "Errore nell'invio del messaggio:
" & exc.ToString 
	End Try 
end sub

[zampa28]

Non penso che il problema sia la chiusura del Try. Che errore ti da?

[silvia11/12/80]

Mi da errore al "SmtpMail.Send(Mail)" secondo lui non esiste

[Daniele80]

sei sicura di aver il CDONTS installato?

[silvia11/12/80]

e se non lo avessi che cosa dovrei fare

[Daniele80]

lo devi mettere:
http://www.oscarjsweb.com/topic.asp?topid=42