Send kun et ark via makro på e-mail

Skal arket være i en seperat fil, eller skal indholdet blot vises i mailen?

Sub Makro1()
If Application.MailSystem <> xlNoMailSystem Then
  ActiveSheet.Copy
  With ActiveWorkbook
        .SendMail _
        Recipients:="Peter@hej.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



sender det aktive ark

her spørger den

Sub Makro1()
Emne = InputBox("Skriv hvad der skal stå i emnelinjen.")
If Application.MailSystem <> xlNoMailSystem Then
  ActiveSheet.Copy
  With ActiveWorkbook
        .SendMail _
        Recipients:="Peter@hej.dk", _
        Subject:=Emne
        .Close SaveChanges:=False
  End With
Application.MailLogoff
  Else
    MsgBox "Inget Microsoft postsystem er installeret.", vbInformation, "Postmeddelelse"
  End If
End Sub

Igen en dejlig hjælp, endda med flere løsninger, du kan det P.. ;-). 1000 tak, håber du modtager pointne.

Point til kabbak

et svar ;-))

Værsgod. #:-)

Tak for det ;-))