Vraag : Hoe te opstelling e-mail „controle/bouw“ alvorens post te verzenden

O.K., weet ik dit een vreemd verzoek is, nochtans als het kan worden gedaan, ik vinden dat de mensen op Deskundige Uitwisselingen het antwoord hebben.  De O.K., zodat bijzondere mensen in het bedrijf verzenden E-mail maar krijgend „klik gelukkig“ wat ik bedoel enkel somone verzendt onlangs a attatched financiële atatement aan de verkeerde niet Goede persoon is.  Ik gussing dat toen zij E-mail van Vooruitzichten verzonden, zij een paar caching namen, zagen en verkeerde plukten, enkel te snel zich beweegt, zodat als er caching naam van „Mike“ is en zij geen aandacht besteden, kunnen zij een E-mail naar „loodgieter Joethe“ eerder dan „Joethe Boekhouding VP“ acidentally verzenden die ik denk is wat gebeurde.  Ik ben gevraagd of kunnen wij een eigenschap „aanzetten“ of een actie tot stand brengen dat zodra u een e-mail typt en de klap verzendt, er een pop omhooggaand bericht kan zijn dat zegt „zeker u“ of „gelieve niet zeker controlee-mail adres“ als dat zelfs mogelijk is, maar gewild vragen te zijn.  Wij stellen Uitwisseling 2003 op de serverkant in werking, en de Cliënten stellen Vooruitzichten 2007.

Thanks,
Mike in werking

Antwoord : Hoe te opstelling e-mail „controle/bouw“ alvorens post te verzenden

Dank, Mike!

Ik heb de code gewijzigd om om het even welk aantal adressen te behandelen.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Privé SubApplication_ItemSend (het Punt ByVal als Voorwerp, annuleert Van Boole)
    Schemerige olkRecipient als Outlook.Recipient
    Als Item.Class = olMail toen
        Voor elk olkRecipient in Item.Recipients
            Selecteer Geval LCase (olkRecipient.AddressEntry.Address)
                „Geef het adres op de volgende lijn als nodig uit“
                Geval „[email protected]“, „[email protected]“, „[email protected]“
                    Als msgbox („bent u zeker u wilt dit bericht verzenden? “, bevestigen vbQuestion + vbYesNo, „het Bericht“) = vbNo toen verzendt
                        Annuleer = Waar
                    Beëindig als
            Beëindig Uitgezocht
        Daarna
    Eind als
    Vastgestelde olkRecipient = niets
Sub van het eind
Andere oplossingen  
 
programming4us programming4us