How to send a picture with outlook via access

[Alfred]

Hi
I am using following code to send email
How can I use the .body or .htmlbody to insert a picture in the body of
ms outlook.
Outlook makes provision for sending pictures. If you are in the body you
click on insert and the picture option is then available. Thus I suppose you
can also do it via code
Thanks for help
Alfred


Dim olApp As Outlook.Applica tion
Dim olMailMessage As Outlook.MailIte m
Dim olRecipient As Outlook.Recipie nt
Dim olAttach As Outlook.Attachm ent
Dim emailstring As String
Dim cn As ADODB.Connectio n
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connectio n
Set cn = CurrentProject. Connection

Set rs = cn.Execute("SEL ECT DbGeneralEmail from DbMaster1 ")

Dim AttachmentPath As String
AttachmentPath = "c:\aa\customer s.txt"

emailstring = " "
' Do Until rs.EOF
' If Not IsNull(rs!DbGen eralEmail) Then
' emailstring = emailstring + rs!DbGeneralEma il + ";"
emailstring = emailstring + "aj*******@jakh gtm.co.za" + ";"
Set olApp = New Outlook.Applica tion
Set olMailMessage = olApp.CreateIte m(olMailItem)
With olMailMessage
.To = emailstring
.BCC = emailstring
.Display
.Subject = " tst subj " 'Me!txtSubject
.Body = Me!txtBody & vbCrLf & vbCrLf ''' want to insert
picture here or html file
.HTMLBody = p
' .Links

.Importance = olImportanceHig h 'High importance

If Not IsMissing(Attac hmentPath) Then
Set olAttach = .Attachments.Ad d(AttachmentPat h)
End If
.Send
End With
Set olMailMessage = Nothing
emailstring = " "
' End If
' rs.MoveNext
' Loop

End Sub