We have an agent that runs weekly to students. The unit has just requested that I make the words “renew your membership” a link to our membership form. How can I do this? Is there a way to create a link with scripting to words? Here is the beginning of my code:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collect As NotesDocumentCollection
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim doc1 As NotesDocument
Dim maildoc As NotesDocument
Dim ProcessedEmail As String
Set db = session.CurrentDatabase
Set view = db.GetView("(CurrentNonUP)")
Set doc = view.GetFirstDocument
If doc Is Nothing Then Error 1000, _
"Doc not found in view."
Dim email As String
Set collection = db.UnprocessedDocuments
For v=1 To collection.count
Set doc = collection.getnthdocument(v)
Call doc.ReplaceItemValue("Upload","No")
email = doc.code_stud_access_acct_id(0)
If(email <> "" & ProcessedEmail = "") Then
Set maildoc=db.CreateDocument
maildoc.form="Memo1"
maildoc.from="bws-members@psu.edu"
maildoc.subject="Renew your membership to the Blue & White Society today!"
maildoc.Name=doc.name_p_first_name
maildoc.body="Dear " + doc.name_p_first_name(0) + ", " + Chr(13) + Chr(13) +_
"Do you love Penn State? If the answer is yes, renew your membership to the Blue & White Society " +_
"today!" + Chr(13) + Chr(13) +_
"The Blue & White Society is the student spirit group of the Penn State Alumni Association. " +_
"And, as a Blue & White Society member you are part of a student group exceeding 2,500 " +_
"members that share the same pride you have for Penn State - you don't want to let that go! " + Chr(13) + Chr(13) +_