Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Password login with VBA

Status
Not open for further replies.

guinness

Technical User
Apr 25, 2001
1
DE
Is there anyone who got an idea how to login to Notes with VBA Code?
I found a code to open Lotus Notes an send a mail via MS-Access. But I
have to enter my password. Any ideas?
Thanks
Guinness
 

I have managed to use Notes auto logon using AUTO-IT (like a very basic script thingy) its a free download and it saves a lot of time in the mornings, I just log in and the startup folder and personal scrips kinda do the rest of the work for me..

V.
 
In Notes UserId there is a setting to not request password for Notes-based applications. Then try this code and see how you go. (it will only work when Notes open, otherwise it ask for password) - its a start anyway



Dim ms As Domino.NotesSession, md As Domino.NotesDatabase, mm As Domino.NotesDocument, mi As Domino.NotesItem
Dim mb As New Domino.NotesRichTextItem, ma As Domino.NotesEmbeddedObject

Set ms = New Domino.NotesSession
ms.Initialize
Set md = ms.GetDbDirectory("").OpenMailDatabase
Set mm = md.CreateDocument
Set mi = mm.ReplaceItemValue("Form", "Memo")
Set mi = mm.ReplaceItemValue("Subject", "Put subject here")
Set mi = mm.ReplaceItemValue("SendTo", "Address Here")
'This next bit is inserting attachment"
Set mb = mm.CreateRichTextItem("Body")
Set ma = mb.EmbedObject(1454, "", "attachment Name", "")
mm.SaveMessageOnSend = True
mm.send False



FAZTECH
:p
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top