Access to Outlook

Hej med jer

Jeg har et lille problem med at danne en mail ud fra nogle poster i outlook. Mailen fungerer sådan set egentligt udemærket, når de kun er baseret på tekst. Men jeg har nogle billeder og nogle Ole objekter jeg ønsker indsat i mailen også, hvis de er sat op i de enkelte poster.

Første problem.
Jeg benytter et Ole objekt til at gemme et word dokument eller excel eller ligende i nogle af mine poster. Disse dokumenter vil jeg gerne have vedhæftet den mail jeg generere. Jeg har styr på hele dan mailen, men hvad skal jeg danne følgende linie for at få vedhæftet Ole objektet?
.attachments.Add [Ole-objekt]
Det nytter ikke noget bare at erstatte [Ole-objekt] med referencen til cellen. Det har jeg prøvet.

Andet problem:
I http://www.eksperten.dk/spm/671474 har jeg beskrevet min database kort.
Kort fortalt. Jeg har nogle billeder lagret som eksterne links i databasen. Der kan være et link per post.
Hvordan indsætter jeg det billede i .body = ??? Eller skal billeder indsættes som attachments? Og i såfald hvordan attacher jeg 2+ filer?

Jeg ved godt at det måske ligger lidt mere over i generel VBA, men jeg håber siden det er Access der genrere det at jeg kan spørge herinde alligevel :)

Mine kode lige nu ser således ud for det hele.

Private Sub SendKnap_Click()
  Dim MapiSession As Object
        Dim MapiMessage As Object
        Dim MapiRecipient As Object
        Dim MapiAttachment As Object
        Dim MapiAttachment2 As Object

  Set MapiSession = CreateObject("Mapi.Session")
  Set ObjOutlook = CreateObject("Outlook.Application")
  If ObjOutlook Is Nothing Then
    MsgBox "Outlook not opened"
    Exit Sub
  End If

  Set myNameSpace = ObjOutlook.GetNamespace("MAPI")
        Set myFolder = myNameSpace.GetDefaultFolder(4)
        Set MapiMessage = myFolder.Items.Add
 
        With MapiMessage
            .Recipients.Add "email@email.dk"
            For Recpt = 0 To .Recipients.Count - 1
'                .Recipients(Recpt).Resolve showdialog:=False
            Next
            If IsNull(Me.AttachedFile) Then
                MsgBox "There is no attachments"
            Else
                .attachments.Add Me.AttachedFile
            End If
            .subject = Me.Fejltype
            .body = "tekst"
'            .importance = mapiHigh
            .Send 'showdialog:=False
            End With
            Set MapiSession = Nothing
End Sub

mvh

Rune Daub