How to create a Distribution list in Outlook e-mail from Excel Macro?

 Application.Dialogs(xlDialogSendMail).Show arg1:="myMail@google.com;asas@yahoo.com", arg2:="This goes in the subject line"

Select allOpen in new window

Public Sub CreateSendMail()
Application.DisplayAlerts = False
Application.ScreenUpdating = False

Dim wb As Workbook
Dim wb1 As Workbook
Set wb1 = ThisWorkbook
Sheets(Array("Synth", "HistoChart", "LiqProv", "90-8DayDelta", "LiqProvDetail", "LiqProvUSD", "ClientMaturitiesProfile", "LiqProvGBP", _
        "LiqProvEUR")).Copy
Set wb = ActiveWorkbook
  ChDir wb1.Worksheets("ProviderAnalysisSetUp").Range("b3").Value
    wb.SaveAs Filename:= _
        wb1.Worksheets("ProviderAnalysisSetUp").Range("b3").Value & "LiqClientProviderLON.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
 Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
     On Error Resume Next
    With OutMail
        .to = "ron@debruin.nl"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = "Hi there"
        .Attachments.Add wb1.Worksheets("ProviderAnalysisSetUp").Range("b3").Value & "LiqClientProviderLON.xlsx"
        .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub

Select allOpen in new window