Fråga : Tillfoga automatiskt betvingar titel

Hi experter, behovsexperter för

I hjälper att skapa en skriva för att tillfoga ”TK: ” på betvinga fodrar, när som helst skapar en ny e-post. Hoppexperter kunde help.


 " klar "

Svar : Tillfoga automatiskt betvingar titel

Om genom att använda framtidsutsikt 2007 därefter:

Upptill av thisOutlookSessionen men efter alternativ… (om gåva) förlägga fodra, (om inte sig själv redan gåva):

Privat WithEvents olkMailItem som Outlook.MailItem

Klistra nu snippeten för Application_ItemLoad…, om suben finns redan därefter ser till enkelt att närmare detalj att fodra är däri.

Klistra på motsvarande sätt snippeten för olkMailItem_Open…, om suben finns redan därefter ser till enkelt att närmare detalj att fodra är däri.

Chris

1:
2:
3:
4:
5:
6:
7:

Privata underApplication_ItemLoad (det ByVal objektet som anmärker)
    Om Item.Class = olkMailItem = objekt för olMail därefter fastställd
Avsluta suben

Den privata suben olkMailItem_Open (annulleringen som Boolean)
    Om olkMailItem.Subject = "" därefter olkMailItem.Subject = ”TK: ”,
Avsluta suben
Andra lösningar  
 
programming4us programming4us