Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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.
Join the community of 500,000 technology professionals and ask your questions.