Con l'applicazione Task Manager di Microsoft Outlook installato sul computer è possibile gestire i file aziendali ed elenchi di indirizzi utilizzando Visual linguaggio Basic scripting. Ad esempio, per modificare o aggiornare il nome di un'azienda, è necessario creare un modulo nel programma Outlook che esegue lo script per l'aggiornamento l'indirizzo postale predefinito. Quando si è finito di eseguire l'aggiornamento, si riceverà un messaggio in codice che dice che l'aggiornamento è riuscito.

istruzione

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

2 Selezionare l'opzione "Inserimento in questa cartella" e apparirà la nuova forma posta. Selezionare l'opzione "Sviluppatore" e quindi selezionare l'opzione "Form".

3 Fare clic sull'opzione "Struttura del modulo" e quindi fare clic sul "(P.2)" scheda. Selezionare l'opzione "Strumenti" dal menu barra degli strumenti superiore e quindi selezionare l'opzione "Strumenti di controllo".

4 Selezionare l'icona "CommandButton" dal menu Strumenti di controllo e quindi trascinare l'icona al form vuoto. Fare clic sul controllo "CommandButton1" e selezionare l'opzione "Proprietà".

5 Inserisci "indirizzi postali Set" nella casella di testo "Caption" e quindi fare clic sul pulsante "OK". Selezionare l'opzione "Form" e quindi selezionare l'opzione "Visualizza codice".

6 Inserire 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

Set CurFolder = Application.ActiveExplorer.CurrentFolder

Se CurFolder.DefaultItemType = 2 Poi

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

"Sarai avvisato quando l'aggiornamento è completato." _

,, "Strumenti messaggio"

Set MyItems = CurFolder.Items

Per i = 1 a MyItems.Count

Set MyItem = MyItems.Item (i)

MyItem.SelectedMailingAddress = olBusiness

MyItem.Save

Il prossimo

MsgBox "Fatto!", 64, "Strumenti messaggio"

Altro

MsgBox "The current folder is not a " & _

"Cartella dei contatti." _

, 64, "Strumenti messaggio"

Finisci se

End Sub

7 Selezionare l'opzione "File" e quindi su "Chiudi" opzione. Selezionare l'opzione "Design" e selezionare l'opzione "Pagina". Selezionare l'opzione "Rinomina pagina" e inserire un nome per la pagina. Fare clic sul pulsante "OK".

8 Selezionare l'opzione "Form" e selezionare l'opzione "Pubblica". Selezionare l'opzione "Pubblica come Form" e quindi immettere un nome per il modulo.

9 Selezionare l'opzione "Libreria moduli personali" dal "Cerca in" elenco a discesa. Fare clic sul pulsante "Pubblica".