Subscribe to:
Post Comments (Atom)
skip to main |
skip to sidebar
Code, Links & ideas for the Lotus Notes Professional in you!!
My Blog Roll
Important Links
7 comments:
I find your site most informative and entertaining, if not a little misrepresentative of the facts.
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
You have not supplied your e-mail address. If you post some more details I can give you some help.
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
let cattle commence:
http://lotusnotessucks.4t.com/
DO NOT MESS ME MR TUCKER IT IS A NEW SHIRT
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.
Post a Comment