Hi Sue,

sorry I forgot to add the code.
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookReplyTo As Outlook.Recipients
(the used strings are defined ok)

' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")
' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
' adding the strAddressTO.
Set objOutlookRecip = .Recipients.Add(strAddressTO)
objOutlookRecip.Type = olTo
Set objOutlookReplyTo = .Recipients.Add(strAddressReply)
objOutlookRecip.Type = olReply
end with

The above code results in Error 13 Type Mismatch

Without the entry for the reply address all works fine.

Greetings,
Harry
"Sue Mosher [MVP-Outlook]" wrote:

Show the relevant code, please.
--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook Programming: Jumpstart
for Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Harry" wrote:

however I think I did something wrong. The recepients.add function does not
implement my required return address.
Although I send a mail out of my primary address I would like to have the
recipient to reply automatically towards an other address. so the return
address should be different from the originator address.

"Sue Mosher [MVP-Outlook]" wrote:

Use the Add method for the ReplyRecipients collection.
--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook Programming: Jumpstart
for Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Harry" wrote:

I'm using a form within my access to send mail through the default
account/profile.
Although I was able to change the settings for the read receipt and delivery
receipt I do not succeed to change the reply-address (have replies send to
value) to an address other then my own.

Within the VBA I have is mentioned
dim strReturnAddress="the-other-mailadres"

.OriginatorDeliveryReportRequested = (Me.EmailDeliveryRequest.Value)
.ReadReceiptRequested = (Me.EmailReadRequest.Value)
. ?????? = (strReturnAddress)