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 вроде взят)?
Либо замените ForReading на 1, либо вообще уберите, т.е. OpenTextFile("d:\myaddr.txt")
Цитата: 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
Call mFunction.SendMail [COLOR="darkgreen"]' непосредственно процедура засылки почты (в соседнем модуле)[/COLOR]
MyForm.Hide ' если написать MyForm.Unload, то ругается.
Set oShell = CreateObject("WScript.Shell")
oShell.Popup "Готово!", 3
Set oShell = Nothing
End Sub
Мб надо еще что-то откуда-то выгрузить?
Код:
Unload Me 'Unload MyForm
Цитата: pashulka
Код:
Unload Me 'Unload MyForm
Да, теперь все закрылось! Спасибо.