Question : Comment installer l'email « contrôle/conformation » avant d'envoyer le courrier

OK, je sais que c'est une demande étrange, cependant s'il peut faire, je constate que les gens sur les échanges experts ont la réponse.  L'OK, ainsi les personnes particulières à la compagnie envoient des email mais obtenant le « clic heureux » ce que veux dire j'est juste récemment somone envoie un atatement financier attatched à la personne fausse, non bonne.  Je gussing que quand ils envoyaient l'email des perspectives, ils ont vu quelques noms cachés, et ont sélectionné le faux, juste déplaçant trop rapide, ainsi s'il y a nom caché de « Mike » et elles ne prêtent pas l'attention, elles peuvent acidentally envoyer un email au « plombier de Joethe » plutôt que la « comptabilité VP de Joethe » que je pense est ce qui s'est produit.  M'ai été demandé si nous pouvons « allumer » un dispositif ou créer une action qu'une fois vous dactylographiez à un email et le coup envoient, peut il y a un bruit vers le haut du message qui indique que « êtes vous sure » ou « vérifier svp l'email address » pas sure si c'est même possible, mais a voulu demander.  Nous courons l'échange 2003 du côté de serveur, et les clients courent les perspectives 2007.

Thanks, le
Mike class= de

Réponse : Comment installer l'email « contrôle/conformation » avant d'envoyer le courrier

Merci, Mike !

J'ai modifié le code pour manipuler tout nombre d'adresses.

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 :

Application_ItemSend secondaire privé (article de ByVal comme objet, annulation comme booléenne) Faible olkRecipient comme Outlook.Recipient S'Item.Class = puis olMail Pour chacun olkRecipient dans Item.Recipients Choisir le cas LCase (olkRecipient.AddressEntry.Address) « Éditer l'adresse sur la prochaine ligne comme nécessaire » Enfermer « [email protected] », « [email protected] », « [email protected] » Si msgbox (« êtes-vous sûr vous voulez-vous envoyer ce message ?  », le vbQuestion + le vbYesNo, « confirment le message envoient ») = vbNo puis L'annulation = rectifient Finir si Finir choisi Après Finir si Placer olkRecipient = rien Finir le sous-marin