[Resolvido]Access e Outlook

Consigo fazer o lançamento no calendario do ms outlook, porém não consigo localizar o registro no calendario do outlook através do access 2007. Estou precisando de um exemplo para poder entender melhor, pois ainda não tenho pratica.

Abs
vic

Boa Noite Vic.. seja Bem vindo ao Fórum...

Detalhe mais sua dúvida, para que possamos tentar ajudá-lo

Saudações

Boa noite Harysohn

Pelo access 2007 eu consigo cadastrar um apontamento no calendario do outlook 2007, porém não consigo abrir (escolher)um apontamento ja cadastrado no outlook pelo access 2007. Você têm algum exemplo com estas funcionalidades?

Desde já agradeço

Abs

Vic

Não testei, mas seria algo como isso;?

Public Sub ListaCalendario()


Dim CalItem As Outlook.AppointmentItem
Dim myNamespace As Outlook.NameSpace
Dim myCal As Outlook.Items


Set myNamespace = Outlook.GetNamespace("MAPI")
Set myCal = myNamespace.GetDefaultFolder(olFolderCalendar).Items

For Each CalItem In myCal
Debug.Print CalItem.Start & " - " & CalItem
Next


End Sub


Cumprimentos

Mais uma vez agradeçoa atenção.

Não deu certo ou eu não consegui implementar da forma correta. Meus conhecimentos não me ajudam neste sentido.

Abs

Envie parte do BD para que possamos ver..

Cumprimentos

Segue exemplo que estou utilizando;

Não consegui adicionar o anexo, com isso segue os comandos:

Para incluir o apontamento:

Private Sub Add_Record_Click()

' Use late binding to avoid the "Reference" issue
Dim olapp As Object ' Outlook.Application
Dim olappt As Object ' olAppointmentItem

If isAppThere("Outlook.Application") = False Then
' Outlook is not open, create a new instance
Set olapp = CreateObject("Outlook.Application")
Else
' Outlook is already open--use this method
Set olapp = GetObject(, "Outlook.Application")
End If

Set olappt = olapp.CreateItem(1) ' olAppointmentItem

With olappt
.Start = Nz(Me.eventstart, "") & " " & Nz(Me.time, "")
.duration = Nz(Me.duration, 0)
.subject = Nz(Me.subject, vbNullString)
.Mileage = Nz(Me.uniqueID, vbNullString)
.Location = "Aberdeen"

.Save
End With

' Release the Outlook object variables.
Set olappt = Nothing
Set olapp = Nothing ' Set chkAddedToOutlook to checked
Me.chkAddedtoOutlook = True

' Save the Current Record because we checked chkAddedToOutlook
'If Me.Dirty Then
'Me.Dirty = False
'End If

' Inform the user
MsgBox "Appointment Added!", vbInformation

End Sub


Para selecionar o apontamento: (não esta funcionando)

Private Sub Find_Record_Click()

' Use late binding to avoid the "Reference" issue
Dim objApp As Object ' Outlook.Application
Dim objAppt As Object ' olAppointmentItem

Set objNS = objAppt.GetNamespace("MAPI")

Set objRecip = objNS.CreateRecipient(strName)
Set objFolder = objNS.GetSharedDefaultFolder(objRecip, olFolderCalendar)

Dim sfilter As String
sfilter = "[Mileage] = " & Me.uniqueID & ""

Set objAppt = objFolder.Items.Find(sfilter) ' olAppointmentItem

With objAppt

Me.subject = .subject

.Save
End With

' Release the Outlook object variables.
Set olappt = Nothing
Set olapp = Nothing ' Set chkAddedToOutlook to checked
Me.chkAddedtoOutlook = True

' Save the Current Record because we checked chkAddedToOutlook
If Me.Dirty Then
Me.Dirty = False
End If

' Inform the user
MsgBox "Appointment Added!", vbInformation

End Sub


Abraço

Envie-me no e-mail que posto aqui..

Harysohn@hotmail.com

Cumprimentos

O BD do colega para quem puder ajudar..

http://dl.dropbox.com/u/26441349/Vic_07_09_11.rar

Prezados,

Alguma ajuda???

abs.

Para ver o mail no Outlook através de um botão de comando


On Error GoTo StartError
Dim objOutlook As Object
Dim objItem As Object
'Create a Microsoft Outlook object.
Set objOutlook = CreateObject("Outlook.Application")
'Create and open a new contact form for input.
Set objItem = objOutlook.CreateItem(olMailItem)


objItem.Display
'Quit Microsoft Outlook.
Set objOutlook = Nothing

Exit Sub
StartError:
MsgBox "Error: " & Err & " " & Error
Exit Sub

.........................................

Para ver o calendário/Agenda

On Error Resume Next
Dim mOutlookApp As Outlook.Application
Dim mNameSpace As Outlook.NameSpace
Set mOutlookApp = New Outlook.Application
Set mNameSpace = mOutlookApp.GetNamespace("MAPI")
mNameSpace.GetDefaultFolder(olFolderCalendar).Display
Set mNameSpace = Nothing
Set mOutlookApp = Nothing

.....................................................................

Para ver os contactos

On Error GoTo StartError
Dim objOutlook As Object
Dim objItem As Object
'Create a Microsoft Outlook object.
Set objOutlook = CreateObject("Outlook.Application")
'Create and open a new contact form for input.
Set objItem = objOutlook.CreateItem(olContactItem)

objItem.Display
'Quit Microsoft Outlook.
Set objOutlook = Nothing

Exit Sub
StartError:
MsgBox "Error: " & Err & " " & Error
Exit Sub

Prezado,

Temos como localizar um agendamento especifico no calendario do outllok?

Desde ja obrigado

Vic, boa noite

A minha interacção com o Outlook, resume-me a isso no Access. Desconheço se tem ou não possibilidade de fazer o que você quer. Vamos deixar o tópico aberto por algum tempo para ver se alguém sabe como fazer isso.

Vieira,

Agradeço sua atenção e presteza.

Vamos aguardar.

Abs.

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.