Hvordan endre et firmanavn i VBScript

Med oppgavebehandling program Microsoft Outlook installert på datamaskinen, kan du administrere selskapet filer og adresselister ved hjelp av Visual Basic skriptspråk. For eksempel, for å endre eller oppdatere et firmanavn, må du opprette et skjema i Outlook-programmet som kjører skriptet for oppdatering av standard postadresse. Når du er ferdig med å utføre oppdateringen, vil du motta en kode melding om at oppdateringen var vellykket.

Bruksanvisning

1 Åpne Microsoft Outlook-programmet på datamaskinen, og klikk deretter på "Innboks" fra navigasjonsmenyen til venstre. Klikk på "File" og deretter flytte musen over "Ny" "alternativet.

2 Klikk på "Post i denne mappen" og den nye post skjemaet vises. Klikk på "Utvikler" og klikk deretter på "Form" alternativet.

3 Klikk på "Design Denne Form" og klikk deretter på "(P.2)" -kategorien. Klikk på "Tools" fra verktøylinjen øverst menyen og klikk deretter på "Control Toolbox" alternativet.

4 Velg "Command" ikonet fra menyen Control Toolbox og deretter dra ikonet til tomt skjema. Høyreklikk på "CommandButton1" kontroll og velg "Properties" alternativet.

5 Skriv "Set postadresser" inn i "Caption" tekstboksen, og klikk deretter på "OK" -knappen. Klikk på "Form" og klikk deretter på "Vis kode" alternativet.

6 Skriv inn følgende kode nøyaktig slik den vises:

Sub CommandButton1_Click ()

CONST olNone = 0

CONST olHome = 1

CONST olBusiness = 2

CONST olOther = 3

'Dette fungerer bare for kontakter i gjeldende mappe

Sett CurFolder = Application.ActiveExplorer.CurrentFolder

Hvis CurFolder.DefaultItemType = 2 Da

MsgBox "This update may take some time. " & _

"Du vil bli varslet når oppdateringen er fullført." _

,, "Kontakt Tools Message"

Sett MyItems = CurFolder.Items

For i = 1 til MyItems.Count

Sett MyItem = MyItems.Item (i)

MyItem.SelectedMailingAddress = olBusiness

MyItem.Save

neste

MsgBox "Ferdig!", 64 "Kontakt Tools Message"

Ellers

MsgBox "The current folder is not a " & _

«Kontakt mappen." _

64 "Kontakt Tools Message"

Slutt om

End Sub

7 Klikk på "File" og deretter "Close" alternativet. Klikk på "Design" og klikk på "Side" alternativet. Klikk på "Gi nytt navn Page" og skriv inn et navn for siden. Klikk på "OK" -knappen.

8 Klikk på "Form" og klikk på "Publiser" alternativet. Klikk på "Publish As Form" og deretter skrive inn et navn for skjemaet.

9 Velg "Personlige Forms Library" fra "Look In" drop-down listen. Klikk på "Publiser" -knappen.