Страница:
Вопрос: Cdo.message проблема с .AddAttachment | Добавлено: 29.10.09 17:59 |
Автор вопроса: ![]() |
Sub SendMail()
AttachmentFolder = "\\10.0.1.143\Obmen\CP" Dim oMessage Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShellApp = CreateObject("Shell.Application") Set objFolderItems = objShellApp.NameSpace(AttachmentFolder).Items() For Each objFolderItem In objFolderItems If Not objFolderItem.IsFolder Then Set objFile = objFSO.GetFile(objFolderItem.Path) If (LCase(Right(objFolderItem.Name, 4)) = ".zip" Or LCase(Right(objFolderItem.Name, 4)) = ".rar") Then Set oMessage = CreateObject("CDO.Message") oMessage.To = "a87@i.ua" oMessage.From = "yes@i.ua" oMessage.AddAttachment objFile oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.0.7.1" oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0 oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 oMessage.Configuration.Fields.Update oMessage.Send Set oMessage = Nothing End If End If Next End Sub Когда Отправляло по отдельности каждый найденный zip и rar файл, то файл передается не полностью (Неожиданный конец архива) в чем тут загвоздка? И как Спасибо!
|
Ответы | Всего ответов: 0 |
Страница:
|