Inserting Images into Lotus Notes Email

santeria · Feb 13, 2004

Finally I have the code all okay for Sending Reports, and other extra comments etc...

And now...
Is there code available for picking up images ( Screen snaps) and inserting into an email in Notes after the Body of the Message?

Either a reference to a link or some code would be greatly appreciated, cos I cannot find any info at this point in the archives ( Presuming I have searched using proper parameters ).

Ta

santeria · Feb 25, 2004

The Pics I have are two files ( Screen Snaps ) as jpgs, in the same directory as my data directory for the day.

I can do the emails fine.
The fly in the ointment at the moment is how do I get the Images in after the Text Body, and the file has been inserted.

( And if Possible, can a txt file be inserted to read as a message relavent to that day file... something which contains comments on the days data ).

Anyway, the images are the main thing.

Ta

NateO · Feb 25, 2004

Hello again,

The following works for me:

Sub test()
Dim MyPic As Object
Application.ScreenUpdating = False
Set MyPic = ActiveSheet.Pictures.Insert( _
 "C:\Temp\My Picture.jpg")
Call SendMail(MyPic)
MyPic.Delete
Set MyPic = Nothing
Application.ScreenUpdating = True
End Sub

Private Sub SendMail(ByRef MyPic As Object)

Dim Notes As Object, db As Object, WorkSpace As Object
Dim UIdoc As Object, UserName As String, MailDbName As String

Set Notes = CreateObject("Notes.NotesSession")

UserName = Notes.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, _
 (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"

Set db = Notes.GetDataBase(vbNullString, MailDbName)

Set WorkSpace = CreateObject("Notes.NotesUIWorkspace")
Call WorkSpace.ComposeDocument(, , "Memo")

Set UIdoc = WorkSpace.CurrentDocument
Call UIdoc.FieldSetText("SendTo", "Jane C Doe") 'Recipient
Call UIdoc.FieldSetText("Subject", "Pic Time")

MyPic.Copy
Call UIdoc.GotoField("Body")
Call UIdoc.InsertText(WorksheetFunction.Substitute( _
 "Hello!@@Check out the pic eh

@", _
"@", vbCrLf))
Call UIdoc.Paste
Call UIdoc.InsertText(Application.Substitute( _
"@@Later,@Me", "@", vbCrLf))
Application.CutCopyMode = False

Call UIdoc.Send(False)
UIdoc.Close

Set UIdoc = Nothing: Set WorkSpace = Nothing
Set db = Nothing: Set Notes = Nothing

End Sub

Call it from test().

santeria · Feb 25, 2004

Thanks.

Looks very Appropos.

I'll test that, and let you know

Should this Macro be Substituted for an existing Email Macro?

Also, in a Notes Address, if I have a Group Address, is it best to put in the Group Address, or have the Full list of people ?

Ta Muchly.

santeria · Feb 25, 2004

Also, to place in two or More Images ( Imported, not merely Attachments), do I just repeat the image line, or is there an array, etc... needed ?

The txt file was basically an element that needs to be inserted in days that require me to comment on aspects of the Report.
It seems like if I insert the txt file, then it saves me time when sending out the email, and also gives me a separate record of comments in my archives.

Ta

NateO · Feb 25, 2004

Yep, use the group address.

Try the following:

Sub test()
Dim MyPic1 As Object, MyPic2 As Object
Application.ScreenUpdating = False
Set MyPic1 = ActiveSheet.Pictures.Insert( _
 "C:\Temp\Picture 1.jpg")
Set MyPic2 = ActiveSheet.Pictures.Insert( _
 "C:\Temp\Picture 2.jpg")
Call SendMail(MyPic1, MyPic2)
MyPic1.Delete: MyPic2.Delete
Set MyPic1 = Nothing: Set MyPic2 = Nothing
Application.ScreenUpdating = True
End Sub

Private Sub SendMail(ByRef MyPic1 As Object, ByRef MyPic2 As Object)

Dim Notes As Object, db As Object, WorkSpace As Object
Dim UIdoc As Object, UserName As String, MailDbName As String

Set Notes = CreateObject("Notes.NotesSession")

UserName = Notes.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, _
 (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"

Set db = Notes.GetDataBase(vbNullString, MailDbName)

Set WorkSpace = CreateObject("Notes.NotesUIWorkspace")
Call WorkSpace.ComposeDocument(, , "Memo")

Set UIdoc = WorkSpace.CurrentDocument
Call UIdoc.FieldSetText("SendTo", "John H Deere") 'Recipient
Call UIdoc.FieldSetText("Subject", "Pic Time")

Call UIdoc.GotoField("Body")
Call UIdoc.InsertText(WorksheetFunction.Substitute( _
 "Hey Buddy,@@Check out the pics eh!@@", _
 "@", vbCrLf))

MyPic1.Copy: Call UIdoc.Paste

Call UIdoc.InsertText(String(2, vbCrLf))

MyPic2.Copy: Call UIdoc.Paste

Call UIdoc.InsertText(Application.Substitute( _
 "@@Don't Be A Stranger,@Moi", "@", vbCrLf))
Application.CutCopyMode = False

Call UIdoc.Save(True, True)
Call UIdoc.Send(False)
Call UIdoc.Close

Set UIdoc = Nothing: Set WorkSpace = Nothing
Set db = Nothing: Set Notes = Nothing

End Sub

santeria · Feb 25, 2004

Cool.

Ta

santeria · Feb 25, 2004

Works Great.

One thing.... How do I turn off the Lotus Notes Spell Checkerm just for this Macro ?

Ta

santeria · Feb 26, 2004

The other things I am not real clear on, is/are...

Attaching a Document.
Inserting a txt in the same directory as the jpgs.
I need to have a "pick up " txt file, because the comments vary day to day, but the rest of the guff is just the same.

And most mornings, I email the same thing two or more times.

At this point the Images are loading into the Macro file source ( My "dashboard" as it were), but the code looks like it deletes that anyway.

The Subject lines is the variable comment line.

essentially I am trying to meld the existing mail document, which is fine for emails in a basic sense, with the New macro which Definitely picks up the images, and Hopefully will pick up a txt file.

Ta Muchly.

NateO · Feb 26, 2004

The following shows how to create an attachment:

http://www.mrexcel.com/board2/viewtopic.php?t=68461&start=22

Sorry, I niether understand what the spell checker quandary is or how to resolve it.

santeria · Feb 26, 2004

Notes Brings Up a Spell Checker when Sending a message.
Is there a way to suppress the Spell Checker in Notes for the sending of Emails driven by this Macro.

Ta

Inserting Images into Lotus Notes Email

santeria

Well-known Member

santeria

Well-known Member

Excel Facts

NateO

Legend

santeria

Well-known Member

santeria

Well-known Member

NateO

Legend

santeria

Well-known Member

santeria

Well-known Member

santeria

Well-known Member

NateO

Legend

santeria

Well-known Member

Similar threads

Forum statistics

Share this page

Inserting Images into Lotus Notes Email

Well-known Member

Well-known Member

Excel Facts

Legend

Well-known Member

Well-known Member

Legend

Well-known Member

Well-known Member

Well-known Member

Legend

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock