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 26, 2004

Anyways, the key problem for me is that the new Code in this thread is great and all, but it's Fundamentally ( as far as I can see) different to the email code as before, which you wrote, and I tweaked a little, and got it behaving great, but it was your code that did the job.

This New Code works great n all, but seems principally focused on the Image send.

The Attachment Component in the Code I have ,runs separately, but relies on the second email component.

As in :

Code:

Sub MultiSendFunctioneod()
Call SendNotesMail("TEST:Please Reply if Received;CMS Daily Report For " & Format(Date, "dddddd"), _
    "M:\REPORTS\02_FEBRUARY SUMMARY\CMS DAILY.xls", _
    Array("Name/Domain/Dom@DOM"), _
    Replace("CMS Daily Report for " & Format(Date, "dd/mm/yyyy") & Application.Rept(vbLf, 5) _
    & "Regards,|Name", "|", vbNewLine), _
    True)
End Sub

And works Brill.

What I am trying to assess, which I can't thus far, is, can the import of image code be brought in by a similar sub.
That would be cool, however, it seems that if you bring in images, it affects the whole macro.

I am also trying to Import a txt file with each email.

So the Defined Email would have the Main Recipient, the Group Email ( Defined in SendNotesMail in the code I have), and then Attach a file, then my txt comments imported, then the image files ( 2 at this stage).

If you could advise on that, I would greatly appreciate it.

Ta

santeria · Feb 26, 2004

Okay, as a for example... this is a try to amalgamate, but fails on the first sub calling the attachment:

Code:

Sub MultiSendFunctioneod()
Call SendNotesMail("TEST:Please Reply if Received;CMS Daily Report For " & Format(Date, "dddddd"), _
    "M:\REPORTS\02_FEBRUARY SUMMARY\CMS DAILY.xls", _
    Array("Nam/Domain/dom@dom"), _
    Replace("CMS Daily Report for " & Format(Date, "dd/mm/yyyy") & Application.Rept(vbLf, 5) _
    & "Regards,|Name", "|", vbNewLine), _
    True)
Call SENDIMAGESBYMAIL
End Sub
Sub SENDCMSIMAGESBYMAIL()
Dim MyPic1 As Object, MyPic2 As Object
Application.ScreenUpdating = False
Set MyPic1 = ActiveSheet.Pictures.Insert( _
    "M:\EXPORTS\02_FEBRUARY\CMS\DAILY\1.jpg")
Set MyPic2 = ActiveSheet.Pictures.Insert( _
    "M:\EXPORTS\02_FEBRUARY\CMS\DAILY\2.jpg")
Call SendMail(MyPic1, MyPic2)
MyPic1.Delete: MyPic2.Delete
Set MyPic1 = Nothing: Set MyPic2 = Nothing
Application.ScreenUpdating = True
End Sub

Private Sub SendNotesMail(ByRef MyPic1 As Object, ByRef MyPic2 As Object, Subject As String, Attachment As String, _
    Recipient As Variant, BodyText As String, SaveIt As Boolean)

Dim Session As Object, Maildb As Object, MailDoc As Object
Dim AttachMe As Object, EmbedObj As Object
Dim UserName As String, MailDbName As String

Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, _
    (Len(UserName) - InStr(1, UserName, " "))) & "Name.nsf"

Set Maildb = Session.GetDataBase(vbNullString, MailDbName)
If Not Maildb.IsOpen Then Maildb.OPENMAIL

Set MailDoc = Maildb.CreateDocument
MailDoc.Form = "Memo"
MailDoc.SendTo = Recipient
MailDoc.Subject = Subject
MailDoc.Body = BodyText
MailDoc.SaveMessageOnSend = SaveIt

If Not Attachment = vbNullString Then
    Set AttachMe = MailDoc.CreateRichTextItem("Attachment")
    Set EmbedObj = AttachMe.EmbedObject(1454, _
        vbNullString, Attachment, "Attachment")
    MailDoc.CreateRichTextItem ("Attachment")
End If

MailDoc.PostedDate = Now
Call MailDoc.Send(False)

Set Maildb = Nothing: Set MailDoc = Nothing: Set AttachMe _
    = Nothing: Set EmbedObj = Nothing: Set Session = Nothing
End Sub

Any hope for a sign of life ?

Ta

NateO · Feb 26, 2004

Hello again, try the following:

Sub test()
Dim MyPic1 As Object, MyPic2 As Object
Application.ScreenUpdating = False
Set MyPic1 = ActiveSheet.Pictures.Insert( _
 "C:\Temp\Pic1.jpg")
Set MyPic2 = ActiveSheet.Pictures.Insert( _
 "C:\Temp\Pic2.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, AttachMe As Object, EmbedObj As Object
Dim 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(WorksheetFunction.Rept(vbCrLf, 2))

MyPic2.Copy: Call UIdoc.Paste

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

Set AttachMe = UIdoc.document.CreateRichtextitem("Attachment")

Set EmbedObj = AttachMe.EmbedObject(1454, _
 vbNullString, "c:\temp\test.bat", "Attachment")

UIdoc.document.posteddate = Now
Call UIdoc.Send(False)
Call UIdoc.Close

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

End Sub

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.

santeria · Feb 26, 2004

Ta

I'll Give that a Try.

Time for a Caffeine break right now.

Did the code you built in have a txt file import option...

Just asking, I'm seeing double at the moment

Ta

NateO · Feb 26, 2004

Ace said:
Did the code you built in have a txt file import option...

No, it simply attaches a text file (the example is .bat file, but a .txt wll work too!

). Otherwise, import it to Excel, then export it to LN or use Sequential File Access or something...

santeria · Feb 26, 2004

Thanks

I have yet to test it, so I'll get back to you

Much appreciated.

santeria · Feb 26, 2004

It fails on the Address.
The Bulk of What I was originally tagging to Email was sent with one line in Brackets after Call SendNotesMail.

The sequential file stuff sort of makes sense, but not in how to apply in this case.

Anyways, I'll try some variations.
It's just dying currently, after the images are Inserted, as well as the Subject text.
Point of death is at the "No address to send to" .

Mmmm, not real clear on what is happening, but oh so close.

Ta

NateO · Feb 26, 2004

Look for:

Call UIdoc.FieldSetText("SendTo", "John H Deere") 'Recipient

Half-way through, and change John H Deere to something that's actually valid.

santeria · Feb 26, 2004

I edited that in, but it failed to insert the address.

Ta

santeria · Feb 26, 2004

I tried to see where I could insert

Code:

Call SendNotesMail("CMS EOD Report For " & Format(Date - 1, "dddddd"), _
    "M:\REPORTS\01_FEBRUARY SUMMARY\CMS DAILY.xls", _
    Array("Name/Domain/dom@dom")

Or some such variation...

But nothing seemed to work.
These comments pretty much seem to make the other Macro Work.
But the Goal is to not only attach a XLS file for sending, also attach 2 image files, but also insert a comment text file before the images.

Is that do-able ?

Ta

Inserting Images into Lotus Notes Email

santeria

Well-known Member

santeria

Well-known Member

Excel Facts

santeria

Well-known Member

NateO

Legend

santeria

Well-known Member

NateO

Legend

santeria

Well-known Member

santeria

Well-known Member

NateO

Legend

santeria

Well-known Member

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

Well-known Member

Legend

Well-known Member

Legend

Well-known Member

Well-known Member

Legend

Well-known Member

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