Fråga : Hur man ställer in e-posten ”kontroll/gestaltning”, innan du överför, posta

REKO jag vet att denna är en konstig förfrågan, emellertid, om det kan göras, jag finner att folket på sakkunniga utbyten har svaret.  Det REKO så särskilda folket i företaget överför e-post, men få ”klicka lyckligt” vad jag betyder är somonen överför precis för en tid sedan en attatched finansiell atatement till den fla personen, inte goda.  Gussing för förmiddag I, att, då de överförde e-posten från framtidsutsikt, de sågar några cached namnger och valde det fla, precis flyttningen fastar för, så, om det finns cached känt av ”Mike” och de betalar inte uppmärksamhet, dem kan acidentally överföra en e-post till ”den Joethe rörmokaren” ganska än ”Joethe som redogör VP” som I-funderare är vad händde.  Jag har frågats, om vi kan ”vända på” ett särdrag, eller att skapa en handling, som du skrivar en gång en e-post, och hiten överför, kan där vara en pop upp meddelande att något att säga ”är dig sure” eller ”behaga kontrolle-posten tilltalar” inte sure, om det är även möjligheten, men önskade att fråga.  Vi är det rinnande utbytet 2003 på serversidan, och beställare är den rinnande framtidsutsikten 2007.

Thanks,
Mike " klar "

Svar : Hur man ställer in e-posten ”kontroll/gestaltning”, innan du överför, posta

Tack Mike!

Jag har ändrat kodifiera för att behandla några numrerar av tilltalar.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Privata underApplication_ItemSend (det ByVal objektet som anmärker, avbryter som Boolean),
    Dunkelt olkRecipient som Outlook.Recipient
    Om Item.Class = olMail därefter
        För varje som är olkRecipient i Item.Recipients
            Välj fallet LCase (olkRecipient.AddressEntry.Address)
                ”Redigera,
                Case ”[email protected]”, ”[email protected]”, ”[email protected]”,
                    Om msgbox (”är du säker dig önskar att överföra detta meddelande? ” vbQuestionen + vbYesNoen, ”bekräftar meddelandet överför”) = vbNoen därefter
                        Annulleringen = True
                    Avsluta om
            Avsluta valt
        Därefter
    Avsluta om
    Fastställdt olkRecipient = ingenting
Avsluta suben
Andra lösningar  
 
programming4us programming4us