Sende ActiveWorkbook som vedhæftet fil

Er det overhovedet muligt at sende et åbent regneark (ActiveWorkbook) som en vedhæftet fil, gennem Outlook, UDEN at blive spurgt om "Et program prøver automatisk at sende e-mail på dine vegne. Vil du tillade det? Hvis dette er uventet, er det måske en virus, og så bør du vælge "Nej".
Og i samme ombæring, er det muligt at sende til flere modtagere på én gang? For ellers skal brugeren vente 4 * 5 sekunder for at sende til 4 modtagere, som med koden her! :(

Sub Makro1()
    ActiveWorkbook.SendMail "me@domain.dk", _
                            "This is the Subject line"
    ActiveWorkbook.SendMail "me@domain.dk", _
                            "This is the Subject line"
    ActiveWorkbook.SendMail "me@domain.dk", _
                            "This is the Subject line"
    ActiveWorkbook.SendMail "me@domain.dk", _
                            "This is the Subject line"
End Sub