far inviare e-mail

[mexican]

Ciao a tutti,ho dato uno sguardo nel forum ma non trovo quello che vorrei.Allora io ho bisogno di far inviare un' e-mail in automatico dopo aver fatto un upload, al momento ho:

Sub Salva(s as Object, e as EventArgs)
connetti()

dim strsql as string
dim rs as OleDbDataReader
dim cmdInsert as OleDbCommand


strsql="Update Transazioni set "
strsql=strsql & "prezzo='" & replace(prezzo.text, "'", "''") & "'"
strsql=strsql & " where id_trans=" & idtrans.text
'response.Write(strsql)
'response.End()
cmdInsert=new OleDbCommand(strsql, conn)
cmdInsert.ExecuteNonQuery()
conn.close

testo_pagamento="E' stato abbinato il prezzo alla sua richiesta
Il prezzo abbinato è:" & replace(prezzo.text, "'", "''") & "€
Per effettuare il pagamento accedere all'area riservata e continuare la procedura."
InviaEmail(testo_pagamento)
messaggio.text="Prezzo Abbinato"

end sub

Private Sub InviaEmail(sender as Object, e as EventArgs)
'if email.text<>"" then
Dim mailObj AS new MailMessage

'Setto i vari parametri
mailObj.From = "Email"
mailObj.To = "Email"
mailObj.Subject = "Prezzo Abbinato alla Transazione"
mailObj.Body = testo_pagamento

'Formato HTML della email
mailObj.BodyFormat = MailFormat.Html
'SmtpMail.SmtpServer = "serversmtp"
SmtpMail.SmtpServer = "smtp"
SmtpMail.Send(mailObj)

'messaggio.text="E-Mail inviata"
'else
' messaggio.text="L'E-Mail non può essere inviata in quanto l'utente non ha l'indirizzo di posta elettronica."
'end if

end sub

Ma non me la invia in automatico, cioè mi da errore dove sbaglio?

[andriex]

Mail.SmtpMail.Send(from, to, oggetto, Messaggio)
Mail.SmtpMail.SmtpServer = smtp


prova così

[mexican]

Originariamente inviato da andriex
Mail.SmtpMail.Send(from, to, oggetto, Messaggio)
Mail.SmtpMail.SmtpServer = smtp


prova così