Mardi 22 Juillet 2014  
Navigation
FAQ Outlook
» Foire Aux Questions «
Recherche
Téléchargements
Forums Outlook
Plan du site
Liens
Assistance à distance
Bibliographie
Login

Les inscriptions sont fermées

Pseudo

Mot de passe

Se souvenir de moi



Mot de passe oublié ? Mot de passe oublié ?
Connexions
Bienvenue à [FAMACLUB]
le 1,414ème membre
Visiteurs en ligne : 21
Membres en ligne : 0

 mappec 4 jours
 JièL 4 semaines
 artefact0 8 semaines
 pajude 11 semaines
 xjr13sp 12 semaines
 vivi32 13 semaines
 angel 14 semaines
 Quartzkyte 15 semaines
 EMERGENCY 15 semaines
 globox 16 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:1 593
En ligne :21
Max. en ligne:119
Max. / jour:66 529
Total hier:3 242
Total ce mois:78 950
Total visites:11 136 531
Moyenne/jour:5 362

Dernières 24h

























Publicité ; elle permet de financer le site
Navigation parmi les catégories/articles
« Catégorie     Q15000 Macros - VBA (41)  Catégorie »
[<<]  « Article  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 6195 Lecture(s) Imprimer
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
  1. Private Sub Application_ItemSend(ByVal Item As Object, _
  2. Cancel As Boolean)
  3. 'By Oliv' pour Outlook 2003
  4. 'Modif Yopai : confirmation plutot qu'erreur
  5. If Item.Subject = "" Then
  6. btn = MsgBox("Vous n'avez pas saisi d'objet, êtes vous sûr(e) de vouloir envoyer ce message tel quel ?", vbOKCancel)
  7.  
  8. Cancel = (btn = vbCancel)
  9. End If
  10. End Sub
Analysé en 0.005 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é Smile et c'est encore mieux qu'Oliv' PfftPfftPfft)
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 !
Copyright et partage
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.

Creative Commons License
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
R17001 Principes sur les formulaires, R05080 Les en-têtes des mails (les destinataires, la date...) ne s'impriment pas, R99070 Réglages masqués, R09080 Ajouter un dossier contact et l'afficher dans le carnet d'adresses, R18040 VBScript: Créer une signature personnalisée par utilisateur sous Outlook 2003/2007, R09080 Ajouter un dossier contact et l'afficher dans le carnet d'adresses, R11080 Restaurer ses « Catégories » personnalisées et ses « Emplacements » ou lieux de rendez-vous, R05070 Imprimer les noms des pièces jointes aux messages en HTML, R17005 Création d'éléments basique, R15930 [VBA] Eliminer les doublons, R09170 Choisir le format d'affichage des n° de tél (empêcher les parenthèses), R11060 Restaurer le carnet d'adresses personnel (.PAB), R15050 [VBA] Modifier l'affichage sur tous les dossiers et sous-dossiers, R15930 [VBA] Eliminer les doublons, R06070 Classer automatiquement les messages reçus ou envoyés

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
Publicité
Météo Marseille
[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]