$50 to anyone willing to help me solve this problem quickly

HCL Domino Domino Forum
1

Hi All,

I have problem I’m having trouble getting resolved. I’m a very amateur programmer, I can get around the basics in Designer, create forms views, tables, some REAL basic coding, and create stuff based upon other people’s examples, but I don’t know code. I have a personal project I’m working on but I’m stuck.

I have a small DB, already created, some forms and views on a R6 server.

This form has a name and email address field. And checkboxes Widgets , Gadgets, and Springs

I need to get the webform user some information.

It needs to be sent via email, . So. the scenario.

Scenario 1

User enters name and email and checks any one/two/all of the boxes Widgets/Gadgets/Springs. He should then receive:

a. An email containing links to the web pages requested.

ie. If Widgets and Springs selected, then he gets an email:

Dear “Name Field”

Thanks for your information request.

Please Click “Here” for the Widgets webpage

Please Click “Here” for the Springs webpage

(note the item not requested is not displayed)

Is this an easy thing to do? I’m guessing for someone, its a 15 minute deal. Anyway, I’ll send via Paypal to anyone willing to assist me on this…becasue I’m really frustrated.

Much Thanks

Shane Lewis

slewis@southeastern.biz

2

Subject: $50 to anyone willing to help me solve this problem quickly

Thought you were looking for Domino code, not client code. Email me at dzp@wiredcountry.com and I’ll send you a working nsf.

dzp

3

Subject: Contest Over! Thanks Dave Patterson

Thanks to all who submitted information/code. Dave Patterson put together a complete package and sent it over. Thanks Dave!

4

Subject: $50 to anyone willing to help me solve this problem quickly

Fairly straightforward. Create a form with the name, email address and items.

Then I have created a body text field that has passthru HTML. Using the information on the form, I populate the body field, as follows:

Sub Click(Source As Button)

Dim ws As New notesuiworkspace

Dim uidoc As notesuidocument

Set uidoc = ws.currentdocument

Dim doc As notesdocument

Set doc = uidoc.Document

Dim itemarray() As String

Dim webarray() As String

Dim items As Integer

items = Ubound(doc.selectItems)

Redim itemarray(items) As String

Redim webarray(items) As String

For x = 0 To items

	itemarray(x) = doc.selectItems(x)

	Select Case doc.selectItems(x)

	Case "Item One" : webarray(x) = "www.itemone.com"

	Case "Item Two" : webarray(x) = "www.itemtwo.com"

	Case "Item Three" : webarray(x) = "www.itemthree.com"

	End Select

Next



Dim salutation As String

salutation = "Dear " & doc.Name(0)

Dim email As String

email = doc.email(0)



Dim bodyText As String

For x = 0 To items

	bodyText = bodyText & |<a href "| & webarray(x) & |">Please click here for the | & itemarray(x) & | WebSite</a>| & Chr(10)

Next



doc.body = bodyText

End Sub

The passthru html will show the links necessary links.

Simply use this code as you need to, if you need any further help, let me know.

(PayPal email address = darren__martin@hotmail.com)

5

Subject: RE: $50 to anyone willing to help me solve this problem quickly

Hi Darren,

FYI

I sent a question or two to your email darren.martin@dcla.co.uk.

Thanks for your response!

Shane Lewis

slewis@southeastern.biz