VB script

Hejsa.
Har lavet dette script og indsat i et word dokument. Ideen var at dende dokumentet direkte til en mail (gerne flere mails uden at gemme eller indsætte dokumentet i Outlook. Hvordan tilføjer jeg flere mailadresser?
Når jeg tester det fungere det fint med den ene mail jeg har indsat men inden dokumentet bliver jeg bedt om at gemme det først. Er der mulighed for at det ikke skal gemmes først? eller kan jeg lave det så dokumentet automatisk bliver gemt i en bestemt mappe? Og kan dokumentet så automatisk navngive dokumentet med dato, måned, år of klokkeslet?

Her kommer de script jeg har:

Fanen "general"

Sub SendAktueltDokument()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
   
    ActiveDocument.Save
   
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)
   
    With OutlookMail
        .To = "jhen0021@regionh.dk"
        .Subject = "Vedhæftet dokument: " & ActiveDocument.Name
        .Body = "Hej" & vbCrLf & vbCrLf & "Her kommer dagens Logbog."
        .Attachments.Add ActiveDocument.FullName
        .Display
    End With
   
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
       
End Sub


Fanen "CommandButton1"

Private Sub CommandButton1_Click()
    Call SendAktueltDokument
End Sub