none
Функция отправки почты RRS feed

  • Вопрос

  • Я создал функцию (VB) для отправки почты (возможно неправильно). Проверено: всё работает. Вот только одна проблема. В эту функцию передаётся один необязательный аргумент: файл. Я хочу по почте отправлять вложение. Но не знаю как это сделать. Подскажите, как можно реализовать такую задачу?

      Private Function отправить_сообщение(ByRef отправитель As String, ByRef получатель As String, ByRef тема As String, ByRef текст As String, Optional ByVal файл As System.Collections.IList = Nothing) As Boolean
        'задача: попробовать отправить сообщение с вложением файла.
    
        Dim Smtp As New SmtpClient("smtp.mail.ru", 25) 'указывается почтовый сервер
        Dim Message As New Mail.MailMessage
    
        'непонятно что
        Smtp.Credentials = New NetworkCredential("gorojopa", "q123456")
        Smtp.EnableSsl = False
    
        'заполнение почты (кому, от кого, что, куда)
        Message.From = New MailAddress(отправитель)
        Message.To.Add(New MailAddress(получатель))
        Message.Subject = тема
        Message.Body = текст
    
        'попытка
        Try
    
          'отправить
          Smtp.Send(Message)
    
          'возврат положительного результата
          Return True
    
        Catch ex As Exception
    
          'возвращаем отрицательный результат
          Return False
    
        End Try
    
      End Function
    
    


    Sergey
    2 июня 2011 г. 21:00

Ответы