Controle bloquant - Enregister et Fermer

[mail.spam]

Bonjour,

Voila je vous expose un petit peu mon besoin.
Je voudrais pourvoir mettre un controle, à la fermeture d'un RDV dans le calendrier, sur un ou différent champs d'outlook. Pour exemple je ne veux pas qu'on puisse créer un RDV s'il n'y a pas d'[Objet :] ou s'il n'y a pas de [Catégories...] de séléctionner.

Je sais comment faire ces contrôles mais je ne sais pas comment faire en sorte que le rdv ne s'enregistre ni ne se ferme. G besoin que se contrôle soit bloquant.

Savez-vous si c possible?
D'avance merci.

Ah oui je suis sous Outlook 2003

[Oliv-]

Bonjour,

Tu peux utiliser un formulaire personnalisé et y ajouter un script :

 
Function Item_Close()
if item.subject="" then 
msgbox "Manque le sujet"
Item_Close = False
end if
End Function

attention lorsqu'on a enfin mis l'objet il faut changer de ligne avec la souris.

OL2003 gére mal certains évenements en dehors des MAILS comme le close , mais tu peux comme il s'agit d'un rdv affecter un évenement sur la création d'un nouvel item dans le répertoire calendrier.

dans thisoutlooksession :

Dim WithEvents colRDVItems As Items
 
Private Sub Application_Startup()
Dim NS As Outlook.NameSpace
Set NS = Application.GetNamespace("MAPI")
Set colRDVItems = NS.GetDefaultFolder(olFolderCalendar).Items
Set NS = Nothing
End Sub

Private Sub colRDVItems_ItemAdd(ByVal Item As Object)
 
 
'By Oliv ' janv 2008 pour Outlook 2003 feat. Sue Mosher
'http://www.outlookcode.com/codedetail.aspx?id=456
    If Item.Class = olAppointment Then
        If Item.Subject = "" Then
            Item.Display
            MsgBox "vous devez indiquer un objet"
        End If
    End If
End Sub
 
Private Sub colRDVItems_ItemChange(ByVal Item As Object)
'By Oliv ' janv 2008 pour Outlook 2003 feat. Sue Mosher
'http://www.outlookcode.com/codedetail.aspx?id=456
    If Item.Class = olAppointment Then
        If Item.Subject = "" Then
            Item.Display
            MsgBox "vous devez indiquer un objet"
        End If
    End If
End Sub

Dons en fait le code s'exécute après la fermeture du rdv mais réouvre celui-ci, mais pas toujours de suite !!!

[mail.spam]

Merci Oliv g réussit à bloquer la fermeture grace à

Function Item_Close()
 
	if item.entryid <> "" then
		
                    controle
 
	end if
 
End Function

comme ca je ne bloque que les rendez-vous enregistrer et non pas ceux en cours de création

Par contre je ne voios pas comment appliquer ce formulaire au rdv existant

Merci quand meme pour ton aide