Mail lotus 8.5 via vba

H

habiler

Registered User.
Local time
Today, 23:57
Joined
Aug 10, 2014
Messages
70
Hi,
this code says me can not find "sendNotesMail".
What's happened ?

KR

Habiler
Code: 
[COLOR=#0000ff][COLOR=#0000ff]Public[/COLOR] [COLOR=#0000ff]Function[/COLOR] SendNotesMail()[COLOR=#808080]'This public sub will send a mail and attachment if neccessary to the recipient including the body text.[/COLOR][COLOR=#808080]'Requires that notes client is installed on the system.[/COLOR] [COLOR=#808080]'Set up the objects required for Automation into lotus notes[/COLOR] [COLOR=#0000ff]Dim[/COLOR] Subject [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]String[/COLOR][COLOR=#0000ff]Dim[/COLOR] Attachment [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]String[/COLOR][COLOR=#0000ff]Dim[/COLOR] Recipient [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]String[/COLOR][COLOR=#0000ff]Dim[/COLOR] BodyText [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]String[/COLOR][COLOR=#0000ff]Dim[/COLOR] SaveIt [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Boolean[/COLOR][COLOR=#0000ff]Dim[/COLOR] Maildb [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR] [COLOR=#808080]'The mail database[/COLOR][COLOR=#0000ff]Dim[/COLOR] UserName [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]String[/COLOR] [COLOR=#808080]'The current users notes name[/COLOR][COLOR=#0000ff]Dim[/COLOR] MailDbName [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]String[/COLOR] [COLOR=#808080]'THe current users notes mail database name[/COLOR][COLOR=#0000ff]Dim[/COLOR] MailDoc [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR] [COLOR=#808080]'The mail document itself[/COLOR][COLOR=#0000ff]Dim[/COLOR] AttachME [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR] [COLOR=#808080]'The attachment richtextfile object[/COLOR][COLOR=#0000ff]Dim[/COLOR] Session [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR] [COLOR=#808080]'The notes session[/COLOR][COLOR=#0000ff]Dim[/COLOR] EmbedObj [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR] [COLOR=#808080]'The embedded object (Attachment)[/COLOR][COLOR=#0000ff]Dim[/COLOR] EmailSend [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR][COLOR=#0000ff]Dim[/COLOR] EmailApp [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR] [COLOR=#808080]'Start a session to notes[/COLOR] [COLOR=#0000ff]Set[/COLOR] Session = CreateObject([COLOR=#ff0000]"Notes.NotesSession"[/COLOR]) [COLOR=#808080]'Get the sessions username and then calculate the mail file name.[/COLOR][COLOR=#808080]'You may or may not need this as for MailDBname with some systems you can pass an empty string[/COLOR]UserName = Session.UserNameMailDbName = Left$(UserName, [COLOR=#cc66cc]1[/COLOR]) & Right$(UserName, (Len(UserName) - InStr([COLOR=#cc66cc]1[/COLOR], UserName, [COLOR=#ff0000]" "[/COLOR]))) & [COLOR=#ff0000]".nsf"[/COLOR] [COLOR=#808080]'Open the mail database in notes[/COLOR][COLOR=#0000ff]Set[/COLOR] Maildb = Session.GETDATABASE([COLOR=#ff0000]""[/COLOR], MailDbName)[COLOR=#0000ff]If[/COLOR] Maildb.IsOpen = [COLOR=#0000ff]True[/COLOR] [COLOR=#0000ff]Then[/COLOR][COLOR=#808080]'Already open for mail[/COLOR][COLOR=#0000ff]Else[/COLOR]Maildb.OPENMAIL[COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]If[/COLOR] [COLOR=#808080]'Set up the new mail document[/COLOR][COLOR=#0000ff]Set[/COLOR] MailDoc = Maildb.CREATEDOCUMENTMailDoc.Form = [COLOR=#ff0000]"Memo"[/COLOR]MailDoc.sendto = [COLOR=#ff0000]"admin@tlen.pl"[/COLOR]MailDoc.Subject = [COLOR=#ff0000]"TDBank Validation File"[/COLOR]MailDoc.Body = [COLOR=#ff0000]"Here is your TDBank Validation File for today."[/COLOR]MailDoc.SAVEMESSAGEONSEND = SaveIt [COLOR=#808080]'Set up the embedded object and attachment and attach it[/COLOR] [COLOR=#0000ff]If[/COLOR] Attachment <> [COLOR=#ff0000]""[/COLOR] [COLOR=#0000ff]Then[/COLOR][COLOR=#0000ff]Set[/COLOR] AttachME = MailDoc.CREATERICHTEXTITEM.Add([COLOR=#ff0000]"H:\Document\1.pdf"[/COLOR])[COLOR=#0000ff]Set[/COLOR] EmbedObj = AttachME.EMBEDOBJECT([COLOR=#cc66cc]1454[/COLOR], [COLOR=#ff0000]""[/COLOR], Attachment, [COLOR=#ff0000]"H:\Document\1.pdf"[/COLOR])MailDoc.CREATERICHTEXTITEM ([COLOR=#ff0000]"H:\Document\1.pdf"[/COLOR]) [COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]If[/COLOR] [COLOR=#808080]'Send the document[/COLOR]MailDoc.Send [COLOR=#cc66cc]0[/COLOR], Recipient [COLOR=#808080]'Clean Up[/COLOR][COLOR=#0000ff]Set[/COLOR] Maildb = [COLOR=#0000ff]Nothing[/COLOR][COLOR=#0000ff]Set[/COLOR] MailDoc = [COLOR=#0000ff]Nothing[/COLOR][COLOR=#0000ff]Set[/COLOR] AttachME = [COLOR=#0000ff]Nothing[/COLOR][COLOR=#0000ff]Set[/COLOR] Session = [COLOR=#0000ff]Nothing[/COLOR][COLOR=#0000ff]Set[/COLOR] EmbedObj = [COLOR=#0000ff]Nothing[/COLOR][/COLOR]
 
Hi,
this code says me can not find "sendNotesMail".
What's happened ?

KR

Habiler
Code: 
[COLOR=#0000ff][COLOR=#0000ff]Public[/COLOR] [COLOR=#0000ff]Function[/COLOR] SendNotesMail()[COLOR=#808080]'This public sub will send a mail and attachment if neccessary to the recipient including the body text.[/COLOR][COLOR=#808080]'Requires that notes client is installed on the system.[/COLOR] [COLOR=#808080]'Set up the objects required for Automation into lotus notes[/COLOR] [/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Dim[/COLOR] Subject [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]String[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Dim[/COLOR] Attachment [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]String[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Dim[/COLOR] Recipient [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]String[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Dim[/COLOR] BodyText [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]String[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Dim[/COLOR] SaveIt [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Boolean[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Dim[/COLOR] Maildb [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR] [COLOR=#808080]'The mail database[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Dim[/COLOR] UserName [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]String[/COLOR] [COLOR=#808080]'The current users notes name[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Dim[/COLOR] MailDbName [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]String[/COLOR] [COLOR=#808080]'THe current users notes mail database name[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Dim[/COLOR] MailDoc [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR] [COLOR=#808080]'The mail document itself[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Dim[/COLOR] AttachME [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR] [COLOR=#808080]'The attachment richtextfile object[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Dim[/COLOR] Session [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR] [COLOR=#808080]'The notes session[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Dim[/COLOR] EmbedObj [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR] [COLOR=#808080]'The embedded object (Attachment)[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Dim[/COLOR] EmailSend [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Dim[/COLOR] EmailApp [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR] [COLOR=#808080]'Start a session to notes[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Set[/COLOR] Session = CreateObject([COLOR=#ff0000]"Notes.NotesSession"[/COLOR]) [COLOR=#808080]'Get the sessions username and then calculate the mail file name.[/COLOR][COLOR=#808080]'You may or may not need this as for MailDBname with some systems you can pass an empty string[/COLOR][/COLOR]
[COLOR=#0000ff]UserName = Session.UserNameMailDbName = Left$(UserName, [COLOR=#cc66cc]1[/COLOR]) & Right$(UserName, (Len(UserName) - InStr([COLOR=#cc66cc]1[/COLOR], UserName, [COLOR=#ff0000]" "[/COLOR]))) & [COLOR=#ff0000]".nsf"[/COLOR] [COLOR=#808080]'Open the mail database in notes[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Set[/COLOR] Maildb = Session.GETDATABASE([COLOR=#ff0000]""[/COLOR], MailDbName)[/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]If[/COLOR] Maildb.IsOpen = [COLOR=#0000ff]True[/COLOR] [COLOR=#0000ff]Then[/COLOR][COLOR=#808080]'Already open for mail[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Else[/COLOR]Maildb.OPENMAIL[COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]If[/COLOR] [COLOR=#808080]'Set up the new mail document[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Set[/COLOR] MailDoc = Maildb.CREATEDOCUMENTMailDoc.Form = [COLOR=#ff0000]"Memo"[/COLOR][/COLOR]
[COLOR=#0000ff]MailDoc.sendto = [COLOR=#ff0000][EMAIL="admin@tlen.pl"]admin@tlen.pl[/EMAIL][/COLOR][/COLOR]
[COLOR=#0000ff]MailDoc.Subject = [COLOR=#ff0000]"TDBank Validation File"[/COLOR][/COLOR]
[COLOR=#0000ff]MailDoc.Body = [COLOR=#ff0000]"Here is your TDBank Validation File for today."[/COLOR][/COLOR]
[COLOR=#0000ff]MailDoc.SAVEMESSAGEONSEND = SaveIt [COLOR=#808080]'Set up the embedded object and attachment and attach it[/COLOR] [/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]If[/COLOR] Attachment <> [COLOR=#ff0000]""[/COLOR] [COLOR=#0000ff]Then[/COLOR][COLOR=#0000ff]Set[/COLOR] AttachME = MailDoc.CREATERICHTEXTITEM.Add([COLOR=#ff0000]"H:\Document\1.pdf"[/COLOR])[/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Set[/COLOR] EmbedObj = AttachME.EMBEDOBJECT([COLOR=#cc66cc]1454[/COLOR], [COLOR=#ff0000]""[/COLOR], Attachment, [COLOR=#ff0000]"H:\Document\1.pdf"[/COLOR])[/COLOR]
[COLOR=#0000ff]MailDoc.CREATERICHTEXTITEM ([COLOR=#ff0000]"H:\Document\1.pdf"[/COLOR]) [/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]If[/COLOR] [COLOR=#808080]'Send the document[/COLOR][/COLOR]
[COLOR=#0000ff]MailDoc.Send [COLOR=#cc66cc]0[/COLOR], Recipient [COLOR=#808080]'Clean Up[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Set[/COLOR] Maildb = [COLOR=#0000ff]Nothing[/COLOR][COLOR=#0000ff]Set[/COLOR] [/COLOR]
[COLOR=#0000ff]MailDoc = [COLOR=#0000ff]Nothing[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Set[/COLOR] AttachME = [COLOR=#0000ff]Nothing[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Set[/COLOR] Session = [COLOR=#0000ff]Nothing[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#0000ff]Set[/COLOR] EmbedObj = [COLOR=#0000ff]Nothing[/COLOR][/COLOR]
 
Last edited:
Hi,

I finded the error but it opens lotus at the workspace and don't create a mail

Habiler
 
Hi,
this code below says me can not find "sendNotesMail".
What's happened ?

KR

Habiler
 
You must log in or register to reply here.

Similar threads

N
Solved Receiving Emails in Access Database using CDO 2000 library
Replies
10
Views
363
sonic8
S
N
Solved How to remove this error "the execution this software stopped due to run time" error in MS Access VBA
Replies
11
Views
669
Minty
Minty
oxicottin
Solved Import from excel and delete unwanted data
Replies
14
Views
620
oxicottin
oxicottin
oxicottin
Solved Out Of Memory error when emailing
Replies
8
Views
473
oxicottin
oxicottin
N
Solved Scraping Json from a web using VBA
Replies
11
Views
2,201
isladogs
isladogs

Users who are viewing this thread

Total: 1 (members: 0, guests: 1)
Back
Top Bottom