Tuesday, 8 May 2007

Anyone looking for a job part II

Well someone finally got off their rear-end and this has appeared on Jobserve, you will have to put up with the madness that goes on here but if you can look past that this is a role with possibilities!!!

7 comments:

Roy Cropper said...

I find your site most informative and entertaining, if not a little misrepresentative of the facts.

Anonymous said...

I AM NEW TO NOTES
PLZ HLP I HAV QRY LIKE THIS WHCIH SUM1 ELSE WRITE

HOW TO ASSIGN SECUTIRY IN NOTES APP??

ITS NOT WORKING PLZ KINDLY GIV UR HLP. PLZ EMAIL RIGHT AWAY I DO NOT WANT 2
CHECK BACK ALL THE TIME.

PLZ KINDLY ANZWER NOW I DO NOT KNOW ANSWER.
DO NOT SAY TO READ DOCS I DO NOT WNAT THE BOTHER.
ANSER PLZ. I AM SUPPOSE TO KNOW NOTES BUT I DONT KNOW WHAT IS THE ANS.

SANJAY

PLZ DO NOT WASTE MY TIME

Graham Tucker said...

You have not supplied your e-mail address. If you post some more details I can give you some help.

Anonymous said...

HI I AM SANJAY AGAIN I HAVE HELP FROM COLLEGUE WHOS ASKS:

I'm getting Incorrect argument type error no: 7419 even though arguments are correct. Suggest me where i went wrong in below code


Dim Maildb As Object 'The mail database
Dim UserName, user, usersig As String 'The current users notes name
Dim MailDbName As String 'THe current users notes mail database name
Dim MailDoc As Object 'The mail document itself
Dim AttachME As Object 'The attachment richtextfile object
Dim session As NotesSession
Dim EmbedObj As Object 'The embedded object (Attachment)
Dim NotesDoc, db As Object
Dim Serv, mfile, Server, mailfile As String
Dim uidb, RichTextBody, RichTextAttachment As Object
Dim Temp As Boolean
'Dim uidoc As NotesUIDocument
Dim uidoc As Object
Dim ws As Object
Dim GetDatabase As NotesSession
Dim CreatDocument As NotesDatabase
Dim ProPath As String
Dim strAttachmentName As String


'ProPath = Forms!frmConfig!DBDataPath & "\Attachments\" & Forms!frmMain!IssueID & "\"

Serv = "INBANMP01/MP/GMSERVER/GMC"
mfile = "mail\m\MZDSW2.nsf"


Set ws = CreateObject("Notes.NotesUIWorkspace")
Set session = CreateObject("Lotus.NotesSession")

Call session.Initialize

user = session.UserName
usersig = session.CommonUserName
Server = session.GetEnvironmentString(Serv, True)
mailfile = session.GetEnvironmentString(mfile, True)


Set Maildb = session.GetDatabase(Serv, mfile)
' Set Maildb = Session.GetDatabase("", Maildb)


If Maildb.IsOpen = True Then
'Already open for mail
Else
Maildb.OPENMAIL

End If
'Set uidb = ws.CurrentDatabase
'Set Maildb = ws.CurrentDatabase

Set MailDoc = Maildb.CreateDocument

Set RichTextBody = MailDoc.CreateRichTextItem("Body")
'Attach spreadsheet
If Attachment <> "" Then
Set RichTextAttachment = MailDoc.CreateRichTextItem("Attachment")
'Set AttachME = RichTextAttachment.EmbedObject(1454, "", Attachment)
End If

'MailDoc.Form = "Appointment"
Call MailDoc.ReplaceItemValue("Form", "Appointment")
Call MailDoc.ReplaceItemValue("StartDate_2", "4/12/2007")
Call MailDoc.ReplaceItemValue("StartTime_2", int_time)
Call MailDoc.ReplaceItemValue("EndTime_2", "12:05:00PM")
Call MailDoc.ReplaceItemValue("EndDate_2", int_date)
Call MailDoc.ReplaceItemValue("DispDur_2", "1 hour")
Call MailDoc.ReplaceItemValue("dispDuration_1", "30 mins")
Call MailDoc.ReplaceItemValue("dispDur_1", "30 Big Dog Cock mins")
Call MailDoc.ReplaceItemValue("tmpStartTime_Local", "1 hour")
Call MailDoc.ReplaceItemValue("CopyTo", "Archana")
Call MailDoc.ReplaceItemValue("SendTo", Recipient)
Call MailDoc.ReplaceItemValue("Subject", Subject)
Call MailDoc.ReplaceItemValue("Location", "Bangalore")
Call MailDoc.ReplaceItemValue("Room", "Power Train")
Call MailDoc.ReplaceItemValue("body", BodyText)
Call MailDoc.ReplaceItemValue("tmpRequiredAttendees", Recipient)


'Set uidoc = ws.COMPOSEDOCUMENT(Serv, mfile, "Appointment")
Set uidoc = ws.EDITDOCUMENT(True, MailDoc) <--------------- This is where i'm getting Runtime error :7419 Incorrect argument type : Object expected
Call MailDoc.Save(True, False)


Set Maildb = Nothing
Set MailDoc = Nothing
'Set AttachME = Nothing
' Set Session = Nothing
Set EmbedObj = Nothing

Anonymous said...

let cattle commence:

http://lotusnotessucks.4t.com/

SANJAY said...

DO NOT MESS ME MR TUCKER IT IS A NEW SHIRT

Graham Tucker said...

Sanjay,

Suggest you check here for the answers

http://www-10.lotus.com/ldd/nd6forum.nsf/d6091795dfaa5b1185256a7a0048a2d0/d450ec48ebd24f41852572dc001b917b?OpenDocument

This is obviously where you copied and pasted the code from, alternatively you could remove Big Dog Cock from the dispDur field as your ability to hit Ctrl-C & Ctrl-V is suffering from Tourettes Syndrome.