'-----------------------------------------'
' Tjekker først om Outlook er installeret '
' Hvis ikke kommer der MsgBox advarsel    '
'-----------------------------------------'
    Dim OutApp As Object
    
    On Error Resume Next    'Suspenderer error checking
        Set OutApp = CreateObject("Outlook.Application")
    On Error GoTo 0         'Gentager error checking
    
    If OutApp Is Nothing Then
    MsgBox "   Office Outlook er ikke installeret." _
        & vbNewLine & vbNewLine & "   Gem og luk arket og send det med din normale mail." _
        , vbInformation, "Outlook er ikke installeret"
        Exit Sub
    End If
    
'--------------------------'
' Vedhæfter arket i mailen '
'--------------------------'
    Dim OutMail As Object
    
    On Error GoTo ud
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
'-----------------------------------------------'
' Udfylder Til, Cc, Emne osv.                   '
' Hvis en linje er udkommanderet udfyldes intet '
'-----------------------------------------------'
    On Error Resume Next
    With OutMail
        '.to = "Skriv mail adresse her"
        '.CC = "Skriv mail adresse her"
        '.BCC = "Skriv mail adresse her"
        '.Subject = "Skriv emnelinje her"
        '.Body = "Skriv evt. besked her"
        .Attachments.Add ActiveWorkbook.FullName
'-----------------------------------------------------------------'
' Der kan tilføjes andre filer også, hvis stien til filen skrives '
'-----------------------------------------------------------------'
        '.Attachments.Add ("C:\test.txt")
        
'----------------------------------------------------------------'
' Her vælges om mailen skal sendes direkte eller åbnes i Outlook '
'----------------------------------------------------------------'
        .display ' Åbner mailen
        '.Send   ' Sender mailen
    End With
    On Error GoTo 0

'-----------------'
' Nulstiller igen '
'-----------------'
    Set OutMail = Nothing
    Set OutApp = Nothing
ud: