Sub Outlookbeladen()
 
        Dim oApp As Outlook.Application = New Outlook.Application()
        Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")
        oNS.Logon(User, Password, Missing.Value, True)
 
 
        Dim oDLs As Outlook.AddressLists = oNS.AddressLists
        Dim oGal As Outlook.AddressList = oDLs.Item("Globale Adressliste")
 
 
        Dim sDL As String = "ESLL ISU-User"
        Dim oEntries As Outlook.AddressEntries = oGal.AddressEntries
        Dim oDL As Outlook.AddressEntry = oEntries.Item(sDL)
 
        oDL.Members.Add("Ex", "Mustermann Max", "max@mustermann.de")
 
 
        oNS.Logoff()
 
        oApp = Nothing
        oNS = Nothing
        oDLs = Nothing
        oGal = Nothing
        oEntries = Nothing
 
    End Sub