Sende aktiv excelfil på mail til en bestemt adresse

Hej,

I spørgsmålet http://www.eksperten.dk/spm/411740 er der skrevet en kode ind for at sende det aktive excelark på en mail til en given adresse med emnefeltet udfyldt.

Sub SendPost()
If Application.MailSystem <> xlNoMailSystem Then
  ActiveSheet.Copy
  With ActiveWorkbook
        .SendMail _
        Recipients:="???????@Tiscali.dk", _
        Subject:="her skal subject stå"
        .Close SaveChanges:=False
  End With
  Application.MailLogoff
  Else
    MsgBox "Inget Microsoft postsystem er installeret.", vbInformation, "Postmeddelelse"
  End If
End Sub


Det ser ud til at denne kode KUN tager den aktive fane med i mailen. Jeg har behov for at kunne sende HELE filen. (gerne uafhængigt af hvilket mailprogram brugeren har installeret - ellers kan jeg leve med at dem der ikke benytter Outlook får en fejl og må sende filen manuelt)


Kan nogen sige mig om/hvordan koden vil virke hvir en bruger bruger et andet mailprogram en Microsoft Outlook? F.eks. Lotus Notes eller lignende.

Jeg skal nemlig udsende et spørgeskema til en række modtagere, som skal kunne reurnere en udfyldt fil ved at klikke på en 'Send-knap'

Jeg håber nogen kan hjælpe!

mvh
Kristian Skriver