Win32::OLE - copying and pasting outlook body and pasting to Word

tallwithblueeyes has asked for the wisdom of the Perl Monks concerning the following question:

n00b question here. I am an MS-Office 2007 user, and am using Win32::OLE. I have an outlook email in HTML format as specified here:


 #start Outlook and make it visible
 my $Outlook = Win32::OLE->GetActiveObject
                           ('Outlook.Application') ||
               Win32::OLE->new('Outlook.Application');
 $Outlook->{'Visible'} = 1;
 my $message = $Outlook->CreateItem(olMailItem);
 $message->{BodyFormat} = 'olFormatHTML'; #needed for rich format
 
 #use a hash to populate address and subject fields
 $message->{HTMLBody} = $emailBody;

 my $clip = Win32::Clipboard($message->{HTMLBody});
[download]

If I manually copy and paste my email body from Outlook to Word, it copies fine, resulting in RTF in Word. Programatically though (see code snippet above), it seems to be copying straight HTML code to the clipboard. Then when pasted to Word, it comes out as HTML code, not the RTF I desire. How can i programatically copy and paste from the Outlook email body to Word so that it ends up as rich text?

Comment on Win32::OLE - copying and pasting outlook body and pasting to Word Download Code

Replies are listed 'Best First'.
Re: Win32::OLE - copying and pasting outlook body and pasting to Word by Anonymous Monk on Sep 24, 2009 at 16:03 UTC
d. Programatically though, it seems to be copying straight HTML code to the clipboard Please show your code, put it in `<code></code>` tags	[reply] [d/l]
Re^2: Win32::OLE - copying and pasting outlook body and pasting to Word by tallwithblueeyes (Novice) on Sep 24, 2009 at 20:20 UTC
n00b question here. I am an MS-Office 2007 user, and am using Win32::OLE. I have an outlook email in HTML format as specified here: `#start Outlook and make it visible my $Outlook = Win32::OLE->GetActiveObject ('Outlook.Application') \|\| Win32::OLE->new('Outlook.Application'); $Outlook->{'Visible'} = 1; my $message = $Outlook->CreateItem(olMailItem); $message->{BodyFormat} = 'olFormatHTML'; #needed for rich format #use a hash to populate address and subject fields $message->{HTMLBody} = $emailBody; my $clip = Win32::Clipboard($message->{HTMLBody});` [download] If I manually copy and paste my email body from Outlook to Word, it copies fine, resulting in RTF in Word. Programatically though (see code snippet above), it seems to be copying straight HTML code to the clipboard. Then when pasted to Word, it comes out as HTML code, not the RTF I desire. How can i programatically copy and paste from the Outlook email body to Word so that it ends up as rich text?	[reply] [d/l]
Re^3: Win32::OLE - copying and pasting outlook body and pasting to Word by Anonymous Monk on Sep 25, 2009 at 01:59 UTC
I think somehow you have to signal that clipboard wants RTF ( RegisterClipboardFormat CF_RTF "Rich Text Format" ), then you have to "selectall" (create selection object, set the range), then copy into clipboard (`$message->Copy` ) I'm not sure of the exact syntaxt as I couldn't find a direct example, good luck Clipboard: Using the OLE Clipboard Mechanism (MFC) Data Objects and Data Sources (OLE) Chapter 17: Working with Item Bodies in Outlook 2007	[reply] [d/l]