So ändern Sie einen Firmennamen in VBScript

Mit der Microsoft Outlook-Aufgabe-Manager-Anwendung auf Ihrem Computer installierten Firma Dateien können verwaltet und Adresslisten, die Skriptsprache Visual Basic. Beispielsweise müssen zum Ändern oder aktualisieren Sie einen Firmennamen ein, Sie ein Formular in das Outlook-Programm erstellen, die das Skript zur Aktualisierung der Standard-Postanschrift ausführt. Wenn Sie die Aktualisierung abgeschlossen haben, erhalten Sie eine Code-Nachricht, die besagt, dass die Aktualisierung erfolgreich war.

Anweisungen

1 Öffnen Sie die Microsoft Outlook-Anwendung auf Ihrem Computer, und klicken Sie dann auf die Option "Posteingang" im linken Navigationsmenü. Klicken Sie auf die Option "Datei" und dann bewegen Sie Ihre Maus über die "neue" "Option.

2 Klicken Sie auf die Option "Bereitstellen in diesem Ordner" und das neuen Post-Formular erscheint. Klicken Sie auf die Option "Entwickler" und klicken Sie auf die Option "Form".

3 Klicken Sie auf die Option "Dieses Formular entwerfen" und klicken Sie auf die Registerkarte "(s. 2)" und klicken Sie auf die Option "Extras" im oberen Symbolleiste, und klicken Sie auf die Option "Steuerelement-Toolbox".

4 Doppelklicken Sie in der Steuerelement-Toolbox-Menü die "CommandButton" und ziehen Sie dann das Symbol in das leere Formular. Maustaste auf das Steuerelement "CommandButton1" und wählen Sie die Option "Eigenschaften".

5 Geben Sie "Set Mailing Adressen" in das Textfeld "Caption" und klicken Sie auf die Schaltfläche "OK". Klicken Sie auf die Option "Form" und klicken Sie dann auf "Code anzeigen".

6 Geben Sie den folgenden Code, genau wie angezeigt:

Sub Commandbutton1_click()"

CONST OlNone = 0

CONST auf = 1

CONST OlBusiness = 2

CONST OlOther = 3

"Dies funktioniert nur für Kontakte im aktuellen Ordner

Set CurFolder=Application.ActiveExplorer.CurrentFolder

Wenn CurFolder.DefaultItemType=2 dann

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"

Sonst

MsgBox "The current folder is not a " & _

"Contact folder." _

,64,"Contact Tools Message"

EndIf

EndSub

7 Klicken Sie auf die Option "Datei" und klicken Sie dann auf "Schließen". Klicken Sie die Option "Design" und dann die Option "Seite". Klicken Sie auf die Option "Seite umbenennen" und geben Sie einen Namen für die Seite. Klicken Sie auf "OK".

8 Klicken Sie auf die "Form"-Option, und klicken Sie auf die Option "Veröffentlichen". Klicken Sie auf die Option "Als Formular veröffentlichen" und geben Sie dann einen Namen für das Formular.

9 Wählen Sie die Option "Bibliothek für persönliche Formulare" aus der Dropdown-Liste "Suchen In". Klicken Sie auf "Veröffentlichen".