Afternoon all,

I'm using some of RDB's code, suitably modified, to send e-mails via an
Excel / VBA control. All works just fine for sending multiple workbooks to
multiple locations, etc etc.

However, I've just had a spanner thrown in the works, in that these now
require Read Receipts attached to the e-mails.

This is the basic create / send routine after the body, title etc has been
created:

With OutMail
.SentOnBehalfOfName = """Mike"" "
.To = "
.CC = ""
.BCC = ""
.Subject = "Details as Requested"
.Body = strbody
.Display
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%S"
End With

I figure that I need to add in something along the lines of:
.AttachReadReceipt = True

unfortunately, every combination I can think of and have tried is not
actually attaching one.

Can anyone advise what I should use for this?

Many Thanks in Advance,
Mike

Hi DS

See the tips page
http://www.rondebruin.nl/mail/tips2.htm

You can use

Set Importance

' 0 = Low, 2 = High, 1 = Normal
.Importance = 2


ReadReceiptRequest

.ReadReceiptRequested = True



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"DS" wrote in message ...
Afternoon all,

I'm using some of RDB's code, suitably modified, to send e-mails via an
Excel / VBA control. All works just fine for sending multiple workbooks to
multiple locations, etc etc.

However, I've just had a spanner thrown in the works, in that these now
require Read Receipts attached to the e-mails.

This is the basic create / send routine after the body, title etc has been
created:

With OutMail
.SentOnBehalfOfName = """Mike"" "
.To = "
.CC = ""
.BCC = ""
.Subject = "Details as Requested"
.Body = strbody
.Display
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%S"
End With

I figure that I need to add in something along the lines of:
.AttachReadReceipt = True

unfortunately, every combination I can think of and have tried is not
actually attaching one.

Can anyone advise what I should use for this?

Many Thanks in Advance,
Mike

Ron, once again I am in your debt.... works like a charm, thank you.
Mike

"Ron de Bruin" wrote:

Hi DS

See the tips page
http://www.rondebruin.nl/mail/tips2.htm

You can use

Set Importance

' 0 = Low, 2 = High, 1 = Normal
.Importance = 2


ReadReceiptRequest

.ReadReceiptRequested = True



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"DS" wrote in message ...
Afternoon all,

I'm using some of RDB's code, suitably modified, to send e-mails via an
Excel / VBA control. All works just fine for sending multiple workbooks to
multiple locations, etc etc.

However, I've just had a spanner thrown in the works, in that these now
require Read Receipts attached to the e-mails.

This is the basic create / send routine after the body, title etc has been
created:

With OutMail
.SentOnBehalfOfName = """Mike"" "
.To = "
.CC = ""
.BCC = ""
.Subject = "Details as Requested"
.Body = strbody
.Display
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%S"
End With

I figure that I need to add in something along the lines of:
.AttachReadReceipt = True

unfortunately, every combination I can think of and have tried is not
actually attaching one.

Can anyone advise what I should use for this?

Many Thanks in Advance,
Mike