troubleshooting Question

Email Script Modification

Avatar of schmad01
schmad01Flag for United States of America asked on
Lotus IBM
7 Comments1 Solution241 ViewsLast Modified:
Hello Again Experts,
I would like to modify the below script.  When the button is clicked, I would like it to ask the user if they want to send this email Internally or Externally.  If Externally, then it will function as it does now. If Internally, I would like the Domino Directory to pop up to be able to select multiple names, then email to those names.  Thanks.

Dim session As New notessession
      Dim db As notesdatabase
      Dim doccoll As notesdocumentcollection
      Dim doc As notesdocument
      Dim memodoc As notesdocument
      Set db = session.currentdatabase
      Set doccoll = db.unprocesseddocuments
      Set doc = doccoll.getfirstdocument
      emailid = Inputbox("Enter the email address to send this COA to")
      If Not doc Is Nothing Then
            Set memodoc = db.createdocument
            Call doc.copyallitems(memodoc,True)
            Forall v In memodoc.Items
                  If  (Lcase( <> "$file"  And  Lcase( <> "body"   Then
                        Call memodoc.RemoveItem(Cstr(v.Name))
                  End If
            End Forall
            memodoc.form = "memo"
            memodoc.subject = doc.coaname(0)
            memodoc.body = " COA - " + doc.coaname(0)
            memodoc.sendto = emailid
            memodoc.send  False
            memodoc.PRINCIPAL = "Quest International Flavors, Inc."
      End If
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 7 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 7 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros