Отправка письма с вложением

Отправляем сообщение с вложением.

Imports System.Net.Mail
Imports System.Text
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     Dim email As New MailMessage
     Dim smtp As SmtpClient
     smtp = New SmtpClient("Smtp сервер") ' Пример smtp.mail.ru
     smtp.Credentials = New Net.NetworkCredential("Ваш e-mail", "Ваш пароль")
     email.From = New MailAddress("Ваш e-mail")
     email.To.Add(New MailAddress("Кому хотите отправить e-mail")
     email.Body = "Тут будет текст сообщения"
     email.Subject = "Заголовок сообщения" 
     email.Attachments.Add(New System.Net.Mail.Attachment("Путь к файлу, вложение")) ' Пример D:/SendMessage.exe
     smtp.Send(email)
End Sub

Загрузить проект от AeroWhite

E Mail Отправка письма с вложением

  Метки:
  Евгений
  Просмотров: 6 226
  Запись опубликована в 17:52

4 комментария

  • при попытке скачать вложение антивирусник выдает сообщение о зараженном файле

    • Каспер не ругается. Не скачивай, или антивирус поменяй.

  • Привет! А что на киберфоруме забанили?( :cry: :cry: :cry:

Есть что сказать? Тогда действуй!


:wink: :twisted: :roll: :oops: :mrgreen: :lol: :idea: :evil: :cry: :arrow: :?: :-| :-o :-P :-D :-? :) :( :!: 8-O 8)