![]() |
If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Search this Thread | Display Modes |
#1
|
|||
|
|||
![]()
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 |
Ads |
#2
|
|||
|
|||
![]()
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 |
#3
|
|||
|
|||
![]()
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Reply with custom form & selected data from message body | GregoryL.[AITI] | Outlook and VBA | 3 | May 28th 09 03:46 PM |
Message headers, attachments, and the message body may be lost in Outlook 2003 when you reply to an e-mail message that contains a References header that exceeds 1,000 bytes | gbkhor[_2_] | Outlook - General Queries | 0 | March 4th 09 10:26 AM |
Reply in Outlook cursor on TO line instead of body of message | [email protected] | Outlook - General Queries | 0 | June 27th 06 09:21 PM |
Can't see message body until Reply or Fwd is selected | Jen | Outlook - General Queries | 0 | March 16th 06 02:31 PM |
Inserting a picture in the message body of a custom form | groom | Outlook - General Queries | 1 | February 8th 06 10:08 PM |