Code:
Dim Poruka As New MailMessage
Poruka.Attachments.Clear()
Poruka.From = "[email protected]"
Poruka.To = "[email protected]"
Poruka.Subject = "TEST PORUKA"
Poruka.BodyFormat = MailFormat.Text
Poruka.Body = "Tekst test poruke"
If FileExists("c:\test.txt") Then
Poruka.Attachments.Add(New MailAttachment("C:\test.txt"))
'Regularni txt fajl (36 bytes)
End If
SmtpMail.SmtpServer = "smtp.ptt.yu"
SmtpMail.Send(Poruka)
Dim Poruka As New MailMessage
Poruka.Attachments.Clear()
Poruka.From = "[email protected]"
Poruka.To = "[email protected]"
Poruka.Subject = "TEST PORUKA"
Poruka.BodyFormat = MailFormat.Text
Poruka.Body = "Tekst test poruke"
If FileExists("c:\test.txt") Then
Poruka.Attachments.Add(New MailAttachment("C:\test.txt"))
'Regularni txt fajl (36 bytes)
End If
SmtpMail.SmtpServer = "smtp.ptt.yu"
SmtpMail.Send(Poruka)
Kod se izvrši bez greške, ali poruka ne ide dalje od SMTP servera.