Con l'applicazione di gestione attività di Microsoft Outlook installata sul tuo computer è possibile gestire file aziendali ed elenchi di indirizzi utilizzando il linguaggio di script di Visual Basic. Ad esempio, per modificare o aggiornare un nome di società, è necessario creare un modulo nel programma Outlook che esegue lo script per aggiornare l'indirizzo e-mail predefinito. Dopo aver terminato di eseguire l'aggiornamento, si riceverà un messaggio di codice che dice che l'aggiornamento è riuscita.

Istruzioni

1

Aprire l'applicazione Microsoft Outlook sul tuo computer e quindi fare clic sull'opzione "Posta in arrivo" dal menu di navigazione a sinistra. Fare clic sull'opzione "File" e quindi spostare il mouse sopra la "nuova" "opzione.

2

Fare clic sull'opzione "Post in questa cartella" e apparirà il nuovo modulo di inserimento. Fare clic sull'opzione "Sviluppatore" e scegliere l'opzione "Modulo".

3

Fare clic sull'opzione "Struttura del modulo" e quindi scegliere la scheda "(p. 2)" fare clic sull'opzione "Strumenti" dal menu della barra degli strumenti superiore e quindi fare clic sull'opzione "Strumenti di controllo".

4

Selezionare l'icona "CommandButton" dal menu strumenti di controllo e quindi trascinare l'icona per il modulo vuoto. Pulsante destro del mouse sul controllo "CommandButton1" e selezionare l'opzione "Proprietà".

5

Digitare "Set Mailing Addresses" nella casella di testo "Caption" e fare clic sul pulsante "OK". Fare clic sull'opzione "Modulo" e scegliere l'opzione "Visualizza codice".

6

Immettere il seguente codice esattamente come appare:

Sub CommandButton1_Click)

CONST olNone = 0

CONST olHome = 1

CONST olBusiness = 2

CONST olOther = 3

' Questo funziona solo per i contatti nella cartella corrente

Impostare CurFolder=Application.ActiveExplorer.CurrentFolder

Se CurFolder.DefaultItemType=2 quindi

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

"You will be notified when the update is completed." _

,,"Contact Tools Message"

Set MyItems = CurFolder.Items

For i = 1 to MyItems.Count

Set MyItem = MyItems.Item(i)

MyItem.SelectedMailingAddress = olBusiness

MyItem.Save

Next

MsgBox "Done!",64,"Contact Tools Message"

Altro

MsgBox "The current folder is not a " & _

"Contact folder." _

,64,"Contact Tools Message"

End If

End Sub

7

Fare clic sull'opzione "File" e scegliere l'opzione "Chiudi". Fare clic sull'opzione "Design" e scegliere l'opzione "Pagina". Fare clic sull'opzione "Rinomina pagina" e immettere un nome per la pagina. Fare clic sul pulsante "OK".

8

Fare clic sull'opzione "Modulo" e scegliere l'opzione "Pubblica". Fare clic sull'opzione "Pubblica come modulo" e quindi immettere un nome per il modulo.

9

Selezionare l'opzione "Libreria moduli personali" dall'elenco a discesa "Cerca In". Fare clic sul pulsante "Pubblica".