Ramon Mattos

Boa tarde, Estou utilizando o código abaixo para incluir compromissos no Outlook pelo VBA, porem tenho 02 calendários (Calendário Pessoal e Calendário Profissional). O compromisso está sendo incluído corretamente, porem somente no calendário Pessoal (default), gostaria que fosse no calendário Profissional (criado). Se alguém puder me ajudar! Private Sub Inserir_Compromisso_Outlook() On Error GoTo Add_Err Dim objOutlook As Outlook.Application Dim objAppt As Outlook.AppointmentItem Set objOutlook = CreateObject("Outlook.Application") Set objAppt = objOutlook.CreateItem(olAppointmentItem) With objAppt .Start = #12/26/2011 3:00:00 PM# .End = #12/27/2011 4:00:00 PM# .Duration = 30 .Subject = "FLUXO DE BM´s" .Body = "BM´S EM ATRASO" .Location = "PCOS - Programação e Controle - Medição" .ReminderMinutesBeforeStart = 15 .ReminderSet = True .Save .Close (olSave) End With Set objAppt = Nothing Set objOutlook = Nothing Set objRecurPattern = Nothing Exit Sub Add_Err: MsgBox "Error " & Err.Number & vbCrLf & Err.Description Exit Sub End Sub

Olá bom dia. Tenho uma agenda que lanço alguns afazeres nesta, porem tenho que lançar registro por registro. Gostaria de gerar uma instrução ao qual eu digito um período, exemplo: 09/10/2010 a 29/11/2010, nos seguintes dias Terças / Quartas / Domingo, no horário das 17:45, com o registro “Reunião de Planejamento”. Teria como voces me ajudarem nisto Grato Ramon

Boa noite, estou tentando executar uma consulta atualização para uma tabela no access. Porem está apresentando o erro Operação inválida. (Erro 3219) alguém poderia me ajudar???? Segue o codigo abaixo que estou utilizando Sub AtualizarItens() Dim wks As DAO.Workspace Dim db1 As DAO.Database Dim db As DAO.Database Dim rs As DAO.Recordset Set wks = DBEngine(0) Set db1 = wks.OpenDatabase("C:\Documents and Settings\Ramon_Mattos\Desktop\Teste.mdb") Set db = db1 Set rs = db.OpenRecordset("UPDATE Tabela SET Tabela.Atualizado = 'Atualizado'") rs.MoveFirst Do While Not rs.EOF rs.MoveNext Loop rs.Close Close End Sub

Bom dia. Tenho uma tabela no Access que gostaria de alimentar uma outra tabela no MS Project, testei os dados importados da tabela utilizando o msgbox, funciona perfeitamente. Porem quando habilito a linha 'Activeproject.Resources…… apresenta o seguinte erro. Variável de objeto ou variável do bloco With não definida (Erro 91) Veja abaixo: Dim wks As DAO.Workspace Dim db1 As DAO.Database Dim db As DAO.Database Dim rs As DAO.Recordset Dim Dados As String Dim Dados1 As String Dim Dados2 As String Set wks = DBEngine(0) Set db1 = wks.OpenDatabase("C:\Documents and Settings\S&C\Desktop\AutomacaoProject.mdb") Set db = db1 Set rs = db.OpenRecordset("Cs_Atribuicoes") ViewApply Name:="Uso dos Recursos" rs.MoveFirst Do While Not rs.EOF Dados = rs.Fields("PePr_dt_Data") & " 00:00" Dados1 = rs.Fields("ASSN_ACT_START") & " 00:00" Dados2 = rs.Fields("ASSN_ACT_FINISH") & " 00:00" 'Activeproject.Resources.UniqueID(1).Assignments.UniqueID(2097158).TimeScaleData(StartDate:=Dados1, EndDate:=Dados2, Type:=10, TimeScaleUnit:=4, Count:=1).Item(1).Value = "1" MsgBox Dados & " - " & Dados1 & " - " & Dados2 rs.MoveNext Loop rs.Close End Sub Abraços e obrigado.