Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Lotus Notes - Unable to Copy Paste Special in macro
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 |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Lotus Notes - Unable to Copy Paste Special in macro
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 "Joe Wildman" wrote: 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 |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Lotus Notes - Unable to Copy Paste Special in macro
I did on the last one from yesterday, today, i was out of the office, anywayyy
"Shane Devenshire" wrote: 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 "Joe Wildman" wrote: 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro for Edit/Copy/Paste Special | Excel Worksheet Functions | |||
Copy range in macro using paste special values | Excel Discussion (Misc queries) | |||
how to create a copy/paste special/transpose macro? | Excel Discussion (Misc queries) | |||
Copy & Paste Special Macro | Excel Discussion (Misc queries) | |||
Copy Paste Special Macro | Excel Discussion (Misc queries) |