May’s Course of the Month is now available! Experts Exchange’s Premium Members and Team Accounts have access to a complimentary course each month as part of their membership—an extra way to increase training and boost professional development.
Sub Initialize Dim ws As New notesuiworkspace Dim session As New NotesSession Set db = session.CurrentDatabase Set uidoc=ws.currentdocument Set doc=uidoc.document extractpath = "c:\temp\" On Error Resume Next Set emaildoc = db.CreateDocument emaildoc.Form = "exp_mgt_final_copy" emaildoc.SendTo = doc.contact emaildoc.Principal = "IDSalesMaterialSubmission" emaildoc.Subject ="Submission # " + doc.sub_num(0) +" Approved - Please return Final product " Set rtitema = doc.GetFirstItem( "doc" ) ' or specify whichever RTField you need. If Not ( Isempty( rtitema.EmbeddedObjects) ) Then Forall o In rtitema.EmbeddedObjects If ( o.Type = EMBED_ATTACHMENT ) Then ' extract file attachment to temp area Call o.ExtractFile( extractpath & o.source ) ' embed in other doc Set object = rtitemb.EmbedObject( EMBED_ATTACHMENT, "", extractpath & o.source) Set rtitemb = New NotesRichTextItem(emaildoc, "doc_attached") End If End Forall End If emaildoc.ld_num = doc.ld_num Call emaildoc.Send(True) ' doc.status = "Final Copy Required" Call doc.Save(True,True) End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Domino Smart Upgrade from Release 8.5.3 to 9.0.1||1||1,042|
|how to copy mail box rules from one nsf to another||9||203|
|Split Domain with Lotus Domino and Zimbra mail server.||5||325|
|Lotus Same Time 8.5 not able to connect to LDAP after AD changes||8||25|
Join the community of 500,000 technology professionals and ask your questions.