Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Помогите, плз, с отправкой почты.

248
02 мая 2011 года
Dmitry2064
590 / / 06.12.2006
Делаю в VB Portable программку для отсылки вложения для одного из неск. адресатов. У адресата может быть 1-3 адреса. Я беру файл с его именем и оттуда вытаскиваю списочек адресов для отсылки.
Вот пример кода (на каком-то форуме нашел) для подстановки списка рассылки:
Код:
Function SendMail()
'Read the recipients of Distribution List from txt-file:
Set fso = CreateObject("Scripting.FileSystemObject")
[COLOR="darkred"]Set f = fso.OpenTextFile(myAddreses, ForReading)[/COLOR] ' этот как должно быть
[COLOR="darkgreen"]Set f = fso.OpenTextFile("d:\myaddr.txt", ForReading)[/COLOR] ' это для отладки, но тоже не работает
DistribList = f.ReadAll
f.Close
Set f = Nothing
Set fso = Nothing


Set objEmail = CreateObject("CDO.Message")

objEmail.To = DistribList
....

End function

И вот на строке
Set f = fso.OpenTextFile("d:\myaddr.txt", ForReading)
пишется "неверный вызов процедуры или аргумента". Может нельзя соединять VB и VBS (пример из VBS'a вроде взят)?
275
02 мая 2011 года
pashulka
985 / / 19.09.2004
Либо замените ForReading на 1, либо вообще уберите, т.е. OpenTextFile("d:\myaddr.txt")
248
02 мая 2011 года
Dmitry2064
590 / / 06.12.2006
Цитата: pashulka
Либо замените ForReading на 1, либо вообще уберите, т.е. OpenTextFile("d:\myaddr.txt")



Да, заменил ForReading на 1 и заработало. Спасибо.

А можно еще вопрос?
Сделал екзешник и после его отработки он, как оказалось, висит в списке задач (Task Manager).

Вот осн. процедурка, из которой все и вызывается:

 
Код:
Private Sub OKK_Click()
Call mFunction.SendMail [COLOR="darkgreen"]' непосредственно процедура засылки почты (в соседнем модуле)[/COLOR]
MyForm.Hide ' если написать MyForm.Unload, то ругается.

Set oShell = CreateObject("WScript.Shell")
oShell.Popup "Готово!", 3
Set oShell = Nothing

End Sub

Мб надо еще что-то откуда-то выгрузить?
275
02 мая 2011 года
pashulka
985 / / 19.09.2004
 
Код:
Unload Me 'Unload MyForm
248
02 мая 2011 года
Dmitry2064
590 / / 06.12.2006
Цитата: pashulka
 
Код:
Unload Me 'Unload MyForm



Да, теперь все закрылось! Спасибо.

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог