Return Receipt sending workbooks with Lotus Notes

Incentives

New Member
Joined
Dec 12, 2005
Messages
5
I used one of the suggested scripts from the forum, but need to modify to include a Return Receipt. Anyone know how?

Sub SendEmailScript()
Dim Maildb As Object
Dim UserName As String
Dim MailDbName As String
Dim MailDoc As Object
Dim AttachME As Object
Dim Session As Object
Dim EmbedObj As Object
Dim RecipientRange As Range
Dim ccRecipientRange As Range
Dim bccRecipientRange As Range
Dim SubjectRange As Range
Dim BodyTextRange As Range
Dim AttachmentRange As Range

'Sends email with attachment based on information in row 2 of EMAIL LIST
Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.IsOpen = True Then
Else
Maildb.OPENMAIL
End If
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
Set RecipientRange = Worksheets("EMAIL LIST").Range("B2")
Recipient = RecipientRange
MailDoc.sendto = Recipient
Set ccRecipientRange = Worksheets("EMAIL LIST").Range("C2")
ccRecipient = ccRecipientRange
MailDoc.CopyTo = ccRecipient
Set bccRecipientRange = Worksheets("EMAIL LIST").Range("D2")
bccRecipient = bccRecipientRange
MailDoc.BlindCopyTo = bccRecipient
Set SubjectRange = Worksheets("EMAIL LIST").Range("E2")
Subject = SubjectRange
MailDoc.Subject = Subject
Set BodyTextRange = Worksheets("EMAIL LIST").Range("F2")
BodyText = BodyTextRange
MailDoc.Body = BodyText
Set AttachmentRange = Worksheets("EMAIL LIST").Range("G2")
MailDoc.SAVEMESSAGEONSEND = True
Attachment = AttachmentRange
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
'MailDoc.CREATERICHTEXTITEM ("Attachment")
MailDoc.PostedDate = Now()
MailDoc.SEND 0, Recipient

Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
Set RecipientRange = Nothing
Set ccRecipientRange = Nothing
Set bccRecipientRange = Nothing
Set SubjectRange = Nothing
Set BodyTextRange = Nothing
Set AttachmentRange = Nothing

End Sub
 

Excel Facts

Can you AutoAverage in Excel?
There is a drop-down next to the AutoSum symbol. Open the drop-down to choose AVERAGE, COUNT, MAX, or MIN

Norie

Well-known Member
Joined
Apr 28, 2004
Messages
76,343
Office Version
  1. 365
Platform
  1. Windows
I would suggest you look at the LotusScript help file.

It should list the properties of the mail item object, and I assume there will be one related to read receipts.

I'm afraid I can really help further as I don't currently have access to Notes.
 
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,163,797
Messages
5,833,738
Members
430,228
Latest member
Normano

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top