Hall of Fame

1. RWrigley7,750
2. welchb1234,750
3. mlmcc2,500
4. puppydog...2,000
4. burrcm2,000
4. robrandon2,000
4. rpggamer...2,000
4. wilq322,000
4. pcelba2,000
4. twlarsen2,000
11. bhermer100

1. RWrigley45,230
2. welchb1236,450
3. mlmcc5,512
4. simon_kirk5,320
5. nmcdermaid4,500
6. oleggold4,000
7. dtodd3,000
8. arbert2,600
9. burrcm2,460
10. emoreau2,250
11. schwertner2,000
11. allanau202,000
11. Yurich2,000
11. ged3252,000
11. bhaskarss2,000
11. LiorRon2,000
11. puppydog...2,000
11. robrandon2,000
11. GJParker2,000
11. Jan_Franek2,000
11. rpggamer...2,000
11. tigermatt2,000
11. wilq322,000
11. pcelba2,000
11. twlarsen2,000

	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

Question

	[x] Attachment Details

Cognos Script Editor: Writing scripts to send email with attachment from LNotes automatically

Asked by zeep in Impromptu, Lotus Notes

Hi,

What:
scripts to attach a zipped file in email (Lotus Notes) and send it automatically via launching the cognos scheduler.

The script:
===============
Option Explicit

Sub SendMessage(SendTo As String, CcTo As String, Subject As String, _
Body As String, FileToSend As String)

Dim LnSession As Object
Dim LnDb As Object
Dim LnDoc As Object
Dim LnRtItem As Object
Dim LnAttachment As Object

Set LnSession = CreateObject("Notes.NotesSession")
'You replace the .nsf file mentioned on the next line with your on .nsf file
Set LnDb = LnSession.GetDatabase("", "C:\Lotus\Notes\Data\MYNAME.nsf")
Set LnDoc = LnDb.CreateDocument()
LnDoc.Form = "Memo"
LnDoc.SendTo = SendTo
LnDoc.CopyTo = CcTo
LnDoc.Subject = Subject
LnDoc.Body = Body
LnDoc.SaveMessageOnSend = True
Set LnRtItem = LnDoc.CreateRichTextItem("MyBody")
Set LnAttachment = LnRtItem.EmbedObject(1454, "", FileToSend)

Call LnDoc.Send(False)

Set LnAttachment = Nothing
Set LnRtItem = Nothing
Set LnDoc = Nothing
Set LnDb = Nothing
Set LnSession = Nothing

End Sub

Sub Main()

Dim Receiver As String
Dim CopyTo As String
Dim SubjectText As String
Dim BodyText As String
Dim AttachFile As String
Dim DoFileExistCheck As String
Dim DoFileDateCheck As String

Receiver = "ADDRESSEE@ADDRESS.COM"
CopyTo = ""
SubjectText = "ZIPPED FILE TO YOU"
BodyText = "ATTACHED IS THE ZIPPED FILE FOR YOUR REFERENCE"
AttachFile = "\\ZIPPED FILES.ZIP"

Call SendMessage(Receiver, CopyTo, SubjectText, BodyText, AttachFile)

End Sub

===============

Problem:

The error stops at the line:

Set LnAttachment = LnRtItem.EmbedObject(1454, "", FileToSend)

What has gone wrong ?

Anyone knows how to rectify this/ how to write a script to attach zipped files or any attachment in lotus notes ?

Thanks !!

View the Solution FREE for 30 Days

	Title
1	Sending Mail thrugh Lotos Notes!!
2	VBA code to paste Excel table into em…