Lotus Notes - Unable to Copy Paste Special in macro

[Joe Wildman]

Hello everyone, I have a Macro button that paste cell data into an email,
works but at the end of this code I don't see how I can make this past into
notes 6.5 or 7 as a paste special in HTML format. I tried some code but I
don't see how this can be done, Is this posible?

'Copy the cells in the range (one column going down) into the BODY in
Lotus Notes.
'You must set the last cell C33 to one cell below the range you wish to
copy.
Call UIdoc.GotoField("Body")
Body1 = Replace(Join(Application.Transpose(Range([c33], [c49].End(3))),
"@") & " ", "@", vbCrLf)
Call UIdoc.InsertText(Body1)

'Insert some carriage returns at the end of the email
Call UIdoc.InsertText(vbCrLf & vbCrLf)
Application.CutCopyMode = False

Set UIdoc = Nothing: Set WorkSpace = Nothing
Set Maildb = Nothing: Set Notes = Nothing
Set Body = Nothing

End Sub

 

[Shane Devenshire]

Hi,

You might try posting this to a Lotus Notes newsgroup, I assume there are
some.

 

[Joe Wildman]

I did on the last one from yesterday, today, i was out of the office, anywayyy

Hi,

You might try posting this to a Lotus Notes newsgroup, I assume there are
some.

--
If this helps, please click the Yes button

Cheers,
Shane Devenshire

Hello everyone, I have a Macro button that paste cell data into an email,
works but at the end of this code I don't see how I can make this past into
notes 6.5 or 7 as a paste special in HTML format. I tried some code but I
don't see how this can be done, Is this posible?

'Copy the cells in the range (one column going down) into the BODY in
Lotus Notes.
'You must set the last cell C33 to one cell below the range you wish to
copy.
Call UIdoc.GotoField("Body")
Body1 = Replace(Join(Application.Transpose(Range([c33], [c49].End(3))),
"@") & " ", "@", vbCrLf)
Call UIdoc.InsertText(Body1)

'Insert some carriage returns at the end of the email
Call UIdoc.InsertText(vbCrLf & vbCrLf)
Application.CutCopyMode = False

Set UIdoc = Nothing: Set WorkSpace = Nothing
Set Maildb = Nothing: Set Notes = Nothing
Set Body = Nothing

End Sub