Hi folks,
I created a search agent that some information in the database, this works if I run on a button, but when I schedule it does not work.
I checked the logs and has nothing related to this action.
I have to configure anything special?
Sorry for my English. I am a Brazilian developer
This is my code:
Sub Initialize
Dim view As NotesView
Dim session As New NotesSession
Dim db As NotesDatabase
Dim docCollection As NotesDocumentCollection
Dim doc As NotesDocument
Dim doc2 As NotesDocument
Dim doc3 As NotesDocument
Dim Cont As Integer
Dim docAtual As NotesDocument
Dim dateTime As New NotesDateTime("Today") ' data atual do sistema
Dim docEMail As NotesDocument
'PEGANDO DOC ATUAL
'Set uidocAtual = workspace.CurrentDocument
'Set docAtual = session.DocumentContext
'PEGANDO BASE ATUAL
Set db = session.CurrentDatabase
'PEGANDO A VIEW DO TERMO
Set view = db.GetView("Curitiba\Termo de Abertura de Projeto\Por Situação")
Set doc = view.Getfirstdocument
Set docEMail = New NotesDocument(db)
' vai percorrer toda a visao para fazer as devidas validações
While Not doc Is Nothing
'--------------------- quebar a data -----------------
Dim dataAtual
Dim dataForms
Dim dataFormsE
Dim diaA
Dim diaF
Dim diaE
Dim mesA
Dim mesF
Dim mesE
Dim anoA
Dim anoF
Dim anoE
dataAtual = dateTime.LocalTime
dataForms = doc.datafim_garan(0)
dataFormsE = doc.datafim_garan(0)
'a = Mid("23/12/2011", 1, 2) como a data é em string temos que quebrar a mesma para depois converter
'em datatime
'o 1 numero é a posição no array e o segundo sao qnts digitos tem este
diaF = Mid(dataForms, 1, 2)
mesF = Mid(dataForms, 4, 2)
anoF = Mid(dataForms, 7, 4)
mesE = Mid(dataFormsE, 1, 2)
diaE = Mid(dataFormsE, 4, 2)
anoE = Mid(dataFormsE, 7, 4)
'Quebra a data ATUAL DO SISTEMA para fazer a comparação
diaA = Day(dataAtual)
mesA = Month(dataAtual)
anoA = Year(dataAtual)
'comparar as datas
Dim novaDataAtual
Dim novaDataForms
Dim novaDataFormsE
novaDataAtual = DateSerial(anoA,mesA,diaA)
novaDataForms = DateSerial(anoF,mesF,diaF)
novaDataFormsE = DateSerial(anoE,mesE,diaE)
'---------- Formulario em Portugues -----------------
If doc.status(0) = "Em andamento" Then
If novaDataForms <= novaDataAtual Then
auxPrj = doc.Projeto(0)
auxSituacao = doc.status(0)
auxSituacao2 = doc.status_en(0)
'------------email--------------------
'colocar o corpo do email
Dim filial As String
Dim projeto As String
Dim mensagem As Variant
Dim destinatario As String
Dim destinatario2 As String
Dim destinatario3 As String
Dim destinatarioTeste As String
Dim DestinoPara ( 1 To 1 ) As String
'destinatario = "qualidade@cinq.com.br"
'destinatario2 = "email do grupo PMO"
'destinatario3 = "email do grupo DIRETORES"
'DestinoPara( 1 ) = doc.GetItemValue("openedby")(0)
destinatarioTeste = "g.costa@cinq.com.br"
docEmail.Subject="Termo de Abertura de Projeto"
mensagem = "Projeto: " + auxPrj +Chr(13)
mensagem = mensagem + "Encerrado conforme informações do Termo de Abertura. Caso ainda não não tenha sido feita, favor providenciar a Pesquisa de Satisfação correspondente."+Chr(13)
mensagem = mensagem + "Favor Providenciar também a conclusão do projeto no CinqBOK."
docEmail.Body = mensagem
'Call doc.Send ( False, destinatario )
'Call doc.Send ( False, DestinoPara )
'Call doc.Send ( False, destinatario2 )
'Call doc.Send ( False, destinatario3 )
docEmail.SendTo = destinatarioTeste
Call docEmail.Send(False)
'Call docEmail.Send ( False, destinatarioTeste )
'------------------------------------------
End If
End If
'---------- Formulario em Ingles -----------------
If doc.status_en(0) = "In Progress" And doc.Idioma(0) = "English" Then
If novaDataFormsE <= novaDataAtual Then
auxPrj = doc.Projeto(0)
auxSituacao = doc.status(0)
auxSituacao2 = doc.status_en(0)
'------------email--------------------
'colocar o corpo do email
Dim filial_ As String
Dim projeto_ As String
Dim mensagem_ As Variant
Dim destinatario_ As String
Dim destinatario2_ As String
Dim destinatario3_ As String
Dim destinatarioTeste_ As String
Dim DestinoPara_ ( 1 To 1 ) As String
'destinatario_ = "qualidade@cinq.com.br"
'destinatario2_ = "email do grupo PMO"
'destinatario3_ = "email do grupo DIRETORES"
'DestinoPara_( 1 ) = doc.GetItemValue("openedby")(0)
destinatarioTeste_ = "g.costa@cinq.com.br"
docEmail.Subject="Termo de Abertura de Projeto"
mensagem_ = "Projeto: " + auxPrj +Chr(13)
mensagem_ = mensagem_ + "Encerrado conforme informações do Termo de Abertura. Caso ainda não não tenha sido feita, favor providenciar a Pesquisa de Satisfação correspondente."+Chr(13)
mensagem_ = mensagem_ + "Favor Providenciar também a conclusão do projeto no CinqBOK."
docEmail.Body = mensagem_
'Call doc.Send ( False, destinatario_ )
'Call doc.Send ( False, DestinoPara_ )
'Call doc.Send ( False, destinatario2_ )
'Call doc.Send ( False, destinatario3_ )
docEmail.SendTo = destinatarioTeste_
Call docEmail.Send(False)
'Call docEmail.Send ( False, destinatarioTeste_ )
'------------------------------------------
End If
End If
Set doc2 = view.Getnextdocument(doc)
Set doc = doc2
Wend
'-----------------------------------------------
End Sub