|
Алексей, ООО РН "УфаНИПИнефть", программист
|
3 марта 2008 г., 10:33 |
задача - открыть кучу проектов и опубликовать без участия юзера
люди - если кто знает скажите - как отключить вылезание различных окошек
проекты изменялись (назначение ресурсов) напрямую через базу, поэтому даже если все правильно - все равно ВСЕГДА при открытии вылазит окно несоответствия дат
и окошки при публикации - как нажать OK по умолчанию
Код:
Private Sub CommandButton1_Click()
m_sConnStr = "Provider='SQLOLEDB';Data Source='pmserver';" & _
"Initial Catalog='ProjectServerTest';Integrated Security='SSPI';"
Dim objConn As New []ction
Dim objCmd As New []nd
Dim objRs As New []dset
[] m_sConnStr
[]ndText = "select proj_name from []ROJECTS " & _
"where proj_type<>3 and proj_ext_edited=0"
[]ndType = adCmdText
' Connect to the data source.
[]eConnection = objConn
' Execute once and display...
Set objRs = []te
[]irst
cnt = 0
Do While Not []
If (cnt = 2) Then Exit Do
[] Text:=objRs(0)
FileOpen "<>\" + objRs(0)
MailSendProjectMail MessageType:="ОпубликоватьДляГруппы", _
Subject:="Публикация новых и измененных назначений", _
Body:="Ознакомьтесь с последними изменениями календарного плана и сообщите, если новые даты вызывают какие-либо проблемы.", _
PublishScope:=1, showDialog:=False
FileClose (pjDoNotSave)
cnt = cnt + 1
[]ext
Loop
q = []()
End Sub
