Reply with picture in body of message
 

I'd like to mofify this code (if possible) so that it includes the picture
that is in the body of the e-mail.

Sub ReplyDelightful()
Set objInsp = Application.ActiveInspector
If Not objInsp Is Nothing Then
Set objItem = objInsp.CurrentItem
If objItem.Class = olMail Then
Set objReply = objItem.Reply
With objReply
.Body = "Delightful!" & vbCrLf & vbCrLf & "Thanks," & vbCrLf
& "David" & vbCrLf & .Body
.Display
End With
End If
End If

End Sub

Reply with picture in body of message
 

If this is an HTML message try using HTMLBody. Body will only return the
plain text rendering of the message.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Maxx" wrote in message
...
I'd like to mofify this code (if possible) so that it includes the picture
that is in the body of the e-mail.

Sub ReplyDelightful()
Set objInsp = Application.ActiveInspector
If Not objInsp Is Nothing Then
Set objItem = objInsp.CurrentItem
If objItem.Class = olMail Then
Set objReply = objItem.Reply
With objReply
.Body = "Delightful!" & vbCrLf & vbCrLf & "Thanks," &
vbCrLf & "David" & vbCrLf & .Body
.Display
End With
End If
End If

End Sub

Reply with picture in body of message
 

Ken,
THank you very much for your help.
David

"Ken Slovak - [MVP - Outlook]" wrote in message
...
If this is an HTML message try using HTMLBody. Body will only return the
plain text rendering of the message.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Maxx" wrote in message
...
I'd like to mofify this code (if possible) so that it includes the
picture that is in the body of the e-mail.

Sub ReplyDelightful()
Set objInsp = Application.ActiveInspector
If Not objInsp Is Nothing Then
Set objItem = objInsp.CurrentItem
If objItem.Class = olMail Then
Set objReply = objItem.Reply
With objReply
.Body = "Delightful!" & vbCrLf & vbCrLf & "Thanks," &
vbCrLf & "David" & vbCrLf & .Body
.Display
End With
End If
End If

End Sub