I am a complete beginner to VBSCripting and have been asked to write a script that, once run, will save the attachments from an email to a specific file path. It only needs to work for one email not the whole inbox. I have searched the internet and so far have drawn a blank, any help would be greatly appreciated.
Kind regards,
John
Answer John,
Sorry for late reply, I am very good in Lotus Notes email, even though I will try.
have you done some R & D? If yes please share with me that would more helpful to me.
For your reference here is my code which I wrote for Lotus Notes Meeting Invitation:
Dim db, serverNAB As NOTESDATABASE
Dim view As NOTESVIEW
Dim doc As NOTESDOCUMENT
Set session = CreateObject("Notes.NotesSession")
'get the name of the mailfile of the current user
dblocation = session.GETENVIRONMENTSTRING("MailFile", True)
'Get the notesdatabase for the mail.
Set db = session.CURRENTDATABASE
Set Maildb = session.GETDATABASE("", dblocation)
If Maildb.ISOPEN = True Then
WasOpen = 1 'Already open for mail
Else
Maildb.OPENMAIL 'This will prompt you for password
End If
Set serverNAB = session.GETDATABASE(db.SERVER, "names.nsf")
Set view = serverNAB.GETVIEW("($Users)")
'Set Mail Document Properties
Set MailDoc = Maildb.CREATEDOCUMENT
Dim cdoc As Object
Set cdoc = Maildb.GETPROFILEDOCUMENT("calendarprofile")
