Hello to you all.

I am trying to attach an OLE OBJECT (which is a picture) to an email that i am sending.
here is my code at the moment.

Private Sub Email_Click()
Dim AppOutlook As Outlook.Application
Dim MailOutlook As Outlook.MailItem
Dim Message, strTo, StrCC, strTo1, Message1 As String
Dim Path As String

Set AppOutlook = CreateObject("Outlook.Application")
Set MailOutlook = AppOutlook.CreateItem(olMailItem)

strTo = ""

With MailOutlook

Message = Message & "<center> <B><U> ART NOTICE </B></U></center><br> <br>"
Message = Message & "Hello " & " <br> <br>"

Message = Message & "<b>Category:</b> " & Me.Category & " <Br>"
Message = Message & "<b>Congression:</b> " & Me.Archive___Congregation & " <Br>"
Message = Message & "<b>City:</b> " & Me.City & " <Br>"
Message = Message & "<b>Artist:</b> " & Me.Artist & " <Br>"
Message = Message & "<b>Year Completed:</b> " & Me.[Year Completed] & " <Br>"
Message = Message & "<b>Donor/Event:</b> " & Me.Donor & " <Br>"
Message = Message & "<b>Contact:</b> " & Me.Contact & " <Br>"
Message = Message & "<b>Size:</b> " & Me.Size & " <Br>"
Message = Message & "<b>Color:</b> " & Me.Color & " <Br>"
Message = Message & "<b>Theme:</b> " & Me.Theme & " <Br>"
Message = Message & "<b>Material:</b> " & Me.Material & " <Br>"
Message = Message & "<b>Media:</b> " & Me.Media & " <Br>"
Message = Message & "<b> Picture:</b> " & Me.mypicure & " <Br>"

Message = Message & "<Br> Thank you and regards,<br>"
Message = Message & "Barbara<br>"


.To = strTo
.Subject = "ART NOTICE"
.HTMLBody = Message
.Importance = olImportanceHigh
.Sensitivity = olConfidential
'.Attachments.Add Me.myPicture
.Display
End With


this ofcourse this doesnt work, i tried inserting it as an object in the message "Message = Message & "<b> Picture:</b> " & Me.mypicure & " <Br>"
"
and that failed, also tried to use .Attachments.add and that failed as well.

please if someone can help me with that problem, i would greatly appreciate it.