Hvordan oppdatere Outlook globale adressedistribusjonsliste i VB
Selskaper sende masse e-poster til store grupper av mennesker kan finne det nyttig å holde oppdaterte registreringer av sine distribusjonslister. Microsoft Outlook har denne funksjonen som den globale adressedistribusjonsliste. Du kan oppdatere en slik liste på flere måter, men en av de enkleste er gjennom Visual Basic, eller VB. Fordi VB stikker av enkelte kommandoer i stedet for back-og-tilbake interaktivitet, oppdateres listen krever å skrive en ny liste over den gamle.
Bruksanvisning
1 Åpne VB.
2 Velg "Ny" fra Fil-menyen. Klikk "Prosjekt" i vinduet som vises.
3 Kryss av i boksene merket "Visual Basic Projects" og "Console Application", deretter "OK". Dette skaper vinduet som lar deg skrive inn distribusjonslisten kode.
4 Velg "Legg Reference" fra Prosjekt-menyen øverst på skjermen.
5 Klikk på "COM" -kategorien.
6 Dobbeltklikk "Microsoft Outlook XX Object Library». Den "XX" vil si din versjon av Outlook (dvs. 10,0, 9,1). Klikk på "OK".
7 Klikk hvor som helst i prosjektvinduet som har dukket opp og trykk "Ctrl" + "A" for å velge all teksten. Trykk på "Delete" -tasten. Du vil bli å erstatte denne generiske koden for å åpne Outlook med distribusjonslisten kode.
8 Kopier og lim inn følgende i vinduet. Ikke trykk "Enter".
importen System.Reflection
modul module1
Sub Main()
Opprett Outlook-programmet.
Dim oApp Som Outlook.Application = Ny Outlook.Application ()
'Få Mapi navnerom og Logon.
Dim ons, så Outlook.NameSpace = oApp.GetNamespace ( "MAPI")
oNS.Logon ( "YourValidProfile", Missing.Value, usann eller sann) "[Å GJØRE]:
"Get Global Address List.
Dim oDLs Som Outlook.AddressLists = oNS.AddressLists
Dim oGal Som Outlook.AddressList = oDLs.Item ( "global adresseliste")
Console.WriteLine (oGal.Name)
"Få et bestemt distribusjonsliste.
' [Å GJØRE]
Dim SDL As String = "TestDL"
Dim oEntries Som Outlook.AddressEntries = oGal.AddressEntries
«Ingen filter tilgjengelig for AddressEntries
Dim ODL Som Outlook.AddressEntry = oEntries.Item (SDL)
Console.WriteLine (oDL.Name)
Console.WriteLine (oDL.Address)
Console.WriteLine (oDL.Manager)
"Få alle medlemmene i distribusjonslisten.
oEntries = oDL.Members
Dim oEntry Som Outlook.AddressEntry
Dim i As Integer
For i = 1 Til oEntries.Count
oEntry = oEntries.Item (i)
Console.WriteLine (oEntry.Name)
'Vis dialogboksen Detaljer.
'ODL.Details (Missing.Value)
neste
' Logg av.
oNS.Logoff ()
' Rydde opp.
oApp = Ingenting
ONS = Ingenting
oDLs = Nothing
oGal = Nothing
oEntries = Nothing
oEntry = Ingenting
End Sub
End Module
9 Bytt ut den første "[Å GJØRE]" med Outlook passord.
10 Erstatt den andre "[Å GJØRE]" med plasseringen å lagre listen. For å lagre til skrivebordet, for eksempel type "C: \ Desktop" (uten anførselstegn).
11 Trykk "Enter" for å lage en oppdatert versjon av listen.