Udfylde Indholdsfelt i en ny Outlook-message

Dim OutL As Outlook.Application
Dim Item As MailItem
Dim Receiver As Recipient

    Set OutL = New Outlook.Application

    Set Item = OutL.CreateItem(olMailItem)
   
   
    With Item
        .Subject = \"Some message\"
        .Body = \"http://www.eksperten.dk\"
        .FlagStatus = olFlagMarked
        .Attachments.Add \"My test\"
        Set Receiver = .Recipients.Add(\"Email address\")
       
        If Not Receiver.Resolve Then
            .Display
        Else
            .Send
        End If
    End With
   
    Set Item = Nothing

\"Compile error\"
\"User defined type not defined\"

Den kan ikke lide den første linie;
Dim OutL As Outlook.Application

Jeg har indsat din tekst råt i en event for en knap:
Private Sub knap_Click()
...
End Sub

Sorry!
You need a reference to Outlook.
Tools References menu, while in code view.

I thought you already had one when you said you already were using Outlook mail!!

Jeg kan ikke finde \"Outlook\" i Tools References.
Formodentlig fordi Outlook ikke er installeret. Jeg har Office-2000, men uden Outlook. Jeg benytter Outlook-Express, men det er nok ikke de samme funktioner der stilles til rådighed her.