need to know how to add an attachment to a louts notes email!

[mbair]

This is my code and it works but I need to add an attachment?

Public Sub OPENNOTES(sendtext As String)
Dim LOTSESSION As Domino.NotesSession
Dim lotDocument As Domino.NotesDocument
Dim lotDatabase As Domino.NotesDatabase
Dim vRecipients As Variant
Dim AttachME As Domino.NotesRichTextItem
Dim EmbedObj As Domino.NotesEmbeddedObject
Dim strAttachment As String
strAttachment = sendtext
Set LOTSESSION = New Domino.NotesSession

With LOTSESSION
.Initialize "password" 'or u can use
'an inputbox
End With

Set lotDatabase = _
LOTSESSION.GetDbDirectory("xxx&quot.OpenMailDatabase

With lotDatabase
If Not .IsOpen Then
.Open
End If
End With

vRecipients = Array("somename@yahoo.com", _
"somename@yahoo.com", _
"recipient@domain" _
)

Set lotDocument = lotDatabase.CreateDocument()

With lotDocument
.AppendItemValue "Form", "Memo"
.AppendItemValue "Subject", "testing"
.AppendItemValue "Body", strAttachment
.Send False, vRecipients

End With


Set lotDocument = Nothing
Set lotDatabase = Nothing
Set LOTSESSION = Nothing
End Sub

 

[evalesthy]

See thread181-310363

Also,

http://www.granite.ab.ca/access/emaillotusnotes.htm

 

[vbajock]

Us


































































I don't know much about lotus notes but usually it is by setting the attachment property

With lotDocument
.AppendItemValue "Form", "Memo"
.AppendItemValue "Subject", "testing"
.AppendItemValue "Body", strAttachment


.Attachments="C:\myfolder\myfile.xls";"C:\myfolder\someother.xls"


.Send False, vRecipients

End With