Meni npr. ovo radi (isto je u pitanju Sezam i Plesko):
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