VPF::Отправка почты с атачем - Форум программистов

yupa

Дата 26.10.2009, 18:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 17.6.2009

Репутация: нет
Всего: нет

Цитата

Скрипт отправки письма с вложением по условию наличия файла на диске.
А теперь Уважаемые собственно проблема, после получения файла на почту, тыцаем на него и видим неожиданный конец архива, но сам архивчик весит больше на пару байт чем оригинал(. В чем проблема и как ее пофиксить? И еще как искать файл не по целому имени, а допустим, по трем первым буквам из его названия? Спасибо!

Код


Sub SendMail()
    Dim fso As FileSystemObject
    Set fso = New FileSystemObject   
    If fso.FileExists("\\10.0.1.147\CP\GSA0.zip") Then
    Call SendPost("[email protected]", "\\10.0.1.147\CP\GSA0.zip")
    End If
 End Sub

 Function SendPost(strTo, strAtach As String)
    Set objEmail = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    Set Flds = iConf.Fields
    objEmail.From = "[email protected]"
    objEmail.To = strTo
    objEmail.AddAttachment (strAtach)
    objEmail.Configuration = iConf
    Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
    Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.1.5.7"
    Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    Flds.Update
    objEmail.Send
    Set objEmail = Nothing
    Set iConf = Nothing
    Set Flds = Nothing
End Function

yupa

Дата 28.10.2009, 15:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 17.6.2009

Репутация: нет
Всего: нет

это метод удаляет Обьект Set objEmail = Nothing ? Правильно понимаю?

artdev

Дата 29.10.2009, 04:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 3.9.2009

Репутация: 1
Всего: 1

После выполнения строки

Код


Set objEmail = Nothing

переменная objEmail перестает указывать на объект типа CDO.Message.

yupa

Дата 29.10.2009, 12:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 17.6.2009

Репутация: нет
Всего: нет

Архив приходит битый, но весит на пару килобайтов больше:(

Это сообщение отредактировал(а) yupa - 29.10.2009, 12:00

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »