E-Mail        

123

, "",
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 [...] Dim objCmd As New [...] Dim objRs As New [...] [...] m_sConnStr [...] = "select proj_name from [...] " & _ "where proj_type<>3 and proj_ext_edited=0" [...] = adCmdText ' Connect to the data source. [...] = objConn ' Execute once and display... Set objRs = objCmd.Execute objRs.MoveFirst cnt = 0 Do While Not objRs.EOF If (cnt = 2) Then Exit Do tvTypePr.Nodes.Add Text:=objRs(0) FileOpen "<>\" + objRs(0) MailSendProjectMail MessageType:="", _ Subject:=" ", _ Body:=" , - .", _ PublishScope:=1, showDialog:=False FileClose (pjDoNotSave) cnt = cnt + 1 objRs.MoveNext Loop q = Application.Quit() End Sub
, .