The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim newdoc As NotesDocument
Set db=s.CurrentDatabase
Set doc=s.Documentcontext
If Not(Instr(doc.Subject(0), "AAAA")>0 And Instr(doc.Subject(0), "BBBB")>0) Then
Exit Sub
End If
Set newdoc = db.CreateDocument
Call doc.CopyAllItems(newdoc, True)
newdoc.Subject="Fwd: "& newdoc.Subject(0)
newdoc.CopyTo=""
newdoc.BlindCopyTo=""
Call newdoc.Send(False, "XXXX@XXXX.com")
End Sub
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
but i'm not sure how I add if it contains "AAAA" and "BBBB"
Open in new window