slanje mail-a kod sezamhosting-a

Code:

Imports System.Data
Imports System.Configuration.ConfigurationManager
Imports System.Data.Sql.SqlDataSourceEnumerator
Imports System.Data.SqlClient
Imports System.IO
Imports System.Web.Mail
.
.
.

Private Sub send_an_e_mail()

        Dim sender_eMail As String = AppSettings("sender_eMail") ' u web.config-u je postavljeno na "[email protected]"
        SmtpMail.SmtpServer = AppSettings("SMTPServer") '  u web.config-u je postavljeno na "127.0.0.1"
        Dim emailMessage As MailMessage
        emailMessage = New MailMessage
        emailMessage.From = sender_eMail
        
        ' možeš da dodaš i atačment
        '******************************************** PLUS attachment
        'Dim AttachmentFile As String = "D:\tor_temp\tmpU$B\E-knjige\Visual_Basic\Ugovor.doc"
        'Dim attacheted_file As MailAttachment
        'attacheted_file = New MailAttachment(AttachmentFile, MailEncoding.Base64)
        'If File.Exists(AttachmentFile) Then
        '    emailMessage.Attachments.Add(attacheted_file) 'New MailAttachment(AttachmentFile)
        'End If
        '******************************************** PLUS attachment
        
        emailMessage.BodyFormat = MailFormat.Html   ' ili MailFormat.Text
        emailMessage.To = txtEmail.Text ' npr.    "[email protected]"
        emailMessage.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing", "2")
        emailMessage.Fields.Add("http://schemas.microsoft.com/c...guration/smtpconnectiontimeout", "10")
        emailMessage.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", "25")
        emailMessage.Subject="Neki generisani subject"
        emailMessage.Body="<p>Neki generisani HTML<p> a može i običantext."
        
        SmtpMail.Send(emailMessage)
        emailMessage = Nothing
        'attacheted_file = Nothing
        
        labPoslato.Text = "status :: E-mejl poslat ..."
        panZelena.BackImageUrl = "~/images/mail_poslat.png"
End Sub