Как отправлять письма с Attachment-ом не более 450 Кб?

@VBnovichok · Регистрация: 13.11.2009

Author24 — интернет-сервис помощи студентам

Ситуация:
Из дирректории С:Temp нужно отправить файлы temp.rar, temp.r00, temp.r01, temp.r02 весом каждый 400КБ, а почтовый сервер не пропускает письма больше 450КБ

Цель:
Чтобы ?код VB? автоматически прикреплял все имеющиеся в данной папке файлы по одному к каждому письму (сколько файлов столько писем)

Имеем следующий код:

Visual Basic

Set SessionCtrl = CreateObject("MSMAPI.MAPISession")
If Err.Number <> 0 Then
MsgBox 'Error # ' & CStr(Err.Number) & vbLf & Err.Description
Err.Clear
End If
Set MessageCtrl = CreateObject("MSMAPI.MAPIMessages")
SessionCtrl.DownloadMail = False
SessionCtrl.SignOn
MessageCtrl.SessionID = SessionCtrl.SessionID
MessageCtrl.Compose
MessageCtrl.RecipAddress = "user@domain.com"
MessageCtrl.MsgSubject = "Subject"
MessageCtrl.MsgNoteText = "Body"
MessageCtrl.AttachmentPathName = "С:\Temp\temp.rar "
MessageCtrl.Send False

Спасибо....

30.11.2009, 21:00

Если проблема в ограничении по размеру, то тут дело в протоколе отправки писем (SMTP). Дело в том, что он не позволяет отправлять двоичные данные, поэтому вложения сначала кодируются в текстовое представление, а потом уже отсылаются. И в таком виде они занимают больше, чем исходный файл (иногда раза в два...). Поэтому архив надо бить на части меньшего размера.
А код вроде правильный. Хотя не проверял.

Messir
	30.11.2009, 21:00	2
	Если проблема в ограничении по размеру, то тут дело в протоколе отправки писем (SMTP). Дело в том, что он не позволяет отправлять двоичные данные, поэтому вложения сначала кодируются в текстовое представление, а потом уже отсылаются. И в таком виде они занимают больше, чем исходный файл (иногда раза в два...). Поэтому архив надо бить на части меньшего размера. А код вроде правильный. Хотя не проверял.