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

[tallwithblueeyes]

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});

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?

[Anonymous Monk]

d. Programatically though, it seems to be copying straight HTML code to the clipboard

Please show your code, put it in <code></code> tags

[tallwithblueeyes]

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});

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?

[Anonymous Monk]

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