Export mailing list from outlook

There are a few ways to export a mailing list from Outlook:

Method 1: Using the "Export to a File" feature

1. Open Outlook and go to the "Contacts" folder.
2. Select the contacts you want to export by checking the boxes next to their names.
3. Right-click on the selected contacts and choose "Export to a File" from the context menu.
4. In the "Export to a File" dialog box, select "Comma Separated Values (CSV)" as the file format.
5. Choose a location to save the file and enter a file name.
6. Click "Export" to export the contacts to a CSV file.

Method 2: Using the "Import/Export" feature

1. Open Outlook and go to the "File" menu.
2. Click on "Open & Export" and then select "Import/Export" from the drop-down menu.
3. In the "Import/Export" dialog box, select "Export to a file" and then choose "Comma Separated Values (CSV)" as the file format.
4. Select the contacts you want to export by checking the boxes next to their names.
5. Choose a location to save the file and enter a file name.
6. Click "Export" to export the contacts to a CSV file.

Method 3: Using VBA scripting

1. Open Outlook and go to the "Developer" tab.

2. Click on the "Visual Basic" button to open the Visual Basic Editor.

3. In the Visual Basic Editor, click on "Insert" and then select "Module" to insert a new module.

4. Paste the following code into the module:

   Sub ExportContactsToCSV()
    Dim olApp As New Outlook.Application
    Dim olNamespace As Outlook.Namespace
    Dim olFolder As MAPIFolder
    Dim olItems As Items
    Dim i As Integer
   
    Set olNamespace = olApp.GetNamespace("MAPI")
    Set olFolder = olNamespace.GetDefaultFolder(olFolderContacts)
    Set olItems = olFolder.Items
   
    Dim csvFile As String
    csvFile = "C:\Path\To\Your\File.csv"
   
    Dim fso As New FileSystemObject
    Dim ts As TextStream
   
    Set ts = fso.OpenTextFile(csvFile, ForWriting, True)
   
    For i = 1 To olItems.Count
        Dim olItem As Object
        Set olItem = olItems.Item(i)
   
        ts.WriteLine olItem.FullName & "," & olItem.EmailAddress & "," & olItem.CompanyName
    Next i
   
    ts.Close
    Set ts = Nothing
    Set fso = Nothing
   
    Set olItems = Nothing
    Set olFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
   End Sub

5. Replace "C:\Path\To\Your\File.csv" with the desired file path and name.

6. Click "Run" to run the script and export the contacts to a CSV file.

Note: The above code assumes that you have the "Microsoft Script Editor" add-in installed. If you don't have this add-in installed, you can download it from the Microsoft website.