Конференция VBStreets

**VBnovichok** » 17.09.2003 (Ср) 0:20

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

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

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

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

Спасибо....

**alibek** » 17.09.2003 (Ср) 9:33

Свой код размещаешь в следующем цикле:

Код: Выделить всё: Dim F As String Const P As String = "C:\TEMP\" F = Dir$(P & "temp.r??") While Len(F)>0 'твой код '... F = Dir$ Wend

Только в своем коде заменяешь строку
MessageCtrl.AttachmentPathName = "С:\Temp\temp.rar"
на
MessageCtrl.AttachmentPathName = P & F

**VBnovichok** » 17.09.2003 (Ср) 22:31

Да alibek, ты настоящий ГУРУ.
Все работает отлично.
Большое спасибо.
С меня пиво...

**VBnovichok** » 17.09.2003 (Ср) 22:53

У меня вопрос по этой теме:
1. Как при выполнении этого кода скрыть окно отправки почты?
2. Как при выполнении этого кода удалить эти письма из папки "Отправленные"?

В надежде на ГУРУ

Спасибо

**alibek** » 18.09.2003 (Чт) 9:32

1-ое не понял.
А насчет второго -- при создании письма указывается, сохранять ли копию письма в "Отправленных". Как свойство называется, не помню, в CDO для этого при отправке письма надо указывать параметр Send([SaveCopy], [ShowDialog], [ParentWindow])

**VBnovichok** » 18.09.2003 (Чт) 20:01

1-ое пр выполнении кода выскакивает окно Outlook Express соединения с учетой записью отправителя и строка выполнения отправки письма.
Так вот, как бы сделать это окно невидимым для пользователя?
При необходимоти отправлю Скриншот этого окна.
Спасибо

**alibek** » 19.09.2003 (Пт) 9:07

Ты ведь через MAPI работаешь, потому в работе и участвует почтовый клиент. Ковыряй его настройки, там должно быть свойство или параметр, отвечающий за отображение диалога отправки. Или же ищи окно через FindWindow и скрывай его.
А еще лучше, если ты будешь сам работать с почтовый сервером через SMTP, тогда отправка почты будет целиком контроллироваться тобой. Только хлопотно это.