Andy
Do you have any help for me....I am using LotusNotes and I get your program to work except for attaching files
I generate Error 438 which says Objects doesn't support this method or property....or something like that. Can you help me

-Beverl

----- Andy Wiggins wrote: ----

Try this - I currently have used Lotus Notes at several client sites an
this has worked for me with little or no amendment

Dim objNotesSession As Objec
Dim objNotesMailFile As Objec
Dim objNotesDocument As Objec
Dim objNotesField As Objec

Function SendMail(

On Error GoTo SendMailErro

EMailSendTo = " '' Required - Send to addres
EMailCCTo = "" '' Optiona
EMailBCCTo = "" '' Optiona

''Establish Connection to Note
Set objNotesSession = CreateObject("Notes.NotesSession"

''Establish Connection to Mail Fil
'' .GETDATABASE("SERVER", "FILE"
Set objNotesMailFile = objNotesSession.GETDATABASE("", ""
''Open Mai
objNotesMailFile.OPENMAI

''Create New Mem
Set objNotesDocument = objNotesMailFile.CREATEDOCUMEN

''Create 'Subject Field
Set objNotesField = objNotesDocument.APPENDITEMVALUE("Subject"
EMailSubject

''Create 'Send To' Fiel
Set objNotesField = objNotesDocument.APPENDITEMVALUE("SendTo"
EMailSendTo

''Create 'Copy To' Fiel
Set objNotesField = objNotesDocument.APPENDITEMVALUE("CopyTo"
EMailCCTo

''Create 'Blind Copy To' Fiel
Set objNotesField = objNotesDocument.APPENDITEMVALUE("BlindCopyTo"
EMailBCCTo

''Create 'Body' of mem
Set objNotesField = objNotesDocument.CREATERICHTEXTITEM("Body"

With objNotesFiel
.APPENDTEXT "This e-mail is generated by an automated process.
.ADDNEWLINE
.APPENDTEXT "Please follow established contact procedures shoul
you have any questions.
.ADDNEWLINE
End Wit

''Attach the file --1454 indicate a file attachmen
''objNotesField = objNotesField.EMBEDOBJECT(1454, ""
"C:\Temp\test.xls"
objNotesField = objNotesField.EMBEDOBJECT(1454, ""
ActiveWorkbook.FullName

''Send the e-mai
objNotesDocument.Send (0

''Release storag
Set objNotesSession = Nothin
Set bjNotesSession = Nothin
Set objNotesMailFile = Nothin
Set objNotesDocument = Nothin
Set objNotesField = Nothin

''Set return cod
SendMail = Tru

Exit Functio

SendMailError
Msg = "Error # " & Str(Err.Number) & " was generated by "
& Err.Source & Chr(13) & Err.Descriptio
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContex

SendMail = Fals

End Functio


--

Regard
Andy Wiggin
www.BygSoftware.co
Home of "Save and BackUp"
"The Excel Auditor" and "Byg Tools for VBA


"Stel" wrote in messag
..
anyone knows if I can use macro to send out the reports by email throug
Lotus? If yes, how
i.e. I've to send hugh amount of reports out each day by running macro i
Excel which always takes me 1 hour to d
at this moment, I can only wait to finish splitting reports, then go t
Lotus and send those reports ou
I wanna to check if I can do it at the same time in one code, so that
can send one report out once it's read
Thanks for hel