Send Excel ark som e-mail

er der ikke noget her du kan bruge:

http://www.eksperten.dk/spm/Programmer/Regneark/Excel/?sort=&order=DESC&status_3=on&spm_creator=&spm_part=&spm_answer=&find=email&engine=exp&excerpt_on=1

Her er en til Outlook:

Sub Send()
Dim Besked As String, Subj As String, Til As String
Application.StatusBar = "Begynder mailopbygning.."

    Til = Range("C10").Value
    Subj = "emne" 'sæt tekst i subject
   
    Dim strFilSti As String
    strFilSti = ActiveWorkbook.FullName
   
    Dim ObjOutlook As Outlook.Application 'Følgende linier er Outlook kald
    Dim ObjOutLookMsg As Outlook.MailItem
    Dim ObjOutLookRecip As Outlook.Recipient
   
    Set ObjOutlook = CreateObject("Outlook.Application")
    Set ObjOutLookMsg = ObjOutlook.CreateItem(olMailItem)

    ObjOutLookMsg.Save
    Besked = "Hey somebody" & vbCrLf & "How are You?"    'Starter på besked som bliver til tekst i body
   
    With ObjOutLookMsg              'fra With til End With definerer vi alt i mailen
        On Error GoTo Fejl:
        Set ObjOutLookRecip = .Recipients.Add(Til) 'sætter modtagers mailadresse fra kolonne U
        ObjOutLookRecip.Type = olTo
        .Subject = Subj
        .Body = Besked
        .Attachments.Add strFilSti
        .Save
        .Send
    End With
    Set ObjOutlook = Nothing
   
    Application.StatusBar = "Mail sendt"

    Exit Sub
Fejl:
MsgBox "Der skete desværre en fejl"
End Sub

Der skal lige tilføjes Outlook Object Library i tools, før den virker.

Sub Send_Range()
 
  ' Select the range of cells on the active worksheet.
  ActiveSheet.Range("A2:F35").Select
 
  ' Show the envelope on the ActiveWorkbook.
  ActiveWorkbook.EnvelopeVisible = True
 
  ' Set the optional introduction field thats adds
  ' some header text to the email body. It also sets
  ' the To and Subject lines. Finally the message
  ' is sent.
  With ActiveSheet.MailEnvelope
      .Introduction = "Besked"
      .Item.To = ActiveSheet.Range("C10").
      .Item.Subject = "Emne"
      .Item.Send
  End With
End Sub

Er der noget nyt på den her, jeg er nysgerrig pga et lign. problem

Hvordan tilføjer man et Outlook Object Library ???

I Excel trykker du Alt+F11. Så er du i kodemodulet. I menuen går du i Tools -> References og tilføjer "Microsoft Outlook xx.x Object Library", hvor xx.x er din aktuelle version.

Jeg har afprøvet ovenstående, men Excel går ned når jeg forsøger at sende en mail der både indeholder celler og diagrammer. Kan det løses?