отсылка файла по e-mail

[HBasic]

Не подкините ли кусочек кода отсылки файла по e-mail?Буду благодарен.

[phantomstealth]

Чем хочешь отсылать? Winsock? Или еще что-нибудь?

[iGrok]

Не подкините ли кусочек кода отсылки файла по e-mail?Буду благодарен.

Ищи в кирпичах класс для работы с почтой..

[HBasic]

Не подкините ли кусочек кода отсылки файла по e-mail?Буду благодарен.

Ищи в кирпичах класс для работы с почтой..

Класс-то я нашел.Только там примеры больно замудренные.Мне бы по минимумум и чтоб работало.

[HBasic]

Чем хочешь отсылать? Winsock? Или еще что-нибудь?

Неее.Не Winsock.Я использую SmtpMail.

[awl100Alex]

HBasic
Лучше всего использовать объектную модель CDO (Collaboration Data Objects) - набор библиотек для работы с электронной почтой. Просто, быстро и универсально. Смотри здесь...
http://www.askit.ru/custom/sql2005_admin/m8/08_02_04_sql_server_cdo.htm
А вот реализация отправки почты из VB...

Код: Выделить всё

Private Sub Form_Load()
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration") 'Конфигурация CDO...
   With cdoConfig.Fields 'Вносим изменения в поля...
     .Item(sch & "sendusing") = 2 'Устанавливаем протокол SMTP
     .Item(sch & "smtpserver") = "smtpserver.com" 'имя SMTP-Сервера или IP адрес
     .Update 'Сохраняем измененную конфигурацию
   End With

   Set cdoMessage = CreateObject("CDO.Message") 'Модель CDO...
   With cdoMessage
      Set .Configuration = cdoConfig
      .From = "UserFrom@smtpserver.com" 'От кого
      .To = "UserTo@smtpserver.com"   'Кому
      .BodyPart.Charset = "windows-1251" 'Устанавливаем кириллицу для текста сообщения
      .Subject = "Отправка почты" 'Тема сообщения
      .TextBody = "Сообщение по SMTP из объектной модели CDO.Message" 'Сообщение
      '.AddAttachment "C:\1.txt" 'Добавляем вложение
      .Send 'Отправляем...
   End With
 
  Set cdoMessage = Nothing
  Set cdoConfig = Nothing
End Sub

[phantomstealth]

Я сделал через WinSock, очень простой код без классов, принимает(с вложениями) и посылает почту, только вот проблема русский язык показывает йероглифами. Если нужно могу выкинуть... Может в кодировке кто-то разберется и сделает как надо

З.Ы. хочя вот сейчас получил почту без йероглифов, вообщем непонятно

[Хакер]

Ну у тебя значение поля Content-Type имеет значение, соответствующее кодировке, в которой закодирован текст письма?

[phantomstealth]

Content-Type: text/plain;
CLIENT: QUIT
+OK
SERVER: charset=UTF-8
Content-Transfer-Encoding: 8bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: PhpBB3
X-MimeOLE: phpBB3
X-phpBB-Origin: phpbb://bbs.vbstreets.ru

Здравствуйте, phantomstealth!


Получаю данные через Winsock.GetData response
где response выдается без раскодировки

[Хакер]

И?

[phantomstealth]

И... (Глупо улыбаюсь), что... я думал что показал Content-Type
С вашего форума русский не расспознается, с форума про спутники все на русском, я не знаю где в сообщении из SMPT пишется кодировка

[Хакер]

Я не просил его.

[phantomstealth]

Ну у тебя значение поля Content-Type имеет значение, соответствующее кодировке, в которой закодирован текст письма?

Это не мне?

[Хакер]

Это было тебе.

[angst]

HBasic
Лучше всего использовать объектную модель CDO (Collaboration Data Objects) - набор библиотек для работы с электронной почтой. Просто, быстро и универсально. Смотри здесь...
http://www.askit.ru/custom/sql2005_admin/m8/08_02_04_sql_server_cdo.htm
А вот реализация отправки почты из VB...

Код: Выделить всё

Private Sub Form_Load()
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration") 'Конфигурация CDO...
   With cdoConfig.Fields 'Вносим изменения в поля...
     .Item(sch & "sendusing") = 2 'Устанавливаем протокол SMTP
     .Item(sch & "smtpserver") = "smtpserver.com" 'имя SMTP-Сервера или IP адрес
     .Update 'Сохраняем измененную конфигурацию
   End With

   Set cdoMessage = CreateObject("CDO.Message") 'Модель CDO...
   With cdoMessage
      Set .Configuration = cdoConfig
      .From = "UserFrom@smtpserver.com" 'От кого
      .To = "UserTo@smtpserver.com"   'Кому
      .BodyPart.Charset = "windows-1251" 'Устанавливаем кириллицу для текста сообщения
      .Subject = "Отправка почты" 'Тема сообщения
      .TextBody = "Сообщение по SMTP из объектной модели CDO.Message" 'Сообщение
      '.AddAttachment "C:\1.txt" 'Добавляем вложение
      .Send 'Отправляем...
   End With
 
  Set cdoMessage = Nothing
  Set cdoConfig = Nothing
End Sub

А не подскажите, как корректно пройти авторизацию в этой реализации на VB?

[awl100Alex]

Какую еще авторизацию?

[awl100Alex]

А... ты имеешь в виду на сервере???..

Так смотри ссылку... Там же все описано детально. Вот, например, нужно просто дополнить в поля .Fields...

Код: Выделить всё

Имя пользователя и пароль можно передать точно так же:

oMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = _
"YourLogin@YourDomain.com"

oMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = _
"Password"