Request delivery receipt when sending emails

[ppataki]

Dear All,

When sending emails through Outlook in Access I would like to somehow enable delivery receipt

Could you please help me with the code?
(I would just need that specific line)

Many thanks in advance!

 

[pbaldy]

This type of thing?

oMail.ReadReceiptRequested = True

 

[ppataki]

Hi,
Yes, but unfortunately if I add this line I get an error message that Object is required
Any ideas please?
Thank you!

 

[Guus2005]

pbaldy is right. he assumes your object is oMail.
You said

When sending emails through Outlook in Access ...

How do you do that then? Could you show us your code?

 

[ppataki]

Hello!
Of course, here you are:

    Dim olapp As Object
    Dim olns As Object
    Dim olfolder As Object
    Dim olitem As Object
    Dim olattach As Object

    Set olapp = CreateObject("Outlook.Application")
    Set olns = olapp.GetNamespace("MAPI")
    Set olfolder = olns.getdefaultfolder(6)
    Set olitem = olapp.createitem(0)
    Set olattach = olitem.attachments

    'olitem.To = ""
    olitem.CC = ""
    olitem.Subject = ""
    olitem.body = "

    olattach.Add "c:\temp\.pdf", 1

    olattach.Add "c:\temp\.pdf", 1
    
    olitem.display
    olitem.send

    Set olitem = Nothing
    Set rs = Nothing
    Set db = Nothing
    Set olfolder = Nothing
    Set olns = Nothing
    Set olapp = Nothing

And if I insert that line in the code I get the abovementioned error message

Many thanks

 

[Guus2005]

Seems to me that

oMail.ReadReceiptRequested = True

is a mail item property so

Dim olapp As Object
    Dim olns As Object
    Dim olfolder As Object
    Dim olitem As Object
    Dim olattach As Object

    Set olapp = CreateObject("Outlook.Application")
    Set olns = olapp.GetNamespace("MAPI")
    Set olfolder = olns.getdefaultfolder(6)
    Set olitem = olapp.createitem(0)
    Set olattach = olitem.attachments

    'olitem.To = ""
    olitem.CC = ""
    olitem.Subject = ""
    olitem.body = "

    olattach.Add "c:\temp\.pdf", 1

    olattach.Add "c:\temp\.pdf", 1
    
    olitem.ReadReceiptRequested = True 
    olitem.display
    olitem.send

    Set olitem = Nothing
    Set rs = Nothing
    Set db = Nothing
    Set olfolder = Nothing
    Set olns = Nothing
    Set olapp = Nothing

Should do the trick.

HTH

 

[ppataki]

It works perfectly!
Thank you very much!!

 

[puja21]

Is there a way to code DELIVERY RECEIPT, not read receipt?

I already tried this of course, but doesn't seem to be recognized by VBA:

oMail.DeliveryReceiptRequested = True

Results in
"Run-Time error '438':
Object doesn't support this property or method"

EDIT
After some more searching the correct code is as follows

"oMail.OriginatorDeliveryReportRequested = True"

 

[pbaldy]

Thanks for updating with the solution and welcome to the site.