Hello again, try the following:
<font face=Courier New><SPAN style="color:darkblue">Sub</SPAN> test()
<SPAN style="color:darkblue">Dim</SPAN> MyPic1 <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Object</SPAN>, MyPic2 <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Object</SPAN>
Application.ScreenUpdating = <SPAN style="color:darkblue">False</SPAN>
<SPAN style="color:darkblue">Set</SPAN> MyPic1 = ActiveSheet.Pictures.Insert( _
"C:\Temp\Pic1.jpg")
<SPAN style="color:darkblue">Set</SPAN> MyPic2 = ActiveSheet.Pictures.Insert( _
"C:\Temp\Pic2.jpg")
<SPAN style="color:darkblue">Call</SPAN> SendMail(MyPic1, MyPic2)
MyPic1.Delete: MyPic2.Delete
<SPAN style="color:darkblue">Set</SPAN> MyPic1 = Nothing: <SPAN style="color:darkblue">Set</SPAN> MyPic2 = <SPAN style="color:darkblue">Nothing</SPAN>
Application.ScreenUpdating = <SPAN style="color:darkblue">True</SPAN>
<SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">Sub</SPAN>
<SPAN style="color:darkblue">Private</SPAN> <SPAN style="color:darkblue">Sub</SPAN> SendMail(<SPAN style="color:darkblue">ByRef</SPAN> MyPic1 <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Object</SPAN>, <SPAN style="color:darkblue">ByRef</SPAN> MyPic2 <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Object</SPAN>)
<SPAN style="color:darkblue">Dim</SPAN> Notes <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Object</SPAN>, db <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Object</SPAN>, WorkSpace <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Object</SPAN>
<SPAN style="color:darkblue">Dim</SPAN> UIdoc <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Object</SPAN>, AttachMe <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Object</SPAN>, EmbedObj <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Object</SPAN>
<SPAN style="color:darkblue">Dim</SPAN> UserName <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">String</SPAN>, MailDbName <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">String</SPAN>
<SPAN style="color:darkblue">Set</SPAN> Notes = CreateObject("Notes.NotesSession")
UserName = Notes.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, _
(Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
<SPAN style="color:darkblue">Set</SPAN> db = Notes.GetDataBase(vbNullString, MailDbName)
<SPAN style="color:darkblue">Set</SPAN> WorkSpace = CreateObject("Notes.NotesUIWorkspace")
<SPAN style="color:darkblue">Call</SPAN> WorkSpace.ComposeDocument(, , "Memo")
<SPAN style="color:darkblue">Set</SPAN> UIdoc = WorkSpace.CurrentDocument
<SPAN style="color:darkblue">Call</SPAN> UIdoc.FieldSetText("SendTo", "John H Deere") <SPAN style="color:green">'Recipient</SPAN>
<SPAN style="color:darkblue">Call</SPAN> UIdoc.FieldSetText("Subject", "Pic Time")
<SPAN style="color:darkblue">Call</SPAN> UIdoc.GotoField("Body")
<SPAN style="color:darkblue">Call</SPAN> UIdoc.InsertText(WorksheetFunction.Substitute( _
"Hey Buddy,@@Check out the pics eh!@@", _
"@", vbCrLf))
MyPic1.Copy: <SPAN style="color:darkblue">Call</SPAN> UIdoc.Paste
<SPAN style="color:darkblue">Call</SPAN> UIdoc.InsertText(WorksheetFunction.Rept(vbCrLf, 2))
MyPic2.Copy: <SPAN style="color:darkblue">Call</SPAN> UIdoc.Paste
<SPAN style="color:darkblue">Call</SPAN> UIdoc.InsertText(Application.Substitute( _
"@@Don<SPAN style="color:green">'t Be A Stranger,@Moi", "@", vbCrLf))</SPAN>
Application.CutCopyMode = <SPAN style="color:darkblue">False</SPAN>
<SPAN style="color:darkblue">Set</SPAN> AttachMe = UIdoc.document.CreateRichtextitem("Attachment")
<SPAN style="color:darkblue">Set</SPAN> EmbedObj = AttachMe.EmbedObject(1454, _
vbNullString, "c:\temp\test.bat", "Attachment")
UIdoc.document.posteddate = Now
<SPAN style="color:darkblue">Call</SPAN> UIdoc.Send(False)
<SPAN style="color:darkblue">Call</SPAN> UIdoc.<SPAN style="color:darkblue">Close</SPAN>
<SPAN style="color:darkblue">Set</SPAN> UIdoc = Nothing: <SPAN style="color:darkblue">Set</SPAN> WorkSpace = <SPAN style="color:darkblue">Nothing</SPAN>
<SPAN style="color:darkblue">Set</SPAN> db = Nothing: <SPAN style="color:darkblue">Set</SPAN> Notes = <SPAN style="color:darkblue">Nothing</SPAN>
<SPAN style="color:darkblue">Set</SPAN> EmbedObj = Nothing: <SPAN style="color:darkblue">Set</SPAN> AttachMe = <SPAN style="color:darkblue">Nothing</SPAN>
<SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">Sub</SPAN></FONT>
Regarding the spell checker, I might be tempted to reverse engineer Notes and delete this functionality on a permanent basis so as not to irritate myself to a point of no return.