Oprette E-mail fra access?

Er det den databasen, som filen sendes fra, der skal vedhæftes ?

mvh martens

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 = \"Test\"
        .Body = \"http://www.eksperten.dk\"
        .FlagStatus = olFlagMarked
        .Attachments.Add \"C:\\YourAccess.mdb\"
        Set Receiver = .Recipients.Add(\"Some mail address\")
       
        If Not Receiver.Resolve Then
            .Display
        Else
            .Send
        End If
    End With
   
    Set Item = Nothing

You must have a reference to MS Outlook for this to work!

Thanks! exactly what I needed.

Martin