这里有一个让Xls添加为Outlook附件发送的sub, 但是只能添加一个收件人

PGLOBAL

如下是一个让Xls 添加为Outlook附件发送的sub, 但是只能添加一个收件人 ， 求助能不能帮修改成 能发送给多个收件人的？谢拉
Sub main_form_Send_as_Email_attachment()
    Dim sRecipient As String

    sRecipient = InputBox("Please input the receipt email address", "Send as email attachment", "@gmail.com")
    Dim olApp As Object
    Dim olNameSpace As Object
    Dim olFolder As Object
    Dim olMail As Object
    Set olApp = CreateObject("Outlook.Application")
    Set olNameSpace = olApp.GetNamespace("MAPI")
    Set olFolder = olNameSpace.GetDefaultFolder(6)
    Set olMail = olApp.CreateItem(0)
    With olMail
        .Subject = "======"
        .Recipients.Add sRecipient
        .Body = "Please find the attached File"
        .Attachments.Add ActiveWorkbook.FullName
        .Send
    End With
        MsgBox ("Sent")
End Sub


另外大家知不知道将当前的Xls 保存为PDF发送的编码怎么写？
再次感谢

PGLOBAL

顶一个
大家有方法可以添加多个收件人的方法吗？
或者执行完宏之后 停留在outlook新邮件的窗口 但是不发送 这样用户可以自行添加收件人