E - Mail med billag!

What about Outlook?

Private Sub Command0_Click()
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 = \"The subject\"
        .Body = \"http://www.eksperten.dk\"
        .FlagStatus = olFlagMarked
        \'.Attachments.Add \"C:\\......\\myfile.doc\"
       
        Set Receiver = .Recipients.Add(\"WhoTo\")
       
        If Not Receiver.Resolve Then
            .Display
        Else
            .Send
        End If
    End With
   
You need a reference to Outlook (Project+References menu)
    Set Item = Nothing

           
End Sub

ja ja

?

You need a reference to Outlook (Project+References menu)

IS NOT PART OF THE CODE!
   

To Terry

Please give me the code witout using outlook!.

Altså hvis det kan lade sig gøre.

The answer I gave is using outlook, sorry!