Tout d'abord désolé si je suis [HS], mais pas je n'ai pas eu de réponse sur
microsoft.public.fr.access ni sur microsoft.public.fr.exchange.clients
Config Serveur Exchange 2003, stations XP Pro SP2 connectée sur un domaine,
Access 2003 SP1
Dévellopant une application, je souhaite à partir d'Access 2003 créer des
RDV, des Tâches etc dans Outlook....
avec la bibliothèque Microsoft Outlook 11.0 Object Library et celà
fonctionne.... mais....
1) Je ne peux le faire que dans le profil de l'utilisteur en cours de
session sur la station, y a t il une possibilité d'acceder à un autre profil
?
2) Je peux récupérer les valeurs myEntryID et myStoreID via access qui me
donnent des chaines de caractères de ce type :
myEntryID :
000000001B443787F4AA4C4086ADFE78CB1970EC010042F91EDCBDFE1947AACDF90E886BA56300000000D32A0000
myStoreID
:0000000038A1BB1005E5101AA1BB08002B2A56C20000454D534D44422E444C4C00000000000000001B55FA20AA6611CD9BC800AA002FC45A0C00000045434C49505345002F6F3D77696E6E65742F6F753D5072656D6965722067726F7570652061646D696E69737472617469662F636E3D526563697069656E74732F636E3D7061747269636B00D83521F38D0000000100000014000000650000002F6F3D77696E6E65742F6F753D5072656D6965722067726F7570652061646D696E69737472617469662F636E3D436F6E66696775726174696F6E2F636E3D536572766572732F636E3D45434C4950534500650063006C0069007000730065002E00770069006E006E00650074002E006C006F00630000000000
comment et où trouver la correspondance avec le profil dans exchange? et
connaitre ces chaines pour me connecter
Merci de toute piste ou idée
@+
Patrick
POUR INFO : Un bout de mon code VBA dans Access
Private Sub RDV_Click()
On Error GoTo RV_Erreur
Dim OL_App As New Outlook.Application
Dim OL_RV As Outlook.AppointmentItem
Set OL_RV = OL_App.CreateItem(olAppointmentItem)
Dim QUAND As Variant, DUREE As Variant, RAPPEL As String, DUREE_RAPPEL As
Variant
QUAND = CDate(Me.RDV_DATE & " " & Me.RDV_heure_deb)
DUREE = (Me.RDV_heure_fin - Me.RDV_heure_deb) * 1440
RAPPEL = Me.RDV_RAPP
Select Case RAPPEL
Case "1/4 heure"
DUREE_RAPPEL = 15
Case "1/2 heure"
DUREE_RAPPEL = 30
Case "1 heure"
DUREE_RAPPEL = 60
Case "2 heures"
DUREE_RAPPEL = 120
End Select
With OL_RV
.Start = QUAND ' Date du rendez-vous
If Not IsNull(DUREE) Then
.Duration = DUREE 'durée du rendez-vous en minutes
End If
.Subject = Me.RDV_objet 'Sujet du rendez-vous
.Body = Me.RDV_obs 'ordre du jour (corps du message)
.Location = Me.RDV_lieu '.lieu du rendez-vous
If Me.RDV_journée = True Then
.AllDayEvent = True ' journée entière OUI
Else
.AllDayEvent = False 'journée entière NON
End If
If Me.RDV_rappel = True Then
.ReminderMinutesBeforeStart = DUREE_RAPPEL ' rappel en mn "avant"
.ReminderSet = True ' rappel à OUI avant le rendez-vous
Else
.ReminderSet = False 'rappel à NON avant le rendez-vous
End If
.Importance = olImportanceHigh ' importance du rendez-vous "HAUTE"
.Save 'enregistre le rendez-vous
End With
Set OL_RV = Nothing
Set OL_App = Nothing
Exit Sub
RV_Erreur:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Set OL_RV = Nothing
Set OL_App = Nothing
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Isabelle Prawitz
Bonjour ! 1. Tu peux te loguer avec un autre compte en utilisant le namespace : dim monEsp as Outlook.NameSpace set monEsp =OL_App.getnamespace("MAPI") monEsp.Logon monProfil,,True,True et ne pas oublier le LogOff ! 2. A quoi correspondent myEntryID et myStoreID ? A un élément Exchange ? Une BAL ? Ça n'est pas clair ! A+ Isa
"pat" a écrit dans le message de news:
Bonjour à tous et toutes
Tout d'abord désolé si je suis [HS], mais pas je n'ai pas eu de réponse sur microsoft.public.fr.access ni sur microsoft.public.fr.exchange.clients
Config Serveur Exchange 2003, stations XP Pro SP2 connectée sur un domaine, Access 2003 SP1
Dévellopant une application, je souhaite à partir d'Access 2003 créer des RDV, des Tâches etc dans Outlook.... avec la bibliothèque Microsoft Outlook 11.0 Object Library et celà fonctionne.... mais....
1) Je ne peux le faire que dans le profil de l'utilisteur en cours de session sur la station, y a t il une possibilité d'acceder à un autre profil ? 2) Je peux récupérer les valeurs myEntryID et myStoreID via access qui me donnent des chaines de caractères de ce type : myEntryID : 000000001B443787F4AA4C4086ADFE78CB1970EC010042F91EDCBDFE1947AACDF90E886BA56300000000D32A0000 myStoreID
comment et où trouver la correspondance avec le profil dans exchange? et connaitre ces chaines pour me connecter
Merci de toute piste ou idée @+ Patrick
POUR INFO : Un bout de mon code VBA dans Access
Private Sub RDV_Click() On Error GoTo RV_Erreur Dim OL_App As New Outlook.Application Dim OL_RV As Outlook.AppointmentItem Set OL_RV = OL_App.CreateItem(olAppointmentItem) Dim QUAND As Variant, DUREE As Variant, RAPPEL As String, DUREE_RAPPEL As Variant QUAND = CDate(Me.RDV_DATE & " " & Me.RDV_heure_deb) DUREE = (Me.RDV_heure_fin - Me.RDV_heure_deb) * 1440 RAPPEL = Me.RDV_RAPP Select Case RAPPEL Case "1/4 heure" DUREE_RAPPEL = 15 Case "1/2 heure" DUREE_RAPPEL = 30 Case "1 heure" DUREE_RAPPEL = 60 Case "2 heures" DUREE_RAPPEL = 120 End Select
With OL_RV .Start = QUAND ' Date du rendez-vous If Not IsNull(DUREE) Then .Duration = DUREE 'durée du rendez-vous en minutes End If .Subject = Me.RDV_objet 'Sujet du rendez-vous .Body = Me.RDV_obs 'ordre du jour (corps du message) .Location = Me.RDV_lieu '.lieu du rendez-vous If Me.RDV_journée = True Then .AllDayEvent = True ' journée entière OUI Else .AllDayEvent = False 'journée entière NON End If If Me.RDV_rappel = True Then .ReminderMinutesBeforeStart = DUREE_RAPPEL ' rappel en mn "avant" .ReminderSet = True ' rappel à OUI avant le rendez-vous Else .ReminderSet = False 'rappel à NON avant le rendez-vous End If .Importance = olImportanceHigh ' importance du rendez-vous "HAUTE" .Save 'enregistre le rendez-vous
End With Set OL_RV = Nothing Set OL_App = Nothing Exit Sub
RV_Erreur: MsgBox "Error " & Err.Number & vbCrLf & Err.Description Set OL_RV = Nothing Set OL_App = Nothing
End Sub
Bonjour !
1. Tu peux te loguer avec un autre compte en utilisant le namespace :
dim monEsp as Outlook.NameSpace
set monEsp =OL_App.getnamespace("MAPI")
monEsp.Logon monProfil,,True,True
et ne pas oublier le LogOff !
2. A quoi correspondent myEntryID et myStoreID ? A un élément Exchange ? Une BAL ? Ça n'est pas clair !
A+
Isa
"pat" <pat@poubelle.fr> a écrit dans le message de news:uMxoDYp4EHA.2600@TK2MSFTNGP09.phx.gbl...
Bonjour à tous et toutes
Tout d'abord désolé si je suis [HS], mais pas je n'ai pas eu de réponse sur
microsoft.public.fr.access ni sur microsoft.public.fr.exchange.clients
Config Serveur Exchange 2003, stations XP Pro SP2 connectée sur un domaine,
Access 2003 SP1
Dévellopant une application, je souhaite à partir d'Access 2003 créer des
RDV, des Tâches etc dans Outlook....
avec la bibliothèque Microsoft Outlook 11.0 Object Library et celà
fonctionne.... mais....
1) Je ne peux le faire que dans le profil de l'utilisteur en cours de
session sur la station, y a t il une possibilité d'acceder à un autre profil
?
2) Je peux récupérer les valeurs myEntryID et myStoreID via access qui me
donnent des chaines de caractères de ce type :
myEntryID :
000000001B443787F4AA4C4086ADFE78CB1970EC010042F91EDCBDFE1947AACDF90E886BA56300000000D32A0000
myStoreID
comment et où trouver la correspondance avec le profil dans exchange? et
connaitre ces chaines pour me connecter
Merci de toute piste ou idée
@+
Patrick
POUR INFO : Un bout de mon code VBA dans Access
Private Sub RDV_Click()
On Error GoTo RV_Erreur
Dim OL_App As New Outlook.Application
Dim OL_RV As Outlook.AppointmentItem
Set OL_RV = OL_App.CreateItem(olAppointmentItem)
Dim QUAND As Variant, DUREE As Variant, RAPPEL As String, DUREE_RAPPEL As
Variant
QUAND = CDate(Me.RDV_DATE & " " & Me.RDV_heure_deb)
DUREE = (Me.RDV_heure_fin - Me.RDV_heure_deb) * 1440
RAPPEL = Me.RDV_RAPP
Select Case RAPPEL
Case "1/4 heure"
DUREE_RAPPEL = 15
Case "1/2 heure"
DUREE_RAPPEL = 30
Case "1 heure"
DUREE_RAPPEL = 60
Case "2 heures"
DUREE_RAPPEL = 120
End Select
With OL_RV
.Start = QUAND ' Date du rendez-vous
If Not IsNull(DUREE) Then
.Duration = DUREE 'durée du rendez-vous en minutes
End If
.Subject = Me.RDV_objet 'Sujet du rendez-vous
.Body = Me.RDV_obs 'ordre du jour (corps du message)
.Location = Me.RDV_lieu '.lieu du rendez-vous
If Me.RDV_journée = True Then
.AllDayEvent = True ' journée entière OUI
Else
.AllDayEvent = False 'journée entière NON
End If
If Me.RDV_rappel = True Then
.ReminderMinutesBeforeStart = DUREE_RAPPEL ' rappel en mn "avant"
.ReminderSet = True ' rappel à OUI avant le rendez-vous
Else
.ReminderSet = False 'rappel à NON avant le rendez-vous
End If
.Importance = olImportanceHigh ' importance du rendez-vous "HAUTE"
.Save 'enregistre le rendez-vous
End With
Set OL_RV = Nothing
Set OL_App = Nothing
Exit Sub
RV_Erreur:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Set OL_RV = Nothing
Set OL_App = Nothing
Bonjour ! 1. Tu peux te loguer avec un autre compte en utilisant le namespace : dim monEsp as Outlook.NameSpace set monEsp =OL_App.getnamespace("MAPI") monEsp.Logon monProfil,,True,True et ne pas oublier le LogOff ! 2. A quoi correspondent myEntryID et myStoreID ? A un élément Exchange ? Une BAL ? Ça n'est pas clair ! A+ Isa
"pat" a écrit dans le message de news:
Bonjour à tous et toutes
Tout d'abord désolé si je suis [HS], mais pas je n'ai pas eu de réponse sur microsoft.public.fr.access ni sur microsoft.public.fr.exchange.clients
Config Serveur Exchange 2003, stations XP Pro SP2 connectée sur un domaine, Access 2003 SP1
Dévellopant une application, je souhaite à partir d'Access 2003 créer des RDV, des Tâches etc dans Outlook.... avec la bibliothèque Microsoft Outlook 11.0 Object Library et celà fonctionne.... mais....
1) Je ne peux le faire que dans le profil de l'utilisteur en cours de session sur la station, y a t il une possibilité d'acceder à un autre profil ? 2) Je peux récupérer les valeurs myEntryID et myStoreID via access qui me donnent des chaines de caractères de ce type : myEntryID : 000000001B443787F4AA4C4086ADFE78CB1970EC010042F91EDCBDFE1947AACDF90E886BA56300000000D32A0000 myStoreID
comment et où trouver la correspondance avec le profil dans exchange? et connaitre ces chaines pour me connecter
Merci de toute piste ou idée @+ Patrick
POUR INFO : Un bout de mon code VBA dans Access
Private Sub RDV_Click() On Error GoTo RV_Erreur Dim OL_App As New Outlook.Application Dim OL_RV As Outlook.AppointmentItem Set OL_RV = OL_App.CreateItem(olAppointmentItem) Dim QUAND As Variant, DUREE As Variant, RAPPEL As String, DUREE_RAPPEL As Variant QUAND = CDate(Me.RDV_DATE & " " & Me.RDV_heure_deb) DUREE = (Me.RDV_heure_fin - Me.RDV_heure_deb) * 1440 RAPPEL = Me.RDV_RAPP Select Case RAPPEL Case "1/4 heure" DUREE_RAPPEL = 15 Case "1/2 heure" DUREE_RAPPEL = 30 Case "1 heure" DUREE_RAPPEL = 60 Case "2 heures" DUREE_RAPPEL = 120 End Select
With OL_RV .Start = QUAND ' Date du rendez-vous If Not IsNull(DUREE) Then .Duration = DUREE 'durée du rendez-vous en minutes End If .Subject = Me.RDV_objet 'Sujet du rendez-vous .Body = Me.RDV_obs 'ordre du jour (corps du message) .Location = Me.RDV_lieu '.lieu du rendez-vous If Me.RDV_journée = True Then .AllDayEvent = True ' journée entière OUI Else .AllDayEvent = False 'journée entière NON End If If Me.RDV_rappel = True Then .ReminderMinutesBeforeStart = DUREE_RAPPEL ' rappel en mn "avant" .ReminderSet = True ' rappel à OUI avant le rendez-vous Else .ReminderSet = False 'rappel à NON avant le rendez-vous End If .Importance = olImportanceHigh ' importance du rendez-vous "HAUTE" .Save 'enregistre le rendez-vous
End With Set OL_RV = Nothing Set OL_App = Nothing Exit Sub
RV_Erreur: MsgBox "Error " & Err.Number & vbCrLf & Err.Description Set OL_RV = Nothing Set OL_App = Nothing
