Vraag : Voeg automatisch onderworpen titel toe

Hallo helpen de Deskundigen,

I behoefteDeskundigen om een manuscript te creëren om „TK toe te voegen: “ bij onderworpen lijn wanneer een nieuwe e-mail cre�ërt. Deskundigen van de hoop konden help.

Antwoord : Voeg automatisch onderworpen titel toe

Als het gebruiken van vooruitzichten 2007 toen:

Bij de bovenkant van thisOutlookSession maar na optie… (als plaatst het heden) reeds de lijn, (tenzij zelf heden):

Privé WithEvents olkMailItem als Outlook.MailItem

Kleef nu het fragment voor Application_ItemLoad… als sub reeds dan eenvoudig bestaat ervoor zorgt de specifieke lijn daarin is.

Kleef zo ook het fragment voor olkMailItem_Open… als sub reeds dan eenvoudig bestaat ervoor zorgt de specifieke lijn daarin is.

Chris

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

Privé SubApplication_ItemLoad (Punt ByVal als Voorwerp)
    Als Item.Class = olMail dan olkMailItem = Punt plaats
Beëindig Sub

Privé Sub olkMailItem_Open (annuleer Van Boole)
    Als olkMailItem.Subject = "" toen olkMailItem.Subject = „TK: “
Sub van het eind
Andere oplossingen  
 
programming4us programming4us