FAQ Outlook - Articles: R15340 [VBA] Obliger la saisie d'un sujet

Navigation

	FAQ Outlook » Foire Aux Questions « Recherche Téléchargements Forums Outlook Plan du site Liens Assistance à distance Bibliographie

	Les inscriptions sont fermées Pseudo Mot de passe Se souvenir de moi Mot de passe oublié ?

Connexions

Bienvenue à [FAMACLUB]
le 1,414ème membre

Visiteurs en ligne : 8
Membres en ligne : 0

Quartzkyte	1 semaine
marcmendez	2 semaines
globox	4 semaines
Miss	5 semaines
Ghainor	5 semaines
mpu34	5 semaines
JièL	5 semaines
hro413862	7 semaines
Paul 60800	8 semaines
ande	10 semaines

Afficher + de membres

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:	2 222
En ligne :	7
Max. en ligne:	119
Max. / jour:	12 494
Total hier:	5 302
Total ce mois:	88 654
Total visites:	8 487 553
Moyenne/jour:	5 052

Dernières 24h

Localisation visiteurs

Publicité ; elle permet de financer le site

Navigation parmi les catégories/articles

« Catégorie	Q15000 Macros - VBA (41)	Catégorie »
[<<] « Article	Q15000 Macros - VBA (41)	Article » [>>]

R15340 [VBA] Obliger la saisie d'un sujet

Impose de saisir l'objet du Mail lors de l'envoi.

A mettre dans ThisOutlookSession

Private Sub Application_ItemSend(ByVal Item As Object, _
Cancel As Boolean)
'By Oliv' pour Outlook 2003
If Item.Subject = "" Then
MsgBox "Vous devez saisir l'Objet de ce mail !"
Cancel = True
End If

End sub

Publié par Oliv le vendredi 16 février 2007 11:43

4 Commentaires

4760 Lecture(s)

Commentaires

#1 | Aeggie le lundi 03 mai 2010 17:14

Super site, décidément !
Merci.

#2 | fingerprint le mardi 09 novembre 2010 17:32

Autre version, avec demande de confirmation (et permet quand même d'envoyer un mail sans objet, comme Thunderbird) :

GeSHi: Visual Basic

Private Sub Application_ItemSend(ByVal Item As Object, _
 Cancel As Boolean)
'By Oliv' pour Outlook 2003
'Modif Yopai : confirmation plutot qu'erreur
    If Item.Subject = "" Then
        btn = MsgBox("Vous n'avez pas saisi d'objet, êtes vous sûr(e) de vouloir envoyer ce message tel quel ?", vbOKCancel)
 
        Cancel = (btn = vbCancel)
    End If
End Sub
Analysé en 0.006 secondes, avec GeSHi 1.0.7.20

#3 | fingerprint le mardi 09 novembre 2010 17:36

Et petite précision sur la manip. pour les non spécialistes : il faut ouvrir
Outils > Macros > Visual Basic Editor

Ouvrir l'arborescence à gauche jusqu'à voir "ThisOutlookSession"
Double cliquer sur "ThisOutlookSession"

Cela ouvre une fenêtre de code à droite, y coller le code ci-dessus (celui d'Oliv' ou le mien)
Et quitter l'éditeur Visual basic (Fichier > Fermer et retourner à Outlook)

#4 | JièL le mardi 09 novembre 2010 23:28

Merci pour la modif. (nb j'ai coloré

et c'est encore mieux qu'Oliv'

)

Publier un commentaire

	Un commentaire n'est pas une question sur un problème que vous avez, pour ces dernières veuillez utiliser les forums, ils sont fait pour. Merci !!! Les administrateurs se réservent le droit de corriger ou de supprimer les commentaires (et toute question). Votre nom : Entrez le code de validation : Ceci n'est pas une question sur Outlook, j'ai bien compris qu'il faut utiliser les forums pour TOUTE question !

Ce site est sous licence Creative Commons.
Vous pouvez utiliser toutes les informations présentent ici, mais il vous est interdit de les reproduire sans citer la source.

OUI au partage
NON au « copillage »

Ajouter aux favoris / partager :
URL :
BBcode :
HTML :
Cliquez ci dessus sur le lien que vous voulez copier et [Ctrl] + [C] ou cliquez sur le bouton [ C ]

Articles similaires

Articles	Catégories
R15045 [VBA] Ouvrir l'arborescence des pst contenant une boîte de réception	Q15000 Macros - VBA
R15930 [VBA] Création de menu dans outlook	Q15000 Macros - VBA
R15380 [VBA] Envoi via VBA : suppression de la confirmation d'envoi	Q15000 Macros - VBA
R15280 [VBA] Exporter un mail et l'ouvrir dans IE avec ses images	Q15000 Macros - VBA
R15930 [VBA] Eliminer les doublons	Q15000 Macros - VBA

Nuage de tags

	R05050 Imprimer des « Contacts », R00100 Afficher les GIFs animés avec Outlook 2007, R08030 Pourquoi le même contact est affiché plusieurs fois dans le carnet d’adresses ?, R16030 Exporter les contacts, R14010 Recherche rapide , R20050 Configurer un compte Yahoo pour Outlook 2002/2003, R07050 Autoriser / Interdire l'affichage des images et/ou l'activation du HTML, R15410 [VBA] Remplacer dans les Contacts l'envoi au format RTF, R04030 Enregistrer rapidement les pièces jointes, R12055 Planifier une réunion, R08120 Erreur 554 Relay Access Denied, R15200 [VBA] Enregistrer en .msg, R11010 Restaurer TOUT Office 2003, R06035 L'archivage ne fonctionne pas, R03040 Choisir un papier à lettres pour un message ©

aucun Crack, CrackZ, no-CD, DownloadZ, TelechargementZ, Serial, Numéro de série, N0 de série, Serialz ni Keygen pour Outlook sur ce site.

Blague aléatoire

Météo Marseille

	Météo Marseille